Some further modifications

1 files changed, 160 insertions, 142 deletions

diff --git a/emacs_init/dot_emacs.org b/emacs_init/dot_emacs.org
index 5681def..8e5cfd2 100644
--- a/emacs_init/dot_emacs.org
+++ b/emacs_init/dot_emacs.org
@@ -598,6 +598,13 @@ When typing in the M-x, it shows a list of possibilities
 
   (add-hook 'after-init-hook 'global-company-mode)
 #+end_src
+
+#+begin_src emacs-lisp
+  (use-package company-auctex
+    :ensure t
+    )
+#+end_src
+
 * Spelling
 #+begin_src emacs-lisp
   (require 'ispell)
@@ -760,155 +767,159 @@ The =org-agenda-files= configuration has been written in the section [[*Adding _
 because it uses [[*Denote][Denote's]] tags in the file name to detect the project files and add them to the list.
 
 #+begin_src emacs-lisp
-    (use-package org
-      :ensure t
-      :hook
-      (org-mode . flyspell-mode)
-      (org-mode . visual-line-mode)
-      (org-mode . org-indent-mode)
-      :config
-
-      ;; (setq org-adapt-indentation nil)  ;; set the identation method in ORG mode
-
-      (setq org-clock-persist 'history) ;; Clocking projects time settings to save clocking history throughout sessions
-      (org-clock-persistence-insinuate)
-      (setq org-clock-idle-time 10)
-
-      (setq org-clock-out-remove-zero-time-clocks t)  ;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
-      (setq calendar-week-start-day 1)
-
-      ;;
-      ;; Tasks and Todos
-      (setq org-todo-keywords
-            '((sequence "TODO(t)" "NEXT(n)" "WORKING(w)" "DELEGATED(g)" "|" "DONE(d)" "CANCELLED(c)")
-              (sequence "COMPUTING(p)" "|" "FINISHED(f)" "UNFINISHED(u)")))
-      (setq org-todo-keyword-faces
-            (quote (("TODO"      :background "IndianRed1"      :foreground "black" :weight bold)
-                    ("NEXT"      :background "sky blue"        :foreground "black" :weight bold)
-                    ("WORKING"   :background "lemon chiffon"   :foreground "black" :weight bold)
-                    ;;("COMPUTING" :background "lavender"        :foreground "black" :weight bold)
-                    ("DONE"      :background "DarkOliveGreen2" :foreground "black" :weight bold)
-                    ("CANCELLED" :background "DarkOliveGreen2" :foreground "black" :weight bold)
-                    ("DELEGATED" :background "aquamarine2"     :foreground "black" :weight bold))))
-      (setq org-tag-alist
-            '(("@pyrene" . ?p) ("@curta" . ?c) ("@irene" . ?i) ("@project" . ?j) ("@someday" . ?s)))
-
-      ;;
-      ;; TODO states trigers
-      (setq org-todo-state-tags-triggers
-            (quote ((done ("@pyrene") ("@curta") ("@irene") ("@project") ("@someday")))))
-
-      ;;
-      ;; Capture
-      (setq org-directory "/media/Datos/notes/")
-      (setq org-default-notes-file (concat org-directory organizer-file))
-      (global-set-key (kbd "C-c c") 'org-capture)      ;; use C-c c to start capture mode
-
-      ;; capture templates for: TODO tasks, Notes, appointments, meetings
-      (setq org-templates-location-var (concat org-directory organizer-file))
-      (setq org-capture-templates
-            '(("t" "Todo" entry (file+headline org-templates-location-var "Inbox")
-               "* TODO [#C] %? \nCaptured on %U")))
-
-      ;; Refile
-      ;; Targets include this file and any file contributing to the agenda - up to 9 levels deep
-      ;; C-c C-w for refile
-      (setq org-refile-targets (quote ((nil :maxlevel . 3)
-                                       (org-agenda-files :maxlevel . 3))))
-      ;;
-      ;; Agenda customization
-      ;;
-      (global-set-key (kbd "C-c a") 'org-agenda)
-      ;;
-      ;; Format of the columns in the agenda view
-      (setq org-columns-default-format-for-agenda "%65item(Task) %Effort(Effort){:} %clocksum_t(Today) %clocksum(Total)")
-
-      (setq org-agenda-custom-commands
-            '(("x" "My Agenda"  
-               ((agenda "" ((org-agenda-overriding-header "Today's Schedule:")
-                            (org-agenda-span 'day)
-                            (org-agenda-ndays 1)
-                            (org-agenda-start-on-weekday nil)
-                            (org-agenda-start-day "+0d")
-                            (org-agenda-sorting-strategy
-                             (quote
-                              (time-up deadline-down priority-down)))))
-                (tags-todo "-@project/+WORKING"
-                           ((org-agenda-overriding-header "Tasks in progress")
-                            (org-agenda-sorting-strategy
-                             (quote
-                              (priority-down deadline-down effort-down)))))
-                (tags-todo "-@project/+NEXT"
-                           ((org-agenda-overriding-header "Next tasks")
-                            (org-agenda-sorting-strategy
-                             (quote
-                              (priority-down deadline-down effort-down)))
-                            (org-agenda-max-entries 5)))
-                (tags-todo "-@project/+TODO"
-                           ((org-agenda-overriding-header "TODOs")
-                            (org-agenda-sorting-strategy
-                             (quote
-                              (priority-down deadline-down effort-down)))
-                            (org-agenda-max-entries 5)))
-                ;; (agenda ""
-                ;;         ((org-agenda-overriding-header "The Week in a Glance:")
-                ;;          (org-agenda-sorting-strategy
-                ;;           (quote
-                ;;            (time-up deadline-down priority-down)))))
-                (tags "+@capture-@excludeFromAgenda"
-                      ((org-agenda-overriding-header "Items to refile")
-                       ;;(org-tags-match-list-sublevels nil)
-                       (org-agenda-sorting-strategy
-                        (quote
-                         (priority-down time-down)))))
-                (org-agenda-list-stuck-projects)
-                (tags "CLOSED<=\"<-1m>\""
-                      ((org-agenda-overriding-header "Items to archive (older than a month)")
-                       (org-agenda-span
-                        (quote month))))))
-              ("c" "Computations"
-               ((tags-todo "TODO=\"COMPUTING\"+@curta"
-                          ((org-agenda-overriding-header "Computations Curta")
+  (use-package org
+    :ensure t
+    :hook
+    (org-mode . flyspell-mode)
+    (org-mode . visual-line-mode)
+    (org-mode . org-indent-mode)
+    :config
+
+    ;; (setq org-adapt-indentation nil)  ;; set the identation method in ORG mode
+
+    (setq org-clock-persist 'history) ;; Clocking projects time settings to save clocking history throughout sessions
+    (org-clock-persistence-insinuate)
+    (setq org-clock-idle-time 10)
+
+    (setq org-clock-out-remove-zero-time-clocks t)  ;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
+    (setq calendar-week-start-day 1)
+
+    ;;
+    ;; Tasks and Todos
+    (setq org-todo-keywords
+          '((sequence "TODO(t)" "NEXT(n)" "WORKING(w)" "DELEGATED(g)" "|" "DONE(d)" "CANCELLED(c)")
+            (sequence "COMPUTING(p)" "|" "FINISHED(f)" "UNFINISHED(u)")))
+    (setq org-todo-keyword-faces
+          (quote (("TODO"      :background "IndianRed1"      :foreground "black" :weight bold)
+                  ("NEXT"      :background "sky blue"        :foreground "black" :weight bold)
+                  ("WORKING"   :background "lemon chiffon"   :foreground "black" :weight bold)
+                  ("COMPUTING" :background "lavender"        :foreground "black" :weight bold)
+                  ("DONE"      :background "DarkOliveGreen2" :foreground "black" :weight bold)
+                  ("CANCELLED" :background "DarkOliveGreen2" :foreground "black" :weight bold)
+                  ("DELEGATED" :background "aquamarine2"     :foreground "black" :weight bold))))
+    (setq org-tag-alist
+          '(("@pyrene" . ?p) ("@curta" . ?c) ("@irene" . ?i) ("@project" . ?j) ("@someday" . ?s)))
+
+    ;;
+    ;; TODO states trigers
+    (setq org-todo-state-tags-triggers
+          (quote ((done ("@pyrene") ("@curta") ("@irene") ("@project") ("@someday")))))
+
+    ;;
+    ;; Capture
+    (setq org-directory "/media/Datos/notes/")
+    (setq org-default-notes-file (concat org-directory organizer-file))
+    (global-set-key (kbd "C-c c") 'org-capture)      ;; use C-c c to start capture mode
+
+    ;; capture templates for: TODO tasks, Notes, appointments, meetings
+    (setq org-templates-location-var (concat org-directory organizer-file))
+    (setq org-capture-templates
+          '(("t" "Todo" entry (file+headline org-templates-location-var "Inbox")
+             "* TODO [#C] %? \nCaptured on %U")))
+
+    ;; Refile
+    ;; Targets include this file and any file contributing to the agenda - up to 9 levels deep
+    ;; C-c C-w for refile
+    (setq org-refile-targets (quote ((nil :maxlevel . 3)
+                                     (org-agenda-files :maxlevel . 3))))
+    ;;
+    ;; Agenda customization
+    ;;
+    (global-set-key (kbd "C-c a") 'org-agenda)
+    ;;
+    ;; Format of the columns in the agenda view
+    (setq org-columns-default-format-for-agenda "%65item(Task) %Effort(Effort){:} %clocksum_t(Today) %clocksum(Total)")
+    ;; Format the habits tracker in the agenda buffer
+    (setq org-habit-following-days 1)
+    (setq org-habit-graph-column 80)
+
+
+    (setq org-agenda-custom-commands
+          '(("x" "My Agenda"  
+             ((agenda "" ((org-agenda-overriding-header "Today's Schedule:")
+                          (org-agenda-span 'day)
+                          (org-agenda-ndays 1)
+                          (org-agenda-start-on-weekday nil)
+                          (org-agenda-start-day "+0d")
+                          (org-agenda-sorting-strategy
+                           (quote
+                            (time-up deadline-down priority-down)))))
+              (tags-todo "-@project/+WORKING"
+                         ((org-agenda-overriding-header "Tasks in progress")
+                          (org-agenda-sorting-strategy
+                           (quote
+                            (priority-down deadline-down effort-down)))))
+              (tags-todo "-@project/+NEXT"
+                         ((org-agenda-overriding-header "Next tasks")
+                          (org-agenda-sorting-strategy
+                           (quote
+                            (priority-down deadline-down effort-down)))
+                          (org-agenda-max-entries 5)))
+              (tags-todo "-@project/+TODO"
+                         ((org-agenda-overriding-header "TODOs")
+                          (org-agenda-sorting-strategy
+                           (quote
+                            (priority-down deadline-down effort-down)))
+                          (org-agenda-max-entries 5)))
+              ;; (agenda ""
+              ;;         ((org-agenda-overriding-header "The Week in a Glance:")
+              ;;          (org-agenda-sorting-strategy
+              ;;           (quote
+              ;;            (time-up deadline-down priority-down)))))
+              (tags "+@capture-@excludeFromAgenda"
+                    ((org-agenda-overriding-header "Items to refile")
+                     ;;(org-tags-match-list-sublevels nil)
+                     (org-agenda-sorting-strategy
+                      (quote
+                       (priority-down time-down)))))
+              (org-agenda-list-stuck-projects)
+              (tags "CLOSED<=\"<-1m>\""
+                    ((org-agenda-overriding-header "Items to archive (older than a month)")
+                     (org-agenda-span
+                      (quote month))))))
+            ("c" "Computations"
+             ((tags-todo "TODO=\"COMPUTING\"+@curta"
+                        ((org-agenda-overriding-header "Computations Curta")
+                         (org-agenda-sorting-strategy
+                          (quote
+                           (priority-down deadline-down effort-down)))))
+              (tags-todo "TODO=\"COMPUTING\"+@pyrene"
+                          ((org-agenda-overriding-header "Computations Pyrene")
                            (org-agenda-sorting-strategy
                             (quote
                              (priority-down deadline-down effort-down)))))
-                (tags-todo "TODO=\"COMPUTING\"+@pyrene"
-                            ((org-agenda-overriding-header "Computations Pyrene")
-                             (org-agenda-sorting-strategy
-                              (quote
-                               (priority-down deadline-down effort-down)))))
-                (tags-todo "TODO=\"COMPUTING\"+@irene"
-                            ((org-agenda-overriding-header "Computations TGCC")
-                             (org-agenda-sorting-strategy
-                              (quote
-                               (priority-down deadline-down effort-down)))))
-                ))
-              ("p" "Projects"
-               ((tags-todo "+@project/-DELEGATED-DONE-CANCELLED"
-                      ((org-agenda-overriding-header "Working on:")
-                       (org-agenda-sorting-strategy
-                        (quote
-                         (priority-down deadline-down effort-down)))))
-                (tags-todo "@project+@someday/-DELEGATED-DONE-CANCELLED"
-                           ((org-agenda-overriding-header "Future Projects:")
-                            (org-agenda-sorting-strategy
-                             (quote
-                              (priority-down deadline-down effort-down)))))
-                (org-agenda-list-stuck-projects)
-                ))
+              (tags-todo "TODO=\"COMPUTING\"+@irene"
+                          ((org-agenda-overriding-header "Computations TGCC")
+                           (org-agenda-sorting-strategy
+                            (quote
+                             (priority-down deadline-down effort-down)))))
+              ))
+            ("p" "Projects"
+             ((tags-todo "+@project/-DELEGATED-DONE-CANCELLED"
+                    ((org-agenda-overriding-header "Working on:")
+                     (org-agenda-sorting-strategy
+                      (quote
+                       (priority-down deadline-down effort-down)))))
+              (tags-todo "@project+@someday/-DELEGATED-DONE-CANCELLED"
+                         ((org-agenda-overriding-header "Future Projects:")
+                          (org-agenda-sorting-strategy
+                           (quote
+                            (priority-down deadline-down effort-down)))))
+              (org-agenda-list-stuck-projects)
               ))
+            ))
 
-      (setq org-stuck-projects
-            '("+@project/-DONE-CANCELLED-DELEGATED"   ;; entries considered as projects
-              ("NEXT" "WORKING")                      ;; if none of these are present in the subtree, the project is stuck
-              ("@someday")                            ;; list of tags identifying non-stuck projects
-              ""))                                    ;; arbitrary regular expression matching non-stuck projects
+    (setq org-stuck-projects
+          '("+@project/-DONE-CANCELLED-DELEGATED"   ;; entries considered as projects
+            ("NEXT" "WORKING")                      ;; if none of these are present in the subtree, the project is stuck
+            ("@someday")                            ;; list of tags identifying non-stuck projects
+            ""))                                    ;; arbitrary regular expression matching non-stuck projects
 
-      ;; as the @project tag defines what is a project, I do not want all the sub-trees are marked also as projects
-      ;; I want to manually set what are the projects 
-      (setq org-tags-exclude-from-inheritance '("@project" "project" "blog" "@excludeFromAgenda"))
+    ;; as the @project tag defines what is a project, I do not want all the sub-trees are marked also as projects
+    ;; I want to manually set what are the projects 
+    (setq org-tags-exclude-from-inheritance '("@project" "project" "blog" "@excludeFromAgenda"))
 
-      )
+    )
 #+end_src
 
 Furthermore, to automatically set the values displayed in the agenda identifying the file from where the task is being pulled from to the "humanized" name of the file in the file-system, Boris Buliga proposed the following configuration in [[https://d12frosted.io/posts/2020-06-24-task-management-with-roam-vol2.html][this blog post]]. Nevertheless, after some time using it, I removed it from my configuration. A simpler solution is just to specify the =#+category:= value in the heading of the =org= file
@@ -1057,6 +1068,13 @@ For LaTeX it is possible to specify other options and customizations, and if it
 way to do so exclusively using Org-cite, I have come to find the use of =#+LATEX_HEADER:= to add LaTeX
 options. I have created an Skeleton in [[*Org mode and note taking][Org mode and note taking]] section which is called
 =skeleton-org-export-latex-options= to handle automatically the necessary options to export to as I want.
+* Calendar and Diary
+
+The following option displays by default the dates which are holidays in a different face in the calendar. This can be achieved also pressing =x= in the calendar buffer. To remove this behavior use the key =u= in the calendar buffer. For more information see section "28.6 Holidays" in the Emacs Manual.
+
+#+begin_src emacs-lisp
+(setq calendar-mark-holidays-flag t)
+#+end_src
 
 * ERC