ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Add functions to create and update a Pomodoro overview

Browse source 
This is meant to be used as a daily overview of the Pomodoro's that I've gone
through during the day. Should be put in my journal. For that reason, and
because I haven't figured out how to make it idempotent on days that aren't
today, I've added an exclusion of ‘journal.org’ to the
‘oni-org-update-all-dblocks-live’ function.
This commit is contained in:
Tom Willemse 2022-10-25 23:18:55 -07:00
parent 875e63d62a
commit 7342368178
1 changed files with 44 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
oni-org/oni-org.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; Version: 2022.1019.224918
;; Version: 2022.1025.230035
;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti form-feed)
;; This program is free software; you can redistribute it and/or modify
@ -476,7 +476,8 @@ also move point to the start of the heading."
(defun oni-org-update-all-dblocks-live ()
"Call ‘org-update-all-dblocks’ if the current file isn't an archive file."
(if (not (string-suffix-p "_archive" (buffer-file-name)))
(if (not (or (string-suffix-p "_archive" (buffer-file-name))
(string= "journal.org" (buffer-file-name))))
(org-update-all-dblocks)))
(setq org-todo-keywords
@ -941,5 +942,46 @@ placed above TARGET. Otherwise it will be placed below it."
(goto-char (point-max))))
(org-paste-subtree heading-level nil nil t))))
;;; Pomodoro dynamic block
(defun oni-org-dblock-write-pomodoro-overview (params)
(let* ((date (plist-get params :date))
(info (org-map-entries (lambda ()
(let ((components (org-heading-components)))
(list (cons 'done (and (org-entry-is-done-p) t))
(cons 'title (nth 4 components))
(cons 'poms (string-to-number (or (alist-get "POMS" (org-entry-properties) nil nil #'string=) "0")))
(cons 'id (org-id-get-create)))))
(format "TODO=\"NEXT\"|CLOSED>=\"<%s 0:00>\"+CLOSED<=\"<%s 23:59>\""
date date)
'agenda)))
(insert
(string-trim-right
(apply #'concat "| | Task | Effort |\n"
"|-+------+--------|\n"
(mapcar (lambda (itm)
(let ((emphasis (if (alist-get 'done itm) "+" ""))
(title (alist-get 'title itm)))
(format "| | %s[[id:%s][%s]]%s | %s |\n"
emphasis
(alist-get 'id itm)
(if (> (length title) 60)
(format "%s..." (substring title 0 57))
title)
emphasis
(make-string (alist-get 'poms itm) ?X))))
info))))
(org-table-align)))
(defun oni-org-insert-pomodoro-overview ()
"Create a dynamic block showing the Pomodoro overview for today."
(interactive)
(org-create-dblock `(:name "oni-pomodoro-overview"
:date ,(format-time-string "%Y-%m-%d")))
(org-update-dblock))
(defalias 'org-dblock-write:oni-pomodoro-overview 'oni-org-dblock-write-pomodoro-overview)
(org-dynamic-block-define "oni-pomodoro-overview" #'oni-org-insert-pomodoro-overview)
(provide 'oni-org)
;;; oni-org.el ends here