Xml dosyalarımı (nxml modu) düzenlemek için emacs kullanıyorum ve dosyalar makine tarafından oluşturulmuş herhangi bir etiket biçimlendirmesine sahip değil.
Tüm dosyayı girintili olarak yazdırmak ve kaydetmek için aradım, ancak otomatik bir yol bulamadım.
Bir yolu var mı? Veya linux üzerinde bunu yapabilen bir düzenleyici en azından.
Yanıtlar:
XML veya HTML'yi biçimlendirmek ve girintilemek istediğimde düzenleme ve Tidy için nXML modunu kullanıyorum . Ayrıca Tidy'ye bir Emacs arayüzü de vardır .
Kendi işlevinizi yazmanıza bile gerek yok - sgml-mode (bir gnu emacs çekirdek modülü), bölge başlangıcı ve sonu argümanlarını alan (sgml-pretty-print ...) adında yerleşik bir güzel yazdırma işlevine sahiptir.
Eğer xml kesip yapıştırıyorsanız ve terminalinizin satırları rastgele yerlerde kestiğini fark ederseniz, önce kesik çizgileri düzelten bu güzel yazıcıyı kullanabilirsiniz .
sgml-modeZamanla nasıl değişmiş olabileceğinden emin değilim . Bugün, çağırdım C-x C-f foo.xml, M-x sgml-modesonra M-x sgml-pretty-printve xml dosyam oldukça basıldı. (Tamam, emacs tamamlamadan önce yirmi saniye veya daha fazla asıldı. Güzel baskıdan önce tek satırlık bir
C-x gtüm tamponu bir bölge olarak seçmek zorunda kaldım .
C-x hve sonra M-x sgml-pretty-print. Xml şimdi oldukça biçimlendirilmiş olacak
Yeni satır sonu eklemeden yalnızca oldukça girintileme yapmanız gerekiyorsa indent-region, şu tuş vuruşlarıyla komutu arabelleğin tamamına uygulayabilirsiniz :
C-x h
C-M-\
Açma ve kapama etiketlerinin ayrı satırlarda olması için satır sonlarını da tanıtmanız gerekiyorsa, Benjamin Ferrari tarafından yazılan aşağıdaki çok güzel elisp işlevini kullanabilirsiniz . Onu blogunda buldum ve burada yeniden üretmemin benim için sorun olmayacağını umuyorum:
(defun bf-pretty-print-xml-region (begin end)
"Pretty format XML markup in region. You need to have nxml-mode
http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
this. The function inserts linebreaks to separate tags that have
nothing but whitespace between them. It then indents the markup
by using nxml's indentation rules."
(interactive "r")
(save-excursion
(nxml-mode)
(goto-char begin)
(while (search-forward-regexp "\>[ \\t]*\<" nil t)
(backward-char) (insert "\n") (setq end (1+ end)))
(indent-region begin end))
(message "Ah, much better!"))
Bu, Tidy gibi harici bir araca bağlı değildir.
Emacs, M- | ile rastgele komutlar çalıştırabilir. Eğer xmllint yüklüyse:
"M- | xmllint --format -" seçilen bölgeyi biçimlendirecek
"Cu M- | xmllint --format -" aynı şeyi yapacak ve bölgeyi çıktıyla değiştirecektir
Yukarıdaki Tim Helmstedt sayesinde bu şekilde st yaptım:
(defun nxml-pretty-format ()
(interactive)
(save-excursion
(shell-command-on-region (point-min) (point-max) "xmllint --format -" (buffer-name) t)
(nxml-mode)
(indent-region begin end)))
hızlı ve kolay. Çok teşekkürler.
(indent-region 0 (count-lines (point-min) (point-max)))
Satır sonlarını tanıtmak ve ardından güzel yazdırmak için
M-x sgml-mode
M-x sgml-pretty-print
Benjamin Ferrari'nin versiyonunda yaptığım birkaç ince ayar:
search-forward-regexpo tampon sonuna kadar bölgenin baştan şeyler üzerinde faaliyet yüzden, bir son belirtmedi (yerine bölgenin sonu)endCheeso'nun da belirttiği gibi düzgün bir şekilde artıyor.<tag></tag>değerini değiştiren bir ara eklerdi. Evet, teknik olarak burada her şeyin değerlerini değiştiriyoruz, ancak boş bir başlangıç / bitiş önemli olması çok daha olası. Artık bundan kaçınmak için iki ayrı, biraz daha katı arama kullanıyor.Hala "harici düzenlemeye güvenmiyor" vb. Var. Ancak, makro cliçin gerekli incf.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; pretty print xml region
(defun pretty-print-xml-region (begin end)
"Pretty format XML markup in region. You need to have nxml-mode
http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
this. The function inserts linebreaks to separate tags that have
nothing but whitespace between them. It then indents the markup
by using nxml's indentation rules."
(interactive "r")
(save-excursion
(nxml-mode)
(goto-char begin)
;; split <foo><foo> or </foo><foo>, but not <foo></foo>
(while (search-forward-regexp ">[ \t]*<[^/]" end t)
(backward-char 2) (insert "\n") (incf end))
;; split <foo/></foo> and </foo></foo>
(goto-char begin)
(while (search-forward-regexp "<.*?/.*?>[ \t]*<" end t)
(backward-char) (insert "\n") (incf end))
(indent-region begin end nil)
(normal-mode))
(message "All indented!"))
Yapmanın bir yolu, aşağıdaki formatta bir şeyiniz varsa
<abc> <abc><abc> <abc></abc> </abc></abc> </abc>
Emacs'ta deneyin
M-x nxml-mode
M-x replace-regexp RET > *< RET >C-q C-j< RET
C-M-\ to indent
Bu, xml örneğinin yukarısını aşağıya doğru girintiler
<abc>
<abc>
<abc>
<abc>
</abc>
</abc>
</abc>
</abc>
VIM'de bunu şu şekilde yapabilirsiniz:
:set ft=xml
:%s/>\s*</>\r</g
ggVG=
Bu yardımcı olur umarım.
HTH
Ben aldı Jason Viers' versiyonunu kendi hatlarında xmlns bildirimleri koymak ve katma mantığı. Bu, aradaki boşluk olmadan xmlns = ve xmlns: 'e sahip olduğunuzu varsayar.
(defun cheeso-pretty-print-xml-region (begin end)
"Pretty format XML markup in region. You need to have nxml-mode
http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
this. The function inserts linebreaks to separate tags that have
nothing but whitespace between them. It then indents the markup
by using nxml's indentation rules."
(interactive "r")
(save-excursion
(nxml-mode)
;; split <foo><bar> or </foo><bar>, but not <foo></foo>
(goto-char begin)
(while (search-forward-regexp ">[ \t]*<[^/]" end t)
(backward-char 2) (insert "\n") (incf end))
;; split <foo/></foo> and </foo></foo>
(goto-char begin)
(while (search-forward-regexp "<.*?/.*?>[ \t]*<" end t)
(backward-char) (insert "\n") (incf end))
;; put xml namespace decls on newline
(goto-char begin)
(while (search-forward-regexp "\\(<\\([a-zA-Z][-:A-Za-z0-9]*\\)\\|['\"]\\) \\(xmlns[=:]\\)" end t)
(goto-char (match-end 0))
(backward-char 6) (insert "\n") (incf end))
(indent-region begin end nil)
(normal-mode))
(message "All indented!"))
Tidy iyi bir moda benziyor. Bakmalıyım. Sunduğu tüm özelliklere gerçekten ihtiyacım olursa kullanacağım.
Her neyse, bu sorun beni yaklaşık bir haftadır rahatsız ediyordu ve düzgün bir şekilde aramıyordum. Gönderdikten sonra aramaya başladım ve oldukça iyi olan elisp işlevine sahip bir site buldum . Yazar ayrıca Tidy kullanmayı öneriyor.
Cevabınız için teşekkürler Marcel (çok kötü, seni modifiye etmek için yeterli puanım yok) .
Yakında blogumda yayınlayacağım. İşte bununla ilgili bir gönderi (Marcel'in sitesine bir bağlantı ile).
Kullandığım xml-reformat-tagsgelen xml-parse.el . Genellikle bu komutu çalıştırırken noktanın dosyanın başlangıcında olmasını istersiniz.
Dosyanın Emacspeak'e dahil edilmiş olması ilginç . Emacspeak'i günden güne kullandığımda xml-reformat-tags, bir Emacs yerleşik olduğunu düşündüm . Bir gün onu kaybettim ve bunun için internet araştırması yapmak zorunda kaldım ve böylece yukarıda bahsedilen wiki sayfasına girdim.
Xml ayrıştırmasını başlatmak için kodumu da ekliyorum. Bunun Emacs kodunun en iyi parçası olup olmadığından emin değilim, ama benim için çalışıyor gibi görünüyor.
(if (file-exists-p "~/.emacs.d/packages/xml-parse.el")
(let ((load-path load-path))
(add-to-list 'load-path "~/.emacs.d/packages")
(require 'xml-parse))
)
2017 itibariyle emacs zaten varsayılan olarak bu özellik ile birlikte gelir, ancak bu küçük işlevi aşağıdakilere yazmanız gerekir ~/.emacs.d/init.el:
(require 'sgml-mode)
(defun reformat-xml ()
(interactive)
(save-excursion
(sgml-pretty-print (point-min) (point-max))
(indent-region (point-min) (point-max))))
o zaman sadece ara M-x reformat-xml
kaynak: https://davidcapello.com/blog/emacs/reformat-xml-on-emacs/
Korkarım Benjamin Ferrari versiyonunu daha çok seviyorum. Dahili güzel baskı her zaman bitiş etiketini değerden sonra yeni bir satıra yerleştirir ve etiket değerlerine istenmeyen CR ekler.
wrong type argument: stringp, nil