29 lines
1.0 KiB
Plaintext
29 lines
1.0 KiB
Plaintext
;;; user.el -*- lexical-binding: t; -*-
|
|
|
|
;; Some functionality uses this to identify you,
|
|
;; e.g. GPG configuration, email clients, file templates and snippets.
|
|
(setq user-full-name "Janek"
|
|
user-mail-address "27jf@pm.me")
|
|
|
|
(let ((box (expand-file-name "2-box/" user-data-dir)))
|
|
(if (file-exists-p box)
|
|
(setq org-directory box
|
|
org-roam-directory org-directory
|
|
))
|
|
)
|
|
|
|
(if (and org-directory (file-exists-p org-directory))
|
|
(setq default-directory org-directory
|
|
org-agenda-files (append
|
|
(directory-files-recursively (expand-file-name "project/") "\\`[^.]*\\'" 't)
|
|
(list (expand-file-name "inbox/"))
|
|
)))
|
|
|
|
(use-package! recentf
|
|
:config
|
|
(add-to-list 'recentf-exclude "writing\\/tug")
|
|
(add-to-list 'recentf-exclude "\\.\\(sync\\|stversions\\|stfolder\\)")
|
|
(add-to-list 'recentf-list (expand-file-name "5-incubator/downloads/" user-data-dir))
|
|
(setq recentf-keep '(recentf-keep-default-predicate file-remote-p "/ssh:.*"))
|
|
)
|