diff options
author | Leon Rische <leon.rische@me.com> | 2020-01-15 16:30:58 +0100 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2020-01-15 16:30:58 +0100 |
commit | 5561ea0ea9b63dc7950ee2fee99c73ec51e42c88 (patch) | |
tree | 98b9dcb9966d8382e140743314880f77d6b8f3bd /org-fc-type-cloze.el | |
parent | 646bdd5adef51b7fe774208486f1c365ba6bb405 (diff) |
Remove dash functions / macros
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) |