(defvar my-header-line-tips
  '("C-c a → agenda" "C-c c → capture" "C-c t → todo" "C-c s → schedule")
  "Header line 中轮播显示的快捷键提示。")

(defvar my-header-line-tip-index 0
  "当前显示的提示索引。")

(defun my-rotate-header-line-tip ()
  "切换到下一条提示。"
  (setq my-header-line-tip-index
        (% (1+ my-header-line-tip-index) (length my-header-line-tips)))
  (force-mode-line-update))

(setq-default header-line-format
              (list (default-value 'header-line-format)
                    '(:eval (format " 💡 %s"
                                    (nth my-header-line-tip-index
                                         my-header-line-tips)))))

(run-at-time t 10 #'my-rotate-header-line-tip)

(defun my-org-capture-region ...)

(defun sacha-org-capture-region-contents-with-metadata (start end parg)
  ...)

(defvar my-indent-width 2 "Default indentation width.")

(defcustom my-indent-width 2
  "Default indentation width."
  :type 'integer
  :group 'convenience)

(defun prot-comment-timestamp-keyword ()
  "Insert timestamp keyword in comment."
  ...)

(use-package prot-comment
  :load-path "~/vendor/prot-dotfiles/emacs/.emacs.d/prot-lisp"
  :commands (prot-comment-timestamp-keyword)
  :bind
  (:map prog-mode-map
        ("C-x M-;" . prot-comment-timestamp-keyword)))

(defun sacha-org-capture-region-contents-with-metadata (start end parg)
  "Write selected text between START and END to currently clocked `org-mode' entry.

With PARG, kill the content instead.
If there is no clocked task, create it as a new note in my inbox instead.

From https://takeonrules.com/2022/10/16/adding-another-function-to-sacha-workflow/,
modified slightly so that it creates a new entry if we are not currently clocked in."
  (interactive "r\nP")
  (let ((text (sacha-org-region-contents-get-with-metadata start end)))
    (if (car parg)
        (kill-new text)
      (org-capture-string (concat "-----\n" text)
                          (if (org-clocking-p) "c" "r")))))