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) :after #'mitch/org-grayify-stars)
) )
(use-package svg-tag-mode ;; svg-tags; disabled because reasons
:elpaca (svg-tag-mode ;; (use-package svg-tag-mode
:host github ;; :elpaca (svg-tag-mode
:repo "rougier/svg-tag-mode") ;; :host github
;; :after org-modern ;; :repo "rougier/svg-tag-mode")
:hook (org-modern-mode . svg-tag-mode) ;; ;; :after org-modern
:custom (svg-tag-tags ;; :hook (org-modern-mode . svg-tag-mode)
`((,(rx blank (group (= 4 upper)) blank) . ;; :custom (svg-tag-tags
((lambda (tag) ;; `((,(rx blank (group (= 4 upper)) blank) .
(svg-tag-make tag ;; ((lambda (tag)
:inverse t ;; (svg-tag-make tag
:face (intern ;; :inverse t
(format "org-%s" (downcase tag))))))) ;; :face (intern
(,(rx (group "#+" (or "begin" "end") "_src")) . ;; (format "org-%s" (downcase tag)))))))
((lambda (tag) ;; (,(rx (group "#+" (or "begin" "end") "_src")) .
(let* ((begend (string-trim tag "#\\+" "_src")) ;; ((lambda (tag)
(upcased (upcase begend))) ;; (let* ((begend (string-trim tag "#\\+" "_src"))
(svg-tag-make upcased ;; (upcased (upcase begend)))
:face 'org-block-begin-line))))))) ;; (svg-tag-make upcased
) ;; :face 'org-block-begin-line)))))))
;; )
(use-package haskell-mode) (use-package haskell-mode)
(use-package yuck-mode) (use-package yuck-mode)