diff options
Diffstat (limited to '.emacs.d/jd/jd-org.el')
| -rwxr-xr-x | .emacs.d/jd/jd-org.el | 26 |
1 files changed, 21 insertions, 5 deletions
diff --git a/.emacs.d/jd/jd-org.el b/.emacs.d/jd/jd-org.el index ff15b59..1126155 100755 --- a/.emacs.d/jd/jd-org.el +++ b/.emacs.d/jd/jd-org.el | |||
| @@ -5,6 +5,7 @@ | |||
| 5 | 5 | ||
| 6 | (defvar jd/org-home "~/Documents/Org") | 6 | (defvar jd/org-home "~/Documents/Org") |
| 7 | (defvar jd/org-roam-home (concat jd/org-home "/roam")) | 7 | (defvar jd/org-roam-home (concat jd/org-home "/roam")) |
| 8 | (defvar jd/org-roam-agenda (concat jd/org-home "/agenda")) | ||
| 8 | (defvar jd/org-roam-daily-home (concat jd/org-roam-home "/daily")) | 9 | (defvar jd/org-roam-daily-home (concat jd/org-roam-home "/daily")) |
| 9 | 10 | ||
| 10 | (defun jd/org-mode-init () | 11 | (defun jd/org-mode-init () |
| @@ -15,9 +16,21 @@ | |||
| 15 | (defun jd-emacs/org-insert-date (&optional date) | 16 | (defun jd-emacs/org-insert-date (&optional date) |
| 16 | (org-insert-time-stamp (org-read-date nil t (or date "+0d")))) | 17 | (org-insert-time-stamp (org-read-date nil t (or date "+0d")))) |
| 17 | 18 | ||
| 18 | (use-package! org-pomodoro "emacs-org-pomodoro") | 19 | (use-package org-pomodoro |
| 20 | :guix-package "emacs-org-pomodoro") | ||
| 19 | 21 | ||
| 20 | (use-package! org "emacs-org" | 22 | (use-package org-caldav |
| 23 | :guix-package "emacs-org-caldav" | ||
| 24 | :config | ||
| 25 | (setq org-caldav-url "http://jdlugosz.com:5232/jdlugosz" | ||
| 26 | org-caldav-calendar-id "841a6259-8fe5-a178-e326-ddbb7c767e22" | ||
| 27 | org-caldav-inbox (concat jd/org-roam-agenda | ||
| 28 | "/main.org") | ||
| 29 | org-caldav-files nil | ||
| 30 | org-icalendar-timezone "Europe/Warsaw")) | ||
| 31 | |||
| 32 | (use-package org | ||
| 33 | :guix-package "emacs-org" | ||
| 21 | :pin org | 34 | :pin org |
| 22 | :commands (org-capture org-agenda) | 35 | :commands (org-capture org-agenda) |
| 23 | :hook (org-mode . jd/org-mode-init) | 36 | :hook (org-mode . jd/org-mode-init) |
| @@ -122,14 +135,16 @@ | |||
| 122 | 135 | ||
| 123 | (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'jd/org-babel-tangle-config)))) | 136 | (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'jd/org-babel-tangle-config)))) |
| 124 | 137 | ||
| 125 | (use-package! org-superstar "emacs-org-superstar" | 138 | (use-package org-superstar |
| 139 | :guix-package "emacs-org-superstar" | ||
| 126 | :hook (org-mode . org-superstar-mode) | 140 | :hook (org-mode . org-superstar-mode) |
| 127 | :init | 141 | :init |
| 128 | (setq org-superstar-special-todo-items t) | 142 | (setq org-superstar-special-todo-items t) |
| 129 | (setq org-superstar-remove-leading-stars t) | 143 | (setq org-superstar-remove-leading-stars t) |
| 130 | (setq org-superstar-headline-bullets-list '("◉" "○" "●" "○" "●" "○" "●"))) | 144 | (setq org-superstar-headline-bullets-list '("◉" "○" "●" "○" "●" "○" "●"))) |
| 131 | 145 | ||
| 132 | (use-package! org-roam "emacs-org-roam" | 146 | (use-package org-roam |
| 147 | :guix-package "emacs-org-roam" | ||
| 133 | :custom | 148 | :custom |
| 134 | (org-roam-directory (file-truename jd/org-roam-home)) | 149 | (org-roam-directory (file-truename jd/org-roam-home)) |
| 135 | :bind (("C-c n l" . org-roam-buffer-toggle) | 150 | :bind (("C-c n l" . org-roam-buffer-toggle) |
| @@ -194,7 +209,8 @@ | |||
| 194 | 209 | ||
| 195 | (org-roam-db-autosync-mode)) | 210 | (org-roam-db-autosync-mode)) |
| 196 | 211 | ||
| 197 | (use-package! ox-pandoc "emacs-ox-pandoc") | 212 | (use-package ox-pandoc |
| 213 | :guix-package "emacs-ox-pandoc") | ||
| 198 | 214 | ||
| 199 | (provide 'jd-org) | 215 | (provide 'jd-org) |
| 200 | 216 | ||
