Switch to fork of org-bullets

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

View file

@ -92,7 +92,7 @@
+ [ ] twitter + [ ] twitter
+ [ ] present + [ ] present
** 2.0.3 [54/82] ** 2.0.3 [55/83]
+ [2/3] Finish module :: feature/jump (go-to-definition that just works) + [2/3] Finish module :: feature/jump (go-to-definition that just works)
+ [ ] automatic tag generation + [ ] automatic tag generation
+ [X] global tags support + [X] global tags support
@ -133,6 +133,7 @@
+ [ ] Fix invisible buffer-info segment in modeline for terminal Emacs + [ ] Fix invisible buffer-info segment in modeline for terminal Emacs
+ [ ] ui/doom-modeline: fix ~0/0~ display in modeline (leftover anzu state) + [ ] ui/doom-modeline: fix ~0/0~ display in modeline (leftover anzu state)
+ [ ] lang/php: automatic+async rebuild of tags (phpctags) + [ ] lang/php: automatic+async rebuild of tags (phpctags)
+ [X] Replace org-bullets source with more up-to-date fork
+ [X] Extract ~mode-name~ setters to ~doom-ui-mode-names~ in core/core-ui + [X] Extract ~mode-name~ setters to ~doom-ui-mode-names~ in core/core-ui
+ [X] nav-flash: blink on focus-in + [X] nav-flash: blink on focus-in
+ [X] Add ~:textobj~ keyword to ~map!~ + [X] Add ~:textobj~ keyword to ~map!~

View file

@ -386,32 +386,5 @@
(when (derived-mode-p 'org-mode) (when (derived-mode-p 'org-mode)
(org-remove-occur-highlights) (org-remove-occur-highlights)
t)) t))
(add-hook '+evil-esc-hook #'+org|remove-occur-highlights) (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)))))))

View file

@ -8,7 +8,7 @@
(package! org-plus-contrib :recipe (:fetcher git :url "http://orgmode.org/org-mode.git")) (package! org-plus-contrib :recipe (:fetcher git :url "http://orgmode.org/org-mode.git"))
(package! org-download) (package! org-download)
(package! org-bullets) (package! org-bullets :recipe (:fetcher github :repo "hlissner/org-bullets"))
(package! toc-org) (package! toc-org)
(package! ob-go) (package! ob-go)
(package! ob-mongo) (package! ob-mongo)