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

config/doom: tweak my agenda

This commit is contained in:
xeruf 2023-12-01 17:41:05 +01:00
parent 4be82b0adb
commit b81a70c474
3 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
.config/doom/config.el
View File

@ -301,7 +301,8 @@ Version 2019-11-04 2021-02-16"
(map! :map org-mode-map (map! :map org-mode-map
:leader :leader
"\\" 'org-ctrl-c-ctrl-c "\\" 'org-ctrl-c-ctrl-c
:desc "Agenda" "oA" (lambda () (interactive) (org-agenda nil "d")) :desc "Agenda" "oa" 'org-agenda
:desc "My Agenda" "oA" (lambda () (interactive) (org-agenda nil "d"))
:localleader :localleader
"C" 'org-clock-in "C" 'org-clock-in
"v" 'org-insert-heading "v" 'org-insert-heading
@ -485,13 +486,15 @@ Version 2019-11-04 2021-02-16"
(use-package! org-journal (use-package! org-journal
;; Prompt after idleness - Focused? ETC? (Pragmatic Programmer) ;; Prompt after idleness - Focused? ETC? (Pragmatic Programmer)
:init :init
(setq org-journal-file-type 'monthly (setq org-journal-file-type 'monthly
org-journal-file-format "%Y%m.org" org-journal-file-format "%Y%m.org"
org-journal-created-property-timestamp-format time-stamp-format org-journal-created-property-timestamp-format time-stamp-format
org-journal-carryover-delete-empty-journal 'always org-journal-carryover-delete-empty-journal 'always
org-journal-date-format (concat "[" time-stamp-bare " %3a]") org-journal-date-format (concat "[" time-stamp-bare " %3a]")
org-journal-time-format "%02H " org-journal-time-format "%02H.%01M "
) )
:config :config
; TODO map njj to open-or-create-entry ; TODO map njj to open-or-create-entry
@ -773,7 +776,7 @@ This is 0.3 red + 0.59 green + 0.11 blue and always between 0 and 255."
:n "q" 'kill-this-buffer :n "q" 'kill-this-buffer
:map image-mode-map :map image-mode-map
"<tab>" 'other-window "<tab>" 'other-window
:n "D" 'doom/delete-this-file ;Follow by dired-find-file to select next? :n "D" 'doom/delete-this-file ; Follow by dired-find-file to select next?
:n "q" 'kill-this-buffer :n "q" 'kill-this-buffer
:n "+" 'image-increase-size :n "+" 'image-increase-size
:n "-" 'image-decrease-size :n "-" 'image-decrease-size
@ -814,11 +817,16 @@ This is 0.3 red + 0.59 green + 0.11 blue and always between 0 and 255."
(call-process "xdg-open" nil 0 nil file) (call-process "xdg-open" nil 0 nil file)
(find-file file)))) (find-file file))))
; maybe add +org/close-fold
(map! :n "<escape>" (lambda () (interactive) (if (eq major-mode 'org-mode) (condition-case nil (org-up-element) (error (dired-jump))) (dired-jump)))
:leader
"." 'dired-jump)
(map! :map dired-mode-map (map! :map dired-mode-map
:n "RET" 'dired-find-file-dwim :n "RET" 'dired-find-file-dwim
:n "l" 'dired-find-file-dwim :n "l" 'dired-find-file-dwim
:n "h" 'dired-up-directory :n "h" 'dired-up-directory
:n "ö" 'evil-ex-search-forward :n "ö" 'evil-ex-search-forward
:localleader :localleader
:desc "Compress/Extract" "c" 'dired-do-compress :desc "Compress/Extract" "c" 'dired-do-compress
:desc "Size information" "s" :desc "Size information" "s"

2
.config/doom/init.el
View File

@ -145,7 +145,7 @@
;;nim ; python + lisp at the speed of c ;;nim ; python + lisp at the speed of c
;;nix ; I hereby declare "nix geht mehr!" ;;nix ; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel ;;ocaml ; an objective camel
(org +pretty +dragndrop +journal +roam2 +pomodoro +noter +present +pandoc) ; organize your plain life in plain text (org +pretty +dragndrop +journal +roam2 +pomodoro +noter +present) ;+pandoc) ; organize your plain life in plain text
;;php ; perl's insecure younger brother ;;php ; perl's insecure younger brother
plantuml ; diagrams for confusing people more plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional ;;purescript ; javascript, but functional

5
.config/doom/user.el##user.janek
View File

@ -19,8 +19,9 @@
(if (file-equal-p command-line-default-directory "~") (if (file-equal-p command-line-default-directory "~")
(setq default-directory org-directory)) (setq default-directory org-directory))
(setq org-agenda-files (append (setq org-agenda-files (append
(directory-files-recursively (expand-file-name "project/" org-directory) ".org\\'") ;(directory-files-recursively (expand-file-name "project/" org-directory) ".org\\'")
(list (expand-file-name "inbox/")) ;(list (expand-file-name "inbox/"))
(list (expand-file-name "agenda/"))
)) ))
)) ))