171 lines
6.2 KiB
Org Mode
171 lines
6.2 KiB
Org Mode
#+TITLE: Org Agenda Configuration
|
|
#+AUTHOR: Howard X. Abrams
|
|
#+DATE: 2020-09-18
|
|
#+FILETAGS: :emacs:
|
|
|
|
A literate programming configuration for fancy agenda and todo lists.
|
|
|
|
#+BEGIN_SRC emacs-lisp :exports none
|
|
;;; ha-agendas.el --- A literate programming configuration for fancy agenda and todo lists. -*- lexical-binding: t; -*-
|
|
;;
|
|
;; Copyright (C) 2020 Howard X. Abrams
|
|
;;
|
|
;; Author: Howard X. Abrams <http://gitlab.com/howardabrams>
|
|
;; Maintainer: Howard X. Abrams
|
|
;; Created: September 18, 2020
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;; *NB:* Do not edit this file. Instead, edit the original literate file at:
|
|
;; ~/other/hamacs/ha-agendas.org
|
|
;; And tangle the file to recreate this one.
|
|
;;
|
|
;;; Code:
|
|
#+END_SRC
|
|
* Introduction
|
|
All the code we describe in this file needs loading /after/ org.
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
(with-eval-after-load "org"
|
|
(add-to-list 'org-modules 'org-protocol))
|
|
#+END_SRC
|
|
* Grouping
|
|
Typical agendas have an /order/ to them, but the [[https://github.com/alphapapa/org-super-agenda][org-super-agenda project]] allows you to get specific as well as group them under headings.
|
|
|
|
Unless you specify otherwise, this is the grouping we'll use:
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package org-super-agenda
|
|
:after org
|
|
:init
|
|
(setq org-super-agenda-date-format "%A (%e)"
|
|
org-super-agenda-groups
|
|
'((:name "Accomplishments"
|
|
:todo ("DONE" "CANCELED")
|
|
:order 4)
|
|
(:name "End of Day"
|
|
:habit t
|
|
:order 2)
|
|
(:name "Uncompleted Work"
|
|
:todo "DOING"
|
|
:scheduled past
|
|
:order 0)
|
|
(:name "Today's Tasks"
|
|
:date today
|
|
:order 1)
|
|
(:name "Today's Tasks"
|
|
:scheduled today
|
|
:order 1)
|
|
(:name "Future Work"
|
|
:todo "TODO"
|
|
:scheduled future
|
|
:order 3))))
|
|
#+END_SRC
|
|
|
|
The task matches a group based on the /code order/, but the =:order= tag allows me to display them in a different order.
|
|
|
|
The following super agenda is just for /today/ and should be smaller:
|
|
#+BEGIN_SRC emacs-lisp :tangle no
|
|
(setq ha-org-super-agenda-today
|
|
'((:name "Finished"
|
|
:todo ("DONE" "CANCELED")
|
|
:order 4)
|
|
(:name "End of Day"
|
|
:habit t
|
|
:order 2)
|
|
(:name "Today's Tasks"
|
|
:todo "DOING"
|
|
:scheduled past
|
|
:date today
|
|
:order 0)))
|
|
#+END_SRC
|
|
* Query Views
|
|
The [[https://github.com/alphapapa/org-ql][org-ql project]] gives us a /query language/ of sorts (based on s-expressions).
|
|
|
|
By putting all queries under =org-ql-views=, we can then call ~M-x query~ and select the view to display:
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package org-ql
|
|
:after org
|
|
:config
|
|
;; Often used 'subgroup' that defines a work task
|
|
(setq ha-org-ql-typical-work-tasks
|
|
'(and (tags "work")
|
|
|
|
;; I will always be Supporting the onboarding projects,
|
|
;; but don't show them (but show descendants):
|
|
(not (and (tags "onboarding")
|
|
(heading "^Support ")))
|
|
|
|
;; Show a blocking subtask instead of the parent:
|
|
(or (not (children))
|
|
(not (descendants (todo "TODO" "DOING"))))
|
|
|
|
(not (habit))
|
|
(not (done))))
|
|
|
|
(setq org-ql-views
|
|
(list (cons "Overview: Today"
|
|
(list :buffers-files #'org-agenda-files
|
|
:query `(or (closed :on today)
|
|
(and (habit)
|
|
(not (done))
|
|
(scheduled :to today))
|
|
(and ,ha-org-ql-typical-work-tasks
|
|
(or (deadline auto)
|
|
(todo "DOING")
|
|
(scheduled :to today)
|
|
(ts-active :on today))))
|
|
:sort '(priority date)
|
|
:super-groups 'ha-org-super-agenda-today
|
|
:title "Today in Me"))
|
|
|
|
(cons "Overview: Tomorrow"
|
|
(list :buffers-files #'org-agenda-files
|
|
:query '(and (not (done))
|
|
(tags "work")
|
|
(scheduled :from tomorrow :to tomorrow))
|
|
:sort '(priority date)
|
|
:super-groups 'ha-org-super-agenda-today
|
|
:title "Overview: Tomorrow's tasks"))
|
|
|
|
(cons "Calendar: Today"
|
|
(list :buffers-files #'org-agenda-files
|
|
:query '(ts-active :on today)
|
|
:title "Today"
|
|
:super-groups 'ha-org-super-agenda-today
|
|
:sort '(priority))))))
|
|
#+END_SRC
|
|
* Agenda Interface
|
|
We can create a function to start this:
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun ha-todays-agenda ()
|
|
"Display an agenda for today, including tasks and scheduled entries."
|
|
(interactive)
|
|
(org-ql-view "Overview: Today"))
|
|
#+END_SRC
|
|
|
|
And of course, a keybinding:
|
|
#+BEGIN_SRC emacs-lisp
|
|
(ha-leader "a a" '("my agenda" . ha-todays-agenda))
|
|
#+END_SRC
|
|
* Technical Artifacts :noexport:
|
|
Let's provide a name so that the file can be required:
|
|
|
|
#+BEGIN_SRC emacs-lisp :exports none
|
|
(provide 'ha-agendas)
|
|
;;; ha-agendas.el ends here
|
|
#+END_SRC
|
|
|
|
Before you can build this on a new system, make sure that you put the cursor over any of these properties, and hit: ~C-c C-c~
|
|
|
|
#+DESCRIPTION: A literate programming configuration for fancy agenda and todo lists.
|
|
|
|
#+PROPERTY: header-args:sh :tangle no
|
|
#+PROPERTY: header-args:emacs-lisp :tangle yes
|
|
#+PROPERTY: header-args :results none :eval no-export :comments no mkdirp yes
|
|
|
|
#+OPTIONS: num:nil toc:nil todo:nil tasks:nil tags:nil date:nil
|
|
#+OPTIONS: skip:nil author:nil email:nil creator:nil timestamp:nil
|
|
#+INFOJS_OPT: view:nil toc:nil ltoc:t mouse:underline buttons:0 path:http://orgmode.org/org-info.js
|