Add colour box.
parent
bb6f3d8a0b
commit
661a5a6504
16
publish.el
16
publish.el
|
@ -8,6 +8,7 @@
|
|||
(package-initialize)
|
||||
|
||||
|
||||
|
||||
(use-package ox-publish
|
||||
:init
|
||||
(setq org-html-validation-link nil
|
||||
|
@ -18,6 +19,21 @@
|
|||
org-html-htmlize-output-type nil
|
||||
org-babel-python-command "python3")
|
||||
:config
|
||||
(org-add-link-type
|
||||
"color"
|
||||
(lambda (path)
|
||||
(message (concat "color "
|
||||
(progn (add-text-properties
|
||||
0 (length path)
|
||||
(list 'face `((t (:foreground ,path))))
|
||||
path) path))))
|
||||
(lambda (path desc format)
|
||||
(cond
|
||||
((eq format 'html)
|
||||
(format "<span style=\"color:%s;\">%s</span>" path desc))
|
||||
((eq format 'latex)
|
||||
(format "{\\color{%s}%s}" path desc)))))
|
||||
|
||||
(org-babel-do-load-languages
|
||||
'org-babel-load-languages
|
||||
'(
|
||||
|
|
Loading…
Reference in New Issue