Czy istnieje Biblioteka Emacs Lisp do generowania HTML?

Jak się dowiedziałaś , xmlgen generuje XML ze struktury listy. To, co uznałem za rozczarowujące z pakietem "xmlgen", który obsługuje format, nie jest zupełnie odwrotnością parsera XML Emacsa .

Dodałem to do mojej kopii xmlgen:

;; this creates a routine to be the inverse of what xml-parse does
;;;###autoload
(defun xml-gen (form &optional in-elm level)
  "Convert a sexp to xml:
  '(p :class \"big\")) => \"<p class=\\\"big\\\" />\""
  (let ((level (or level 0)))
    (cond
     ((numberp form) (number-to-string form))
     ((stringp form) form)
     ((listp form)
      (destructuring-bind (xml attrs) (xml-gen-extract-plist form)
        (let ((el (car xml)))
          (unless (symbolp el)
            (error "Element must be a symbol (got '%S')." el))
          (setq el (symbol-name el))
          (concat "<" el (xml-gen-attr-to-string attrs)
                  (if (> (length xml) 1)
                      (concat ">" (mapconcat
                                   (lambda (s) (xml-gen s el (1+ level)))
                                   (cdr xml)
                                   "")
                              "</" el ">")
                    "/>"))))))))

(defun xml-gen-attr-to-string (plist)
  (reduce 'concat (mapcar (lambda (p) (concat " " (symbol-name (car p)) "=\"" (cdr p) "\"")) plist)))

(defun xml-gen-extract-plist (list)
  (list (cons (car list) (let ((kids (xml-node-children list)))
                           (if (= 1 (length kids))
                               kids
                             (remove-if-not 'listp kids))))
        (xml-node-attributes list)))

Uwaga: interfejs do tego jest xml-gen (nie xmlgen, który jest oryginalnym parsowaniem).

Z tym interfejsem:

(string-equal (xml-gen (car (xml-parse-region <some-region-of-xml>)))
              <some-region-of-xml>)

I

(equal (car (xml-parse-region (insert (xml-gen <some-xml-form>))))
       <some-xml-form>)

The nowa xml-gen nie stara się zachować białych znaków wokół, które generuje xml-parse-region.

To może być punkt wyjścia: http://www.emacswiki.org/emacs/HtmlLite

To nie jest to, czego szukasz, ale jest 20-minutowy film, w którym facet tworzy prostą stronę internetową za pomocą UCW, rzadkiego frameworka aplikacji internetowych. Wszystko odbywa się w Emacsie przy użyciu Lispa...

Oto link do transkryptu (cały kod (~25 linijek) jest dostępny na końcu transkryptu).

Miałem podobny wymóg, aby móc analizować xml za pomocą funkcji XML-parse, przekształcać go, a następnie wypisywać go z powrotem jako ciąg xml.

Rozwiązanie Trey ' a prawie działało, z wyjątkiem tego, że musiałem zachować elementy XML z białymi spacjami. Więc napisałem własną implementację tutaj:

Https://github.com/upgradingdave/xml-to-string