awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-26 16:41:04 -05:00
Code Issues Packages Projects Releases Wiki Activity

Bytecompiler bytecompiler, won't you shut up

Browse Source
This commit is contained in:
Henrik Lissner
2019-11-23 00:52:36 -05:00
parent 803da8b3b9
commit 26c8f5c6ef
21 changed files with 31 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/lang/org/autoload/org-capture.el
View File

@@ -134,7 +134,7 @@ project."
(+org--capture-ensure-heading (cdr headings) (1+ initial-level)))))
(defun +org--capture-central-file (file project)
(let ((file (expand-file-name +org-capture-projects-file org-directory)))
(let ((file (expand-file-name file org-directory)))
(set-buffer (org-capture-target-buffer file))
(org-capture-put-target-region-and-position)
(widen)

2
modules/lang/org/autoload/org-refile.el
View File

@@ -59,6 +59,6 @@
(user-error "No saved location to refile to"))
(let ((org-refile-keep arg)
(completing-read-function
(lambda (_p coll _pred _rm _ii _h default &rest _)
(lambda (_p _coll _pred _rm _ii _h default &rest _)
default)))
(org-refile)))

3
modules/lang/org/autoload/org.el
View File

@@ -68,8 +68,7 @@
1)))
(pcase direction
(`below
(let ((at-eol (>= (point) (1- (line-end-position))))
org-insert-heading-respect-content)
(let (org-insert-heading-respect-content)
(goto-char (line-end-position))
(org-end-of-subtree)
(insert "\n" (make-string level ?*) " ")))

7
modules/lang/org/config.el
View File

@@ -140,9 +140,10 @@ background (and foreground) match the current theme."
;; HACK Face specs fed directly to `org-todo-keyword-faces' don't respect
;; underlying faces like the `org-todo' face does, so we define our own
;; intermediary faces that extend from org-todo.
(custom-declare-face '+org-todo-active '((t (:inherit (bold font-lock-constant-face org-todo)))) "")
(custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "")
(custom-declare-face '+org-todo-onhold '((t (:inherit (bold warning org-todo)))) "")
(with-no-warnings
(custom-declare-face '+org-todo-active '((t (:inherit (bold font-lock-constant-face org-todo)))) "")
(custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "")
(custom-declare-face '+org-todo-onhold '((t (:inherit (bold warning org-todo)))) ""))
(setq org-todo-keywords
'((sequence
"TODO(t)" ; A task that needs doing & is ready to do