Org: pretty SVG tags for todos and source blocks - more to come?

lisp/mitch-packages.el

@@ -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