From 294521f1cbc7a25437a04cbac49f6dab13dcf54a Mon Sep 17 00:00:00 2001 From: Leon Rische Date: Tue, 22 Sep 2020 12:12:36 +0200 Subject: Move notitle check to `set-header-line` function --- org-fc.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/org-fc.el b/org-fc.el index ef7d381..5a04a5f 100644 --- a/org-fc.el +++ b/org-fc.el @@ -1213,10 +1213,8 @@ element." (mapcar (lambda (pos) (list - ;; FIXME: This is rather inelegant - :filetitle - (unless (member "notitle" (plist-get card :tags)) - (plist-get card :filetitle)) + :filetitle (plist-get card :filetitle) + :tags (plist-get card :tags) :path (plist-get card :path) :id (plist-get card :id) :type (plist-get card :type) @@ -1482,8 +1480,11 @@ removed." (defun org-fc-set-header-line () "Set the header-line for review." - (let ((remaining (1+ (length (oref org-fc--session cards)))) - (title (plist-get (oref org-fc--session current-item) :filetitle))) + (let* ((remaining (1+ (length (oref org-fc--session cards)))) + (current (oref org-fc--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 -- cgit v1.2.3