Fix remaining compiler warnings

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