diff --git a/unravel-emacs.org b/unravel-emacs.org
index 9a20e3d..821d3ec 100644
--- a/unravel-emacs.org
+++ b/unravel-emacs.org
@@ -685,7 +685,7 @@ Another section defines some complementary functionality
((after-init . fontaine-mode)
(after-init . (lambda ()
;; Set last preset or fall back to desired style from `fontaine-presets'.
- (fontaine-set-preset (or (fontaine-restore-latest-preset) 'regular)))))
+ (fontaine-set-preset (or (fontaine-restore-latest-preset) 'large)))))
:config
;; This is defined in Emacs C code: it belongs to font settings.
(setq x-underline-at-descent-line nil)
@@ -2277,7 +2277,8 @@ on how I use Org.
(use-package org
:ensure nil
:init
- (setq org-directory (expand-file-name "~/Documents/org/"))
+ (setq org-directory (expand-file-name "~/Tresors/Documents/diary"))
+ (setq org-default-notes-file (expand-file-name "brain/daily.org" org-directory))
(setq org-imenu-depth 7)
(add-to-list 'safe-local-variable-values '(org-hide-leading-stars . t))
@@ -2410,38 +2411,37 @@ the capture phase ([[#h:f8f06938-0dfe-45c3-b4cf-996d36cba82d][The =unravel-org.e
#+end_quote
#+begin_src emacs-lisp :tangle "unravel-modules/unravel-org.el"
-;;;; refile, todo
-(use-package org
- :ensure nil
- :config
- (setq org-refile-targets
- '((org-agenda-files . (:maxlevel . 2))
- (nil . (:maxlevel . 2))))
- (setq org-refile-use-outline-path t)
- (setq org-refile-allow-creating-parent-nodes 'confirm)
- (setq org-refile-use-cache t)
- (setq org-reverse-note-order nil)
- ;; ;; NOTE 2023-04-07: Leaving this here for demo purposes.
- ;; (setq org-todo-keywords
- ;; '((sequence "TODO(t)" "MAYBE(m)" "WAIT(w@/!)" "|" "CANCEL(c@)" "DONE(d!)")
- ;; (sequence "COACH(k)" "|" "COACHED(K!)")))
- (setq org-todo-keywords
- '((sequence "TODO(t)" "|" "CANCEL(c@)" "DONE(d!)")
- (sequence "COACH(k)" "|" "COACHED(K!)")))
+ ;;;; refile, todo
+ (use-package org
+ :ensure nil
+ :config
+ (setq org-refile-targets
+ '((org-agenda-files . (:maxlevel . 2))
+ (nil . (:maxlevel . 2))))
+ (setq org-refile-use-outline-path t)
+ (setq org-refile-allow-creating-parent-nodes 'confirm)
+ (setq org-refile-use-cache t)
+ (setq org-reverse-note-order nil)
+ ;; ;; NOTE 2023-04-07: Leaving this here for demo purposes.
+ ;; (setq org-todo-keywords
+ ;; '((sequence "TODO(t)" "MAYBE(m)" "WAIT(w@/!)" "|" "CANCEL(c@)" "DONE(d!)")
+ ;; (sequence "COACH(k)" "|" "COACHED(K!)")))
+ (setq org-todo-keywords
+ '((sequence "TODO(t)" "|" "CANCEL(c@)" "DONE(d!)")))
- (defface prot/org-bold-done
- '((t :inherit (bold org-done)))
- "Face for bold DONE-type Org keywords.")
+ (defface prot/org-bold-done
+ '((t :inherit (bold org-done)))
+ "Face for bold DONE-type Org keywords.")
- (setq org-todo-keyword-faces
- '(("CANCEL" . prot/org-bold-done)))
- (setq org-use-fast-todo-selection 'expert)
+ (setq org-todo-keyword-faces
+ '(("CANCEL" . prot/org-bold-done)))
+ (setq org-use-fast-todo-selection 'expert)
- (setq org-fontify-done-headline nil)
- (setq org-fontify-todo-headline nil)
- (setq org-fontify-whole-heading-line nil)
- (setq org-enforce-todo-dependencies t)
- (setq org-enforce-todo-checkbox-dependencies t))
+ (setq org-fontify-done-headline nil)
+ (setq org-fontify-todo-headline nil)
+ (setq org-fontify-whole-heading-line nil)
+ (setq org-enforce-todo-dependencies t)
+ (setq org-enforce-todo-checkbox-dependencies t))
#+end_src
** The =unravel-org.el= Org heading tags
@@ -2449,6 +2449,7 @@ the capture phase ([[#h:f8f06938-0dfe-45c3-b4cf-996d36cba82d][The =unravel-org.e
:CUSTOM_ID: h:81de4e32-a1af-4e1f-9e10-90eb0c90afa2
:END:
+#+begin_quote
Each Org heading can have one or more tags associated with it, while
all headings inherit any potential =#+FILETAGS=. We can add tags to a
heading when the cursor is over it by typing the ever flexible =C-c C-c=.
@@ -2461,17 +2462,7 @@ Org agenda, in particular, provides commands to filter tasks by tag:
- [[#h:024dd541-0061-4a10-b10b-b17dcd4794b9][The =unravel-org.el= Org to-do and refile settings]]
- [[#h:7fe87b83-2815-4617-a5f9-d3417dd9d248][The =unravel-org.el= Org agenda settings]]
-
-The user option ~org-tag-alist~ lets us specify tags we always want to
-use, though we can write tags per file as well by using the =#+TAGS=
-keyword. I do the latter as a global list of tags is not useful in my
-case. For example, when I wan checking my =coach.org= file for the
-coaching sessions I provide, I do not need to see any of the tags that
-make sense in my general =tasks.org=.
-
-Note that in the settings below I disable the auto-alignment that Org
-does where it shifts tags to the right of the heading. I do not like
-it.
+#+end_quote
#+begin_src emacs-lisp :tangle "unravel-modules/unravel-org.el"
;;;; tags
@@ -2488,6 +2479,7 @@ it.
:CUSTOM_ID: h:0884658e-9eb5-47e3-9338-66e09004a1a0
:END:
+#+begin_quote
Org can keep a record of state changes, such as when we set an entry
marked with the =TODO= keyword as =DONE= or when we reschedule an
appointment ([[#h:7fe87b83-2815-4617-a5f9-d3417dd9d248][The =unravel-org.el= Org agenda settings]]). This data
@@ -2495,17 +2487,18 @@ is stored in a =LOGBOOK= drawer right below the heading. I choose to
keep track of this information, as it is sometimes useful to capture
mistakes or figure out intent in the absence of further clarification
(though I do tend to write why something happened).
+#+end_quote
#+begin_src emacs-lisp :tangle "unravel-modules/unravel-org.el"
-;;;; log
-(use-package org
- :ensure nil
- :config
- (setq org-log-done 'time)
- (setq org-log-into-drawer t)
- (setq org-log-note-clock-out nil)
- (setq org-log-redeadline 'time)
- (setq org-log-reschedule 'time))
+ ;;;; log
+ (use-package org
+ :ensure nil
+ :config
+ (setq org-log-done 'time)
+ (setq org-log-into-drawer t)
+ (setq org-log-note-clock-out nil)
+ (setq org-log-redeadline 'time)
+ (setq org-log-reschedule 'time))
#+end_src
** The =unravel-org.el= Org link settings
@@ -2839,7 +2832,7 @@ As for my workflow, here is an overview:
:CUSTOM_ID: h:7fe87b83-2815-4617-a5f9-d3417dd9d248
:END:
-[ Watch: [[https://protesilaos.com/codelog/2021-12-09-emacs-org-block-agenda/][Demo of my custom Org block agenda]] (2021-12-09). It has
+[ Watch Prot's talk: [[https://protesilaos.com/codelog/2021-12-09-emacs-org-block-agenda/][Demo of my custom Org block agenda]] (2021-12-09). It has
changed a bit since then, but the idea is the same. ]
With the Org agenda, we can visualise the tasks we have collected in
diff --git a/unravel-modules/unravel-theme.el b/unravel-modules/unravel-theme.el
index ebf65f9..ee7074f 100644
--- a/unravel-modules/unravel-theme.el
+++ b/unravel-modules/unravel-theme.el
@@ -158,7 +158,7 @@
((after-init . fontaine-mode)
(after-init . (lambda ()
;; Set last preset or fall back to desired style from `fontaine-presets'.
- (fontaine-set-preset (or (fontaine-restore-latest-preset) 'regular)))))
+ (fontaine-set-preset (or (fontaine-restore-latest-preset) 'large)))))
:config
;; This is defined in Emacs C code: it belongs to font settings.
(setq x-underline-at-descent-line nil)