diff options
Diffstat (limited to 'org-fc-type-double.el')
| -rw-r--r-- | org-fc-type-double.el | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/org-fc-type-double.el b/org-fc-type-double.el new file mode 100644 index 0000000..cea35dd --- /dev/null +++ b/org-fc-type-double.el @@ -0,0 +1,41 @@ +(defvar org-fc-type-double-hole-re + (rx "{{" (group (* (not (any "}")))) "}}")) + +(defvar org-fc-type-double--overlay '()) + +(defun org-fc-type-double-init () + (interactive) + (org-fc--init-card "double") + (org-fc-review-data-update '("front" "back"))) + +(defun org-fc-type-double-setup (position) + (pcase position + ("front" (org-fc-type-normal-setup position)) + ("back" (org-fc-type-double-setup-back)) + (_ (error "Invalid double position %s" position)))) + +(defun org-fc-type-double-setup-back () + (org-show-subtree) + (if (org-fc-has-back-heading-p) + (setq org-fc-type-double--overlay (org-fc-hide-content "[...]\n")) + (setq org-fc-type-double--overlay (org-fc-hide-heading "[...]"))) + (org-fc-review-flip-hydra/body)) + +(defun org-fc-type-double-flip () + (message "double flip") + (pp org-fc-type-double--overlay) + (if org-fc-type-double--overlay + (delete-overlay org-fc-type-double--overlay)) + (org-show-subtree) + (org-fc-review-rate-hydra/body)) + +;; No-op +(defun org-fc-type-double-update ()) + +(org-fc-register-type + 'double + 'org-fc-type-double-setup + 'org-fc-type-double-flip + 'org-fc-type-double-update) + +(provide 'org-fc-type-double) |