Include title in header line

1 files changed, 10 insertions, 15 deletions

diff --git a/org-fc.el b/org-fc.el
index a38d7f5..44076db 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -1480,21 +1480,16 @@ removed."
 
 (defun org-fc-set-header-line ()
   "Set the header-line for review."
-  (setq org-fc-original-header-line-format header-line-format)
-  (setq-local
-   header-line-format
-   `((org-fc-review-flip-mode
-      ,(format "Review, %d cards remaining, %s"
-               (1+ (length (oref org-fc--session cards)))
-               (org-fc-session-stats-string org-fc--session)))
-     (org-fc-review-rate-mode
-      ,(format "Rate, %d cards remaining, %s"
-               (1+ (length (oref org-fc--session cards)))
-               (org-fc-session-stats-string org-fc--session)))
-     (org-fc-review-edit-mode
-       ,(substitute-command-keys
-         "\\<org-fc-review-edit-mode-map>Org-fc edit.  Resume \
-`\\[org-fc-review-resume]', quit review `\\[org-fc-review-quit]'.")))))
+  (let ((remaining (1+ (length (oref org-fc--session cards))))
+        (title (plist-get (oref org-fc--session current-item) :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."