mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Disable svg-tag-mode, just not worth it

Browse Source
This commit is contained in:
MitchMarq42 2023-03-11 09:18:36 -09:00
parent 405d0b7b5d
commit 46f4208870
1 changed files with 21 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/mitch-packages.el
View File

@ -1243,26 +1243,27 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
:after #'mitch/org-grayify-stars)
)
(use-package svg-tag-mode
:elpaca (svg-tag-mode
:host github
:repo "rougier/svg-tag-mode")
;; :after org-modern
:hook (org-modern-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)))))))
)
;; svg-tags; disabled because reasons
;; (use-package svg-tag-mode
;; :elpaca (svg-tag-mode
;; :host github
;; :repo "rougier/svg-tag-mode")
;; ;; :after org-modern
;; :hook (org-modern-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)))))))
;; )
(use-package haskell-mode)
(use-package yuck-mode)