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

Insult byte-compiler's mom

Browse source 
Yeah, that shut him up.
This commit is contained in:
Henrik Lissner 2019-09-20 23:10:53 -04:00
parent 5f7add8360
commit e10cd8cf2e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
14 changed files with 126 additions and 122 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -254,7 +254,7 @@ underlying, modified buffer. This fixes that."
"I believe Org's native attachment system is over-complicated and litters
files with metadata I don't want. So I wrote my own, which:
+ Places attachments in a centralized location (`org-attach-directory' in
+ Places attachments in a centralized location (`org-attach-id-dir' in
`org-directory').
+ Adds attach:* link abbreviation for quick links to these files from anywhere.
+ Use `+org-attach/sync' to index all attachments in `org-directory' that use
@ -268,30 +268,30 @@ Some commands of interest:
+ `+org-attach/file'
+ `+org-attach/url'
+ `+org-attach/sync'"
(setq org-attach-directory (doom-path org-directory org-attach-directory))
(setq org-attach-id-dir (doom-path org-directory org-attach-id-dir))
;; A shorter link to attachments
(add-to-list 'org-link-abbrev-alist
(cons "attach"
(abbreviate-file-name org-attach-directory)))
(abbreviate-file-name org-attach-id-dir)))
(org-link-set-parameters
"attach"
:follow (lambda (link) (find-file (doom-path org-attach-directory link)))
:follow (lambda (link) (find-file (doom-path org-attach-id-dir link)))
:complete (lambda (&optional _arg)
(+org--relpath (+org-link-read-file "attach" org-attach-directory)
org-attach-directory))
(+org--relpath (+org-link-read-file "attach" org-attach-id-dir)
org-attach-id-dir))
:face (lambda (link)
(if (file-exists-p (expand-file-name link org-attach-directory))
(if (file-exists-p (expand-file-name link org-attach-id-dir))
'org-link
'error)))
(after! projectile
(add-to-list 'projectile-globally-ignored-directories org-attach-directory))
(add-to-list 'projectile-globally-ignored-directories org-attach-id-dir))
(after! recentf
(add-to-list 'recentf-exclude
(lambda (file) (file-in-directory-p file org-attach-directory)))))
(lambda (file) (file-in-directory-p file org-attach-id-dir)))))
(defun +org-init-centralized-exports-h ()
@ -455,7 +455,7 @@ eldoc string."
for n from 0
for face = (nth (% n org-n-level-faces) org-level-faces)
collect
(org-add-props (replace-regexp-in-string org-any-link-re "\\4" part)
(org-add-props (replace-regexp-in-string org-link-any-re "\\4" part)
nil 'face `(:foreground ,(face-foreground face nil t) :weight bold)))
separator)))
@ -599,7 +599,7 @@ between the two."
"t" #'org-agenda-todo))
(defun +org-init-keybinds-for-evil-h (&rest args)
(defun +org-init-keybinds-for-evil-h (&rest _)
"TODO"
(when (featurep! :editor evil +everywhere)
(use-package! evil-org
@ -793,7 +793,7 @@ compelling reason, so..."
:preface
;; Change org defaults (should be set before org loads)
(defvar org-directory "~/org/")
(defvar org-attach-directory ".attach/")
(defvar org-attach-id-dir ".attach/")
(setq org-clock-persist-file (concat doom-etc-dir "org-clock-save.el")
org-publish-timestamp-directory (concat doom-cache-dir "org-timestamps/")
@ -848,7 +848,8 @@ compelling reason, so..."
;; In case the user has eagerly loaded org from their configs
(when (and (featurep 'org)
(not doom-reloading-p))
(not doom-reloading-p)
(not byte-compile-current-file))
(message "`org' was already loaded by the time lang/org loaded, this may cause issues")
(run-hooks 'org-load-hook))