mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-17 02:41:43 +02:00
Modified script for colorized html
This commit is contained in:
parent
09a6402783
commit
69fa53c877
@ -1,6 +1,8 @@
|
|||||||
(require 'org)
|
;; Thanks to Tobias's answer on Emacs Stack Exchange:
|
||||||
(require 'font-lock)
|
;; https://emacs.stackexchange.com/questions/38437/org-mode-batch-export-missing-syntax-highlighting
|
||||||
|
|
||||||
|
(package-initialize)
|
||||||
|
(require 'font-lock)
|
||||||
(require 'subr-x) ;; for `when-let'
|
(require 'subr-x) ;; for `when-let'
|
||||||
|
|
||||||
(unless (boundp 'maximal-integer)
|
(unless (boundp 'maximal-integer)
|
||||||
@ -66,22 +68,3 @@ with class 'color and highest min-color value."
|
|||||||
(or val 'unspecified)))
|
(or val 'unspecified)))
|
||||||
|
|
||||||
(advice-add 'face-attribute :override #'my-face-attribute)
|
(advice-add 'face-attribute :override #'my-face-attribute)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
;; Debugging:
|
|
||||||
(defmacro print-args-and-ret (fun)
|
|
||||||
"Prepare FUN for printing args and return value."
|
|
||||||
`(advice-add (quote ,fun) :around
|
|
||||||
(lambda (oldfun &rest args)
|
|
||||||
(let ((ret (apply oldfun args)))
|
|
||||||
(message ,(concat "Calling " (symbol-name fun) " with args %S returns %S.") args ret)
|
|
||||||
ret))
|
|
||||||
'((name "print-args-and-ret"))))
|
|
||||||
|
|
||||||
; (print-args-and-ret htmlize-faces-in-buffer)
|
|
||||||
; (print-args-and-ret htmlize-get-override-fstruct)
|
|
||||||
; (print-args-and-ret htmlize-face-to-fstruct)
|
|
||||||
; (print-args-and-ret htmlize-attrlist-to-fstruct)
|
|
||||||
; (print-args-and-ret face-foreground)
|
|
||||||
; (print-args-and-ret face-background)
|
|
||||||
; (print-args-and-ret face-attribute)
|
|
@ -1,13 +1,8 @@
|
|||||||
#!/bin/bash
|
#!/bin/bash
|
||||||
INPUT=$1
|
INPUT=$1
|
||||||
#emacs merged_qmckl.org --batch --eval "(require 'htmlize)" -f org-html-export-to-html --kill
|
|
||||||
emacs \
|
|
||||||
$INPUT \
|
|
||||||
--batch \
|
|
||||||
--eval "(package-initialize)" \
|
|
||||||
-f org-html-export-to-html \
|
|
||||||
--kill
|
|
||||||
|
|
||||||
mv *.html ../docs
|
emacs --batch --load ../docs/config.el $INPUT -f org-html-export-to-html
|
||||||
|
|
||||||
|
mv index.html ../docs
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user