Destul de imprimat fișiere XML pe Emacs

I use nXML mode for editing and Tidy when I want to format and indent xml or HTML. There is also an Emacs interface to Tidy.

Am luat versiunea lui Jason Viers și am adăugat o logică pentru a plasa declarații xmlns pe propriile linii. Aceasta presupune că aveți xmlns = și xmlns: fără spații libere intermediare.

(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  or , but not 
    (goto-char begin)
    (while (search-forward-regexp ">[ \t]*<[^/]" end t)
      (backward-char 2) (insert "\n") (incf end))
    ;; split  and 
    (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 arată ca un mod bun. Trebuie să se uite la el. Îl voi folosi dacă am nevoie de toate caracteristicile pe care le oferă.

Oricum, această problemă mă deranja timp de o săptămână și nu căutam cum trebuie. După ce am postat, am început să caut și să găsesc un site cu un funcția elisp care o face destul de bine. Autorul sugerează, de asemenea, utilizarea Tidy.

Vă mulțumim pentru răspunsul lui Marcel (prea rău că nu am suficiente puncte pentru a vă ajuta) .

Will post about it soon on my blog. Here is a post about it (with a link to Marcel's site).

Pentru introducerea rupturilor de linie și apoi pentru imprimarea destulă

M-x sgml-mode
M-x sgml-pretty-print

Eu folosesc de la xml-parse.el . De obicei, veți dori să aveți punctul la începutul fișierului când executați această comandă.

Este interesant faptul că fișierul este încorporat în Emacspeak . Când am folosit Emacspeak zilnic, m-am gândit că xml-reformat-tags este un Emacs încorporat. Într-o zi l-am pierdut și a trebuit să fac o căutare pe internet pentru asta, și astfel am intrat pe pagina wiki menționată mai sus.

Am atașat și codul meu pentru a începe xml-parse. Nu sunt sigur dacă aceasta este cea mai bună bucată din codul Emacs, dar pare să funcționeze pentru mine.

(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))
)

iată câteva modificări pe care le-am făcut versiunii lui Benjamin Ferrari:

• search-forward-regexp nu specifica un sfarsit, asa ca va functiona pe chestii de la inceputul regiunii la sfarsitul bufferului (in loc de sfarsitul regiunii)
• Acum incrementează end corect, așa cum a observat Cheeso.
• ar introduce o pauză între , care modifică valoarea sa. Da, din punct de vedere tehnic, modificăm valorile de aici, dar un început/sfârșit gol este mult mai probabil să fie semnificativ. Acum utilizează două căutări separate, puțin mai stricte, pentru a evita acest lucru.

Totuși, aceasta nu are nevoie de cl pentru macrocomanda 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  or , but not 
    (while (search-forward-regexp ">[ \t]*<[^/]" end t)
      (backward-char 2) (insert "\n") (incf end))
    ;; split  and 
    (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!"))

Dacă aveți nevoie doar de indentare fără introducerea unor noi linii de rupere, puteți aplica comanda indent-region la întregul buffer cu următoarele apăsări de taste:

C-x h
C-M-\

Dacă trebuie, de asemenea, să introduceți linii de rupere, astfel încât etichetele de deschidere și închidere să fie pe linii separate, puteți utiliza următoarea funcție foarte frumoasă, scrisă de Benjamin Ferrari . Am gasit-o pe blogul sau si sper ca este bine sa o reproduc aici:

(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"))
      (indent-region begin end))
    (message "Ah, much better!"))

Acest lucru nu se bazează pe un instrument extern cum ar fi Tidy.