diff options
Diffstat (limited to 'org-fc-type-cloze.el')
| -rw-r--r-- | org-fc-type-cloze.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/org-fc-type-cloze.el b/org-fc-type-cloze.el index e483a09..6889b32 100644 --- a/org-fc-type-cloze.el +++ b/org-fc-type-cloze.el @@ -99,16 +99,17 @@ overlays))) (defun org-fc-type-cloze-flip () - (-when-let (overlays org-fc-type-cloze--overlays) - (if (plist-member overlays :separator) - (org-fc-hide-overlay (plist-get overlays :separator))) - (if (plist-member overlays :after-hint) - (org-fc-hide-overlay (plist-get overlays :after-hint))) - (org-fc-hide-overlay (plist-get overlays :hint)) - ;; (delete-overlay (plist-get overlays :text)) - (org-fc-show-overlay - (plist-get overlays :text) - 'org-fc-type-cloze-hole-face)) + (if-let ((overlays org-fc-type-cloze--overlays)) + (progn + (if (plist-member overlays :separator) + (org-fc-hide-overlay (plist-get overlays :separator))) + (if (plist-member overlays :after-hint) + (org-fc-hide-overlay (plist-get overlays :after-hint))) + (org-fc-hide-overlay (plist-get overlays :hint)) + ;; (delete-overlay (plist-get overlays :text)) + (org-fc-show-overlay + (plist-get overlays :text) + 'org-fc-type-cloze-hole-face))) (org-fc-review-rate-hydra/body)) (defun org-fc-type-cloze-setup (position) |