emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Switch to fork of org-bullets

Browse source 
The source repo is no longer maintained, so I forked it, fixed a couple
problems (mainly, I made it respect org-hide) and am now using it in
DOOM.
This commit is contained in:
Henrik Lissner 2017-05-29 01:22:47 +02:00
parent d1726e4a52
commit d83d800de9
3 changed files with 4 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

29
modules/lang/org/config.el
View file

@ -386,32 +386,5 @@
(when (derived-mode-p 'org-mode)
(org-remove-occur-highlights)
t))
(add-hook '+evil-esc-hook #'+org|remove-occur-highlights)
(after! org-bullets
(define-minor-mode org-bullets-mode
"Modified version of `org-bullets-mode' that respects the `org-hide' face."
nil nil nil
(let* ((keyword
`((,org-outline-regexp-bol
(0 (let ((level (- (match-end 0) (match-beginning 0) 1)))
(compose-region (- (match-end 0) 2)
(- (match-end 0) 1)
(org-bullets-level-char level))
(when (facep org-bullets-face-name)
(put-text-property (- (match-end 0) 2)
(- (match-end 0) 1)
'face org-bullets-face-name))
(put-text-property (match-beginning 0) (match-end 0)
'keymap org-bullets-bullet-map)
nil))))))
(if org-bullets-mode
(progn (font-lock-add-keywords nil keyword)
(font-lock-fontify-buffer))
(save-excursion
(goto-char (point-min))
(font-lock-remove-keywords nil keyword)
(while (re-search-forward org-outline-regexp-bol nil t)
(decompose-region (match-beginning 0) (match-end 0)))
(font-lock-fontify-buffer)))))))
(add-hook '+evil-esc-hook #'+org|remove-occur-highlights))