random936/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some slight improvements to the weekly scorecard

Browse Source
This commit is contained in:
Random936 2024-02-21 16:56:01 -08:00
parent ca9bb826b5
commit f35ed556ec
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.emacs.d/functions.org
View File

@ -104,7 +104,8 @@ Taken from the book /12 Week Year/, the weekly scorecard is a way to measure how
(dolist (box (jm/catalog-checkboxes buffer) dictionary) (dolist (box (jm/catalog-checkboxes buffer) dictionary)
(with-current-buffer buffer (with-current-buffer buffer
(let* ((start (org-element-property :contents-begin box)) (let* ((start (org-element-property :contents-begin box))
(end (- (org-element-property :contents-end box) 1)) (end (progn (goto-char start)
(or (- (search-forward "\n" nil t) 1) (point-max))))
(key (buffer-substring-no-properties start end)) (key (buffer-substring-no-properties start end))
(checked (if (jm/checkbox-checked-p box) 1 0)) (checked (if (jm/checkbox-checked-p box) 1 0))
(pair (assoc key dictionary)) (pair (assoc key dictionary))
@ -130,7 +131,7 @@ Taken from the book /12 Week Year/, the weekly scorecard is a way to measure how
(defun jm/weekly-scorecard (&optional days) (defun jm/weekly-scorecard (&optional days)
(interactive) (interactive)
(let ((table "| Task | Times Completed | Total | Percentage |\n")) (let ((table "| Task | Completed | Total | Percentage |\n"))
(dolist (box (jm/n-day-scorecard (or days 7)) table) (dolist (box (jm/n-day-scorecard (or days 7)) table)
(let* ((name (car box)) (let* ((name (car box))
(checked (cadr box)) (checked (cadr box))