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

lang/org: fix #2117 regression

Browse source
This commit is contained in:
Henrik Lissner 2019-12-02 20:28:55 -05:00
parent 153fbbc466
commit 7cec80e9f1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -524,17 +524,16 @@ conditions where a window's buffer hasn't changed at the time this hook is run."
"Remove link syntax and fix variable height text (e.g. org headings) in the
eldoc string."
:around #'org-format-outline-path
(let ((result (funcall orig-fn path width prefix separator))
(separator (or separator "/")))
(string-join
(cl-loop for part
in (split-string (substring-no-properties result) separator)
for n from 0
for face = (nth (% n org-n-level-faces) org-level-faces)
collect
(org-add-props (replace-regexp-in-string org-link-any-re "\\4" part)
nil 'face `(:foreground ,(face-foreground face nil t) :weight bold)))
separator)))
(funcall orig-fn
(cl-loop for part in path
;; Remove full link syntax
for part = (replace-regexp-in-string org-link-any-re "\\4" part)
for n from 0
for face = (nth (% n org-n-level-faces) org-level-faces)
collect
(org-add-props part
nil 'face `(:foreground ,(face-foreground face nil t) :weight bold)))
width prefix separator))
(defun +org--restart-mode-h ()
"Restart `org-mode', but only once."