LispマクロでLispコードをCSSに変換するようにしてみた - きのこる庭

覚えたてのマクロの練習がてらつくってみた。500バイト程度で実装。ファイル出力がなければ400バイトくらい？ (defmacro css (name elems) (with-open-file (*standard-output* (string-downcase name) :direction :output :if-exists :supersede) `(progn ,@(mapc (lambda (style) (let ((elem (car style)) (attrs (cadr style))) (format t "~a {~%" elem) (loop for i in attrs do (format t "~2T~a: ~a;~%" (string-downcase (car i)) (cadr i))) (format t "}~%~%"))) elems))