diff --git a/compose-publish.el b/compose-publish.el index b8fba36203eded85378a4086e6e66f46c9f03c83..fbbe0163be474b75bce1ebd84e73a1f2d6ff4b3b 100644 --- a/compose-publish.el +++ b/compose-publish.el @@ -170,6 +170,23 @@ undesirable behavior." (prefix-all-lines "#+HTML_HEAD_EXTRA: " body) "\n#+HTML_HEAD_EXTRA: \\)</div>\n")) +;; To include easy color links in org-mode +;; now simply use [[color:red][text to be in red]] +;; https://orgmode.org/worg/org-faq.html#org64ae339 +(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))))) ;; fullpath from relative path ;; http://xahlee.info/emacs/emacs/elisp_relative_path.html