Some modifications in the Agenda Buffer, Day at top and Week down

1 files changed, 43 insertions, 33 deletions

diff --git a/emacs_init/dot_emacs.org b/emacs_init/dot_emacs.org
index 5099976..925a40c 100644
--- a/emacs_init/dot_emacs.org
+++ b/emacs_init/dot_emacs.org
@@ -127,10 +127,7 @@ Line indicator options, also employing a package maintained by [[https://protesi
   ;; (add-hook 'text-mode-hook 'auto-fill-mode)
 #+end_src
 
-Instead of actually changing the text of the buffer by introducing end of lines when using =auto-fill-mode=,
-it is possible to use the option =visual-line-mode=, which can be further extended with the package
-=visual-fill-column=. [[https://github.com/joostkremers/visual-fill-column][This last package]] makes possible that instead of wrapping lines at the window edge,
-which is the standard behavior of =visual-line-mode=, it wraps lines at =fill-column=.
+Instead of actually changing the text of the buffer by introducing end of lines when using =auto-fill-mode=, it is possible to use the option =visual-line-mode=, which can be further extended with the package =visual-fill-column=. [[https://github.com/joostkremers/visual-fill-column][This last package]] makes possible that instead of wrapping lines at the window edge, which is the standard behavior of =visual-line-mode=, it wraps lines at =fill-column=.
 
 #+begin_src emacs-lisp
   (use-package visual-fill-column
@@ -157,16 +154,18 @@ And finally use the =adaptive-wrap= package to avoid that the next line, when ar
 =visual-fill-column=, be more on the left than its parent, in case the parent was indented.
 
 #+begin_src emacs-lisp
-  (use-package adaptive-wrap
-    :ensure t
-    :after visual-fill-column
-    :hook
-    (visual-line-mode . adaptive-wrap-prefix-mode)
-    :config
-    (setq-default adaptive-wrap-extra-indent 0)
-    )
+  ;; (use-package adaptive-wrap
+  ;;   :ensure t
+  ;;   :after visual-fill-column
+  ;;   :hook
+  ;;   (visual-line-mode . adaptive-wrap-prefix-mode)
+  ;;   :config
+  ;;   (setq-default adaptive-wrap-extra-indent 0)
+  ;;   )
 #+end_src
 
+Sin embargo, este paquete parece no combinar muy bien con =org-indent=, y cuando =org-indent= mueve un párrafo hacia la derecha para identarlo, pues sólo lo hace en la primera línea, quedando el resto pegadas al margen.
+
 ** Edit the configuration file
 
 Set =C-c e= to edit init file:
@@ -696,12 +695,12 @@ because it uses [[*Denote][Denote's]] tags in the file name to detect the projec
                   ("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) ("@needs_review" . ?n)))
+          '(("@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") ("@needs_review")))))
+          (quote ((done ("@pyrene") ("@curta") ("@irene") ("@project") ("@someday")))))
 
     ;;
     ;; Capture
@@ -713,7 +712,7 @@ because it uses [[*Denote][Denote's]] tags in the file name to detect the projec
     (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] %? ")))
+             "* TODO [#C] %? \nCaptured on %U")))
 
     ;; Refile
     ;; Targets include this file and any file contributing to the agenda - up to 9 levels deep
@@ -730,10 +729,14 @@ because it uses [[*Denote][Denote's]] tags in the file name to detect the projec
 
     (setq org-agenda-custom-commands
           '(("x" "My Agenda"  
-             ((agenda ""
-                      ((org-agenda-sorting-strategy
-                        (quote
-                         (time-up deadline-down priority-down)))))
+             ((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 "TODO=\"WORKING\""
                          ((org-agenda-overriding-header "Tasks in progress")
                           (org-agenda-sorting-strategy
@@ -751,6 +754,11 @@ because it uses [[*Denote][Denote's]] tags in the file name to detect the projec
                            (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)
@@ -782,10 +790,10 @@ because it uses [[*Denote][Denote's]] tags in the file name to detect the projec
             ))
 
     (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
-            nil                                   ;; list of tags identifying non-stuck projects
-            ""))                                  ;; arbitrary regular expression matching non-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 
@@ -794,17 +802,10 @@ because it uses [[*Denote][Denote's]] tags in the file name to detect the projec
     )
 #+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
-being added to the agenda, and that value will be the one appearing in the agenda dispatcher identifying that
-specific file. This solution is the implemented in =org-mode= by default, and therefore the more
-straightforward.
+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
+being added to the agenda, and that value will be the one appearing in the agenda dispatcher identifying that specific file. This solution is the implemented in =org-mode= by default, and therefore the more straightforward.
 
-It has to be taken into account that a field of 12 characters is designed to show the categories, so
-=#+category= values longer than 10 characters should not be used to maintain beauty and order in the agenda
-dispatcher.
+It has to be taken into account that a field of 12 characters is designed to show the categories, so =#+category= values longer than 10 characters should not be used to maintain beauty and order in the agenda dispatcher.
 
 See also https://orgmode.org/manual/Categories.html for more.
 
@@ -857,6 +858,12 @@ Remove tags from the right columns of the agenda dispatcher.
   (setq org-agenda-remove-tags t)
 #+end_src
 
+Do not start the Agenda on Mondays, but the day you are on
+
+#+begin_src emacs-lisp
+(setq org-agenda-start-on-weekday nil)
+#+end_src
+
 ** Org-bullets
 
 #+BEGIN_SRC emacs-lisp
@@ -874,6 +881,8 @@ Remove tags from the right columns of the agenda dispatcher.
     )
 #+END_SRC
 
+** Visual tweaks
+
 ** Org Tempo
 
 For Structure Templates [[https://orgmode.org/manual/Structure-Templates.html][(see Org webpage]])
@@ -884,6 +893,7 @@ For Structure Templates [[https://orgmode.org/manual/Structure-Templates.html][(
   (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
   (add-to-list 'org-structure-template-alist '("py" . "src python"))
 #+end_src
+
 ** Org Export
 
 Enable Markdown export back-end (see [[https://orgmode.org/manual/Exporting.html][Org-export manual]])