Org: pretty SVG tags for todos and source blocks - more to come?
This commit is contained in:
parent
d283e0064e
commit
36c4e7bbcb
@ -1024,5 +1024,24 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
|
||||
(guid (seq uuid)))
|
||||
(rxt-elisp-to-pcre (rx ,@expressions)))))
|
||||
|
||||
(elpaca-use-package (svg-tag-mode
|
||||
:host github
|
||||
:repo "rougier/svg-tag-mode")
|
||||
:after org
|
||||
:hook (org-mode . svg-tag-mode)
|
||||
:custom (svg-tag-tags
|
||||
`((,(rx blank (group (= 4 upper)) blank) .
|
||||
((lambda (tag)
|
||||
(svg-tag-make tag
|
||||
:inverse t
|
||||
:face (intern
|
||||
(format "org-%s" (downcase tag)))))))
|
||||
(,(rx (group "#+" (or "begin" "end") "_src")) .
|
||||
((lambda (tag)
|
||||
(let* ((begend (string-trim tag "#\\+" "_src"))
|
||||
(upcased (upcase begend)))
|
||||
(svg-tag-make upcased
|
||||
:face 'org-block-begin-line))))))))
|
||||
|
||||
(provide 'mitch-packages)
|
||||
;;; mitch-packages.el ends here
|
||||
|
Loading…
Reference in New Issue
Block a user