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 | ||