From 5561ea0ea9b63dc7950ee2fee99c73ec51e42c88 Mon Sep 17 00:00:00 2001 From: Leon Rische Date: Wed, 15 Jan 2020 16:30:58 +0100 Subject: Remove dash functions / macros --- org-fc-type-cloze.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'org-fc-type-cloze.el') 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) -- cgit v1.2.3