janek
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

config/doom: add survey-mode to invoke org-journal on idle

This commit is contained in:
xeruf 2021-11-23 22:22:06 +01:00
parent 69a8f425d5
commit 6ee0b19f26
1 changed files with 45 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
.config/doom/config.el
View File

@ -168,7 +168,7 @@ Version 2019-11-04 2021-02-16"
(setq pdf-misc-print-programm "/usr/bin/lpr") (setq pdf-misc-print-programm "/usr/bin/lpr")
(setq org-directory (expand-file-name "2-standards/box" user-data-dir) (setq org-directory (expand-file-name "2-standards/box/" user-data-dir)
default-directory org-directory default-directory org-directory
org-roam-directory org-directory org-roam-directory org-directory
custom-emacs-data-dir (expand-file-name "data" doom-private-dir)) custom-emacs-data-dir (expand-file-name "data" doom-private-dir))
@ -177,27 +177,22 @@ Version 2019-11-04 2021-02-16"
:config :config
(add-to-list 'recentf-exclude "writing\\/tug") (add-to-list 'recentf-exclude "writing\\/tug")
(add-to-list 'recentf-exclude "\\.\\(sync\\|stversions\\|stfolder\\)") (add-to-list 'recentf-exclude "\\.\\(sync\\|stversions\\|stfolder\\)")
(add-to-list 'recentf-list "/home/janek/data/4-incubator/downloads/") (add-to-list 'recentf-list (expand-file-name "4-incubator/downloads/" user-data-dir))
;(setq recentf-keep '(recentf-keep-default-predicate file-remote-p)) ;(setq recentf-keep '(recentf-keep-default-predicate file-remote-p))
) )
(use-package! projectile (use-package! projectile
:config :init
(add-to-list 'projectile-ignored-projects (expand-file-name user-data-dir))
(add-to-list 'projectile-ignored-projects user-data-dir) (add-to-list 'projectile-ignored-projects user-data-dir)
(let ((default-directory user-data-dir)) (projectile-add-known-project (expand-file-name "music/" user-data-dir))
(add-to-list 'projectile-known-projects (expand-file-name "music/") t) (projectile-add-known-project org-directory)
(add-to-list 'projectile-known-projects (concat org-directory "/") t) (projectile-register-project-type 'org '(".orgids"))
) (setq projectile-project-search-path '((org-directory . 0) ((expand-file-name "1-projects" user-data-dir) . 3)))
) )
;;;; ORG ;;;; ORG
(setq org-journal-file-type 'weekly
org-journal-file-format "%Y%m%d.org"
org-journal-created-property-timestamp-format "[%Y-%m-%d]"
org-journal-carryover-delete-empty-journal 'always
)
(use-package! org (use-package! org
:bind (:map org-mode-map :bind (:map org-mode-map
("C-c b" . org-cycle-list-bullet) ("C-c b" . org-cycle-list-bullet)
@ -348,8 +343,40 @@ Version 2019-11-04 2021-02-16"
(define-key org-mode-map (kbd "S-<tab>") 'ct/org-shifttab) (define-key org-mode-map (kbd "S-<tab>") 'ct/org-shifttab)
) )
(use-package! org-journal
;; Prompt after idleness - Focused? ETC? (Pragmatic Programmer)
:init
(setq org-journal-file-type 'weekly
org-journal-file-format "%Y%m%d.org"
org-journal-created-property-timestamp-format "[%Y-%m-%d]"
org-journal-carryover-delete-empty-journal 'always
)
:config
(defvar my/survey-mode-journal--timer nil)
(defvar my/survey-mode-journal--timer-interval 300)
(define-minor-mode my/survey-mode
"Toggle automatic `org-roam-db-sync' when Emacs is idle.
Referece: `auto-save-visited-mode'"
:group 'org-roam
:global t
(when my/survey-mode-journal--timer (cancel-timer my/survey-mode-journal--timer))
(setq my/survey-mode-journal--timer
(when my/survey-mode
(run-with-idle-timer
my/survey-mode-journal--timer-interval :repeat
#'my/journal-survey))))
(defun my/journal-survey ()
"Update org-roam database and sync ids to org if in org-mode"
(interactive)
(unless (equal major-mode 'org-journal-mode) (call-interactively 'org-journal-new-entry)))
(my/survey-mode)
; TODO journal at start (call-interactively 'org-journal-new-entry)
)
(use-package! org-roam (use-package! org-roam
:defer 5 :defer 6
:config :config
(require 'org-roam-protocol) (require 'org-roam-protocol)
@ -393,10 +420,8 @@ Version 2019-11-04 2021-02-16"
(when (equal major-mode 'org-mode) (org-roam-db-sync) (let ((org-display-remote-inline-images 'skip)) (org-roam-update-org-id-locations)) (org-mode-restart))) (when (equal major-mode 'org-mode) (org-roam-db-sync) (let ((org-display-remote-inline-images 'skip)) (org-roam-update-org-id-locations)) (org-mode-restart)))
(my/auto-org-roam-db-sync-mode) (my/auto-org-roam-db-sync-mode)
;; Prompt after idleness - Focused? ETC? (Pragmatic Programmer) - org-journal
) )
(after! ox (after! ox
(setq org-latex-toc-command "\\tableofcontents*\n\n") (setq org-latex-toc-command "\\tableofcontents*\n\n")
;; Insert linebreak after headings tagged with "newpage" when exporting through latex - https://emacs.stackexchange.com/a/30892 ;; Insert linebreak after headings tagged with "newpage" when exporting through latex - https://emacs.stackexchange.com/a/30892
@ -522,14 +547,15 @@ Version 2019-11-04 2021-02-16"
:map ranger-mode-map :map ranger-mode-map
:n "r" 'ranger :n "r" 'ranger
) )
)
(use-package! diredfl
:config (add-to-list 'diredfl-compressed-extensions ".nupkg")
) )
(after! dired-aux (after! dired-aux
(add-to-list 'dired-compress-file-suffixes '("\\.nupkg\\'" "" "unzip -o -d %o %i")) (add-to-list 'dired-compress-file-suffixes '("\\.nupkg\\'" "" "unzip -o -d %o %i"))
(add-to-list 'dired-compress-file-suffixes '("\\.tar\\'" "" "tar xf %i")) (add-to-list 'dired-compress-file-suffixes '("\\.tar\\'" "" "tar xf %i"))
) )
(use-package! diredfl
:config (add-to-list 'diredfl-compressed-extensions ".nupkg")
)
(after! all-the-icons (after! all-the-icons
(add-to-list 'all-the-icons-extension-icon-alist '("nupkg" all-the-icons-octicon "file-zip" :v-adjust 0.0 :face all-the-icons-lmaroon)) (add-to-list 'all-the-icons-extension-icon-alist '("nupkg" all-the-icons-octicon "file-zip" :v-adjust 0.0 :face all-the-icons-lmaroon))
) )