Add semi-broken org-modern
- subject to change and ridicule
This commit is contained in:
parent
efe2366df1
commit
0674d6b830
@ -565,12 +565,6 @@ targets."
|
||||
;; (org-hide-emphasis-markers t)
|
||||
(inhibit-compacting-font-caches t)
|
||||
:config
|
||||
(add-hook 'org-mode-hook
|
||||
(lambda ()
|
||||
(font-lock-add-keywords
|
||||
nil
|
||||
`((,(rx bol (+ "*")) . ;; shadow
|
||||
font-lock-doc-markup-face)))))
|
||||
(add-hook 'after-save-hook
|
||||
(lambda () (if (equal major-mode 'org-mode)
|
||||
(org-babel-tangle))))
|
||||
@ -1025,11 +1019,36 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
|
||||
(guid (seq uuid)))
|
||||
(rxt-elisp-to-pcre (rx ,@expressions)))))
|
||||
|
||||
(elpaca-use-package org-modern
|
||||
:after org
|
||||
:custom
|
||||
(org-modern-tag nil)
|
||||
(org-modern-todo nil)
|
||||
(org-modern-block-name nil)
|
||||
(org-modern-table nil)
|
||||
(org-modern-hide-stars nil)
|
||||
(org-modern-star nil)
|
||||
;; (org-modern-block-fringe 16)
|
||||
:hook (org-mode . org-modern-mode)
|
||||
:config
|
||||
(defun mitch/org-grayify-stars ()
|
||||
"Make the `*' characters in Org headlines look like the `#'s in markdown."
|
||||
(interactive)
|
||||
(font-lock-add-keywords
|
||||
nil
|
||||
`((,(rx bol (+ "*")) . ;; shadow
|
||||
font-lock-doc-markup-face))))
|
||||
;; (add-hook 'org-mode-hook
|
||||
;; #'mitch/org-grayify-stars 90)
|
||||
(advice-add 'org-modern--make-font-lock-keywords
|
||||
:after #'mitch/org-grayify-stars)
|
||||
)
|
||||
|
||||
(elpaca-use-package (svg-tag-mode
|
||||
:host github
|
||||
:repo "rougier/svg-tag-mode")
|
||||
:after org
|
||||
:hook (org-mode . 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)
|
||||
@ -1042,7 +1061,8 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
|
||||
(let* ((begend (string-trim tag "#\\+" "_src"))
|
||||
(upcased (upcase begend)))
|
||||
(svg-tag-make upcased
|
||||
:face 'org-block-begin-line))))))))
|
||||
:face 'org-block-begin-line)))))))
|
||||
)
|
||||
|
||||
(provide 'mitch-packages)
|
||||
;;; mitch-packages.el ends here
|
||||
|
Loading…
Reference in New Issue
Block a user