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

Disable org-modern and move my gray stars into main org block

Browse Source
This commit is contained in:
MitchMarq42 2023-03-11 09:29:05 -09:00
parent 111bad9ecd
commit fed92a6fb8
1 changed files with 22 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
lisp/mitch-packages.el
View File

@ -699,6 +699,15 @@ See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode
(defun insert-ï () (defun insert-ï ()
(interactive) (interactive)
(insert 239)) ; this is a lowercase I with an umlaut. Used for the word `naiive'. (insert 239)) ; this is a lowercase I with an umlaut. Used for the word `naiive'.
(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)
:hook :hook
(org-mode . turn-off-line-numbers) (org-mode . turn-off-line-numbers)
(org-mode . org-vw-mode) (org-mode . org-vw-mode)
@ -1218,30 +1227,19 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
(guid (seq uuid))) (guid (seq uuid)))
(rxt-elisp-to-pcre (rx ,@expressions))))) (rxt-elisp-to-pcre (rx ,@expressions)))))
(use-package org-modern ;; (use-package org-modern
:after org ;; :after org
:custom ;; :custom
(org-modern-tag nil) ;; (org-modern-tag nil)
(org-modern-todo nil) ;; (org-modern-todo nil)
(org-modern-block-name nil) ;; (org-modern-block-name nil)
(org-modern-table nil) ;; (org-modern-table nil)
(org-modern-hide-stars nil) ;; (org-modern-hide-stars nil)
(org-modern-star nil) ;; (org-modern-star nil)
;; (org-modern-block-fringe 16) ;; ;; (org-modern-block-fringe 16)
:hook (org-mode . org-modern-mode) ;; :hook (org-mode . org-modern-mode)
:config ;; :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)
)
;; svg-tags; disabled because reasons ;; svg-tags; disabled because reasons
;; (use-package svg-tag-mode ;; (use-package svg-tag-mode