1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
#+STARTUP: overview indent
* Code
#+begin_src emacs-lisp
(require 'svg-lib)
(defvar svg-font-lock-keywords
`(("TODO"
(0 (list 'face nil 'display (svg-font-lock-todo))))
("\\:\\([0-9a-zA-Z]+\\)\\:"
(0 (list 'face nil 'display (svg-font-lock-tag (match-string 1)))))
("DONE"
(0 (list 'face nil 'display (svg-font-lock-done))))
("\\[\\([0-9]\\{1,3\\}\\)%\\]"
(0 (list 'face nil 'display (svg-font-lock-progress_percent (match-string 1)))))
("\\[\\([0-9]+/[0-9]+\\)\\]"
(0 (list 'face nil 'display (svg-font-lock-progress_count (match-string 1)))))))
(defun svg-font-lock-tag (label)
(svg-lib-tag label nil :margin 0))
(defun svg-font-lock-todo ()
(svg-lib-tag "TODO" nil :margin 0
:font-family "Roboto Mono" :font-weight 500
:foreground "#FFFFFF" :background "#673AB7"))
(defun svg-font-lock-done ()
(svg-lib-tag "DONE" nil :margin 0
:font-family "Roboto Mono" :font-weight 400
:foreground "#B0BEC5" :background "white"))
(defun svg-font-lock-progress_percent (value)
(svg-image (svg-lib-concat
(svg-lib-progress-bar (/ (string-to-number value) 100.0)
nil :margin 0 :stroke 2 :radius 3 :padding 2 :width 12)
(svg-lib-tag (concat value "%")
nil :stroke 0 :margin 0)) :ascent 'center))
(defun svg-font-lock-progress_count (value)
(let* ((seq (mapcar #'string-to-number (split-string value "/")))
(count (float (car seq)))
(total (float (cadr seq))))
(svg-image (svg-lib-concat
(svg-lib-progress-bar (/ count total) nil
:margin 0 :stroke 2 :radius 3 :padding 2 :width 12)
(svg-lib-tag value nil
:stroke 0 :margin 0)) :ascent 'center)))
;; Activate
(push 'display font-lock-extra-managed-props)
(font-lock-add-keywords nil svg-font-lock-keywords)
(font-lock-flush (point-min) (point-max))
;; Deactivate
;; (font-lock-remove-keywords nil svg-font-lock-keywords)
;; (font-lock-flush (point-min) (point-max))
#+end_src
* Progress count: [2/3]
:PROPERTIES:
:END:
- [X] Sub-task 1
- [X] Sub-task 2
- [ ] Sub-task 3
* Progress percent: [66%]
:PROPERTIES:
:END:
- [X] Sub-task 1
- [X] Sub-task 2
- [ ] Sub-task 3
|
