summaryrefslogtreecommitdiff
path: root/org-fc-core.el
diff options
context:
space:
mode:
Diffstat (limited to 'org-fc-core.el')
-rw-r--r--org-fc-core.el26
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 '()