EnglishTürkçeРусскийУкраїнська
Sign up
← Blog of oldlisper

Подстветка кода с помощью colorize

oldlisper · 02.08.2013 00:00
· original author: archimag

Подстветка кода с помощью colorize

2013 , August 2
Tags: lisp colorize arblog

Для подсветки кода на Common Lisp я люблю использовать colorize, потому что она добавляет в разметку ссылки на Hyperspec. А вот структура разметки получается та ещё, я хочу другую, более современную. Но исходники colorize ужасны и копаться в них я не хочу. Поэтому я написал функцию, которую берёт оригинальную разметку, генерируемую colorize и превращает её в нечто более интересное (для меня):

  1. (defparameter *span-classes*
  2.   '("symbol" "special" "keyword" "comment" "string" "character"))
  4. (defun update-code-markup (markup)
  5.   (labels
  6.       ((bad-span-p (node)
  7.          (and (string-equal (xtree:local-name node) "span")
  8.               (not (member (xtree:attribute-value node "class") *span-classes*
  9.                            :test #'string-equal))))
  10.       ;;---------------------------------------
  11.       (comment-p (node)
  12.          (and (string-equal (xtree:local-name node) "span")
  13.               (string-equal (xtree:attribute-value node "class") "comment")))
  14.       ;;---------------------------------------
  15.       (br-p (node)
  16.          (string-equal (xtree:local-name node) "br"))
  17.       ;;---------------------------------------
  18.       (flatten-spans (node)
  19.          (iter (for el in (xtree:all-childs node))
  20.                (flatten-spans el))
  21.         ;;---------------------------------------
  22.         (when (comment-p node)
  23.            (setf (xtree:text-content node)
  24.                  (xtree:text-content node))
  25.            (xtree:insert-child-after (xtree:make-element "br") node))
  26.         ;;---------------------------------------
  27.         (when (bad-span-p node)
  28.            (iter (for el in (xtree:all-childs node))
  29.                  (xtree:insert-child-before (xtree:detach el) node))
  30.            (xtree:remove-child node))))
  31.    ;;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  32.    (html:with-parse-html (doc (format nil "<div>~A</div>" markup))
  33.       (let ((div (xtree:first-child (xtree:first-child (xtree:root doc)))))
  34.         (flatten-spans div)
  35.         (xtree:with-object (fragment (xtree:make-document-fragment doc))
  36.          ;;---------------------------------------
  37.          (let* ((pre (xtree:make-child-element fragment "div"))
  38.                  (ol (xtree:make-child-element pre "ol")))
  39.             (setf (xtree:attribute-value pre "class")
  40.                   "prettyprint linenums")
  41.             (setf (xtree:attribute-value ol "class")
  42.                   "linenums")
  43.            ;;---------------------------------------
  44.            (iter (for line in (split-sequence:split-sequence-if #'br-p (xtree:all-childs div)))
  45.                   (for i from 0)
  46.                   (let ((li (xtree:make-child-element ol "li")))
  47.                     (setf (xtree:attribute-value li "class")
  48.                           (format nil "L~s" i))
  49.                    ;;---------------------------------------
  50.                    (iter (for el in line)
  51.                           (xtree:append-child li (xtree:detach el))))))
  52.          ;;---------------------------------------
  53.          (html:serialize-html fragment :to-string))))))

Здесь можно видеть не только код, но и непосредственный результат.

Кстати, функция довольно большая. Читать "сплошное месиво кода" на CL бывает не очень приятно. В других языках код обычно "разряжают" с помощью пустых строк. Но в CL это эстетически смотрится как-то не очень. Так что я решил попробовать использовать линии в качестве разделителей. Пока мне кажется, что получается неплохо.