设置bullet list 美化heading
(setq org-bullets-bullet-list '("☰" "☷" "☯" "☭"))
设置折叠时默认显示的[…] 为 其它符号
设置TODO keyword的样式（前景色/背景色）
每日效率自我评分（根据事项tag得分求和）
今年面试小伙伴所花时间
周例会会议纪要
;; 插入今年的时间进度条
(defun make-progress (width percent has-number?)
(let* ((done (/ percent 100.0))
(done-width (floor (* width done))))
(concat
"["
(make-string done-width ?/)
(make-string (- width done-width) ? )
"]"
(if has-number? (concat " " (number-to-string percent) "%"))
)))
(defun insert-day-progress ()
(interactive)
(let* ((today (time-to-day-in-year (current-time)))
(percent (floor (* 100 (/ today 365.0)))))
(insert (make-progress 30 percent t))
))
(evil-leader/set-key "oit" 'insert-day-progress)