diff options
Diffstat (limited to 'org-fc-review.el')
-rw-r--r-- | org-fc-review.el | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/org-fc-review.el b/org-fc-review.el index 9339b7b..f41baeb 100644 --- a/org-fc-review.el +++ b/org-fc-review.el @@ -470,6 +470,31 @@ removed." ('easy (cl-incf (cl-getf ratings :easy) 1))) (cl-incf (cl-getf ratings :total 1)))) +;;; Header Line + +(defvar org-fc-original-header-line-format nil + "`header-line-format' before it was set by org-fc.") + +(defun org-fc-set-header-line () + "Set the header-line for review." + (let* ((remaining (1+ (length (oref org-fc-review--session cards)))) + (current (oref org-fc-review--session current-item)) + (title + (unless (member "notitle" (plist-get current :tags)) + (plist-get current :filetitle)))) + (setq org-fc-original-header-line-format header-line-format) + (setq-local + header-line-format + `((org-fc-review-flip-mode "Flip") + (org-fc-review-rate-mode "Rate") + (org-fc-review-edit-mode "Edit") + ,(format " (%d) " remaining) + ,title)))) + +(defun org-fc-reset-header-line () + "Reset the header-line to its original value." + (setq-local header-line-format org-fc-original-header-line-format)) + ;;; Modes (defvar org-fc-review-flip-mode-map |