Made show/hide cursor in the demo more resilient

Keeping track of state is hard!

ha-demos.org

@@ -175,8 +175,8 @@ I’ve used [[https://github.com/takaxp/org-tree-slide][org-tree-slide]] for yea
       (demo-it--presentation-display-restore)  ; Restore previous changes
       (setq org-hide-emphasis-markers t)
       (ha-demo-show-mode-line)
-      (ha-demo-normalize-frame)
       (ha-demo-show-cursor)
+      (ha-demo-normalize-frame)
       (git-gutter-mode)
       (text-scale-set 0)
       (flycheck-mode)
@@ -348,6 +348,7 @@ The typical presentation software has an issue for hiding the cursor when workin
   (defun ha-demo-hide-cursor ()
     "Hide the cursor for the current frame."
     (interactive)
+    (unless ha-demo-cursor
       (setq ha-demo-cursor
             (list cursor-type
                   t ; (when (boundp 'evil-default-cursor) evil-default-cursor)
@@ -369,11 +370,12 @@ The typical presentation software has an issue for hiding the cursor when workin
          evil-normal-state-cursor nil))
 
       ;; And most importantly, turn off the cursor for the selected frame:
-    (set-frame-parameter (selected-frame) 'cursor-type nil))
+      (set-frame-parameter (selected-frame) 'cursor-type nil)))
 
   (defun ha-demo-show-cursor ()
     "Restore cursor properties turned off by `ha-demo-hide-cursor'."
     (interactive)
+    (when ha-demo-cursor
       (setq cursor-type (car ha-demo-cursor))
 
       (when (boundp 'evil-default-cursor)
@@ -385,7 +387,8 @@ The typical presentation software has an issue for hiding the cursor when workin
       (when (nth 4 ha-demo-cursor) (blink-cursor-mode 1))
 
       (set-frame-parameter (selected-frame)
-                         'cursor-type (nth 5 ha-demo-cursor)))
+                           'cursor-type (nth 5 ha-demo-cursor))
+      (setq ha-demo-cursor nil)))
     #+END_SRC
 
 ** Hide and Show the Modeline