diff options
Diffstat (limited to 'org-fc-core.el')
| -rw-r--r-- | org-fc-core.el | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/org-fc-core.el b/org-fc-core.el index 0a5e733..3323f11 100644 --- a/org-fc-core.el +++ b/org-fc-core.el @@ -26,6 +26,7 @@ (require 'outline) +(require 'org-id) (require 'org-indent) (require 'org-element) @@ -650,31 +651,6 @@ Positions are shuffled in a way that preserves the order of the (with-current-buffer (find-file path) (org-fc-review-buffer)))) -;;; 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--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 - `((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)) - ;;; Contexts (defvar org-fc-custom-contexts '() |