Org goodies

This commit is contained in:
Andrea Ciceri 2023-12-27 01:43:05 +01:00
parent 9e9b01ff4e
commit d64f306db7
Signed by: aciceri
SSH key fingerprint: SHA256:/AagBweyV4Hlfg9u092n8hbHwD5fcB6A3qhDiDA65Rg

31
init.el
View file

@ -710,19 +710,26 @@
entry (file+headline "~/org/notes.org" "Random Notes") entry (file+headline "~/org/notes.org" "Random Notes")
"** %?" "** %?"
:empty-lines 0) :empty-lines 0)
))) ))
(org-auto-align-tags nil)
(org-tags-column 0)
(org-catch-invisible-edits 'show-and-error)
(org-special-ctrl-a/e t)
(org-insert-heading-respect-content t)
(org-pretty-entities t)
(org-ellipsis ""))
:bind (("C-c o l" . org-store-link) :bind (("C-c o l" . org-store-link)
("C-c o a" . org-agenda) ("C-c o a" . org-agenda)
("C-c o c" . org-capture) ("C-c o c" . org-capture)
("C-c b o" . org-switchb)) ("C-c b o" . org-switchb))
:config :config
(defun ccr/org-capture (key) (defun ccr/org-capture (key)
"Capture a note using the template KEY and close the frame when done. "Capture a note using the template KEY and close the frame when done.
This is meant to be an helper to be called from the window manager." This is meant to be an helper to be called from the window manager."
(interactive) (interactive)
(org-capture nil key) (org-capture nil key)
(add-hook 'kill-buffer-hook 'delete-frame nil 't) ;; destroy frame on exit (add-hook 'kill-buffer-hook 'delete-frame nil 't) ;; destroy frame on exit
(delete-other-windows)) (delete-other-windows))
;; FIXME the following doesn't work when using the daemon, it should be executed only ;; FIXME the following doesn't work when using the daemon, it should be executed only
;; one time after the first frame is created ;; one time after the first frame is created
(set-face-font 'variable-pitch "Dejavu Serif 14") (set-face-font 'variable-pitch "Dejavu Serif 14")
@ -741,8 +748,20 @@ This is meant to be an helper to be called from the window manager."
(use-package org-agenda (use-package org-agenda
:custom :custom
(org-agenda-files '("~/org")) (org-agenda-files '("~/org"))
(org-agenda-tags-column 0)
(org-agenda-block-separator ?─)
(org-agenda-time-grid
'((daily today require-timed)
(800 1000 1200 1400 1600 1800 2000)
" ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄"))
(org-agenda-current-time-string
"◀── now ─────────────────────────────────────────────────")
:bind (("C-c o a" . org-agenda))) :bind (("C-c o a" . org-agenda)))
(use-package org-modern
:after org
:init (global-org-modern-mode))
(use-package org-roam) (use-package org-roam)
(use-package consult-org-roam (use-package consult-org-roam