From b23f15a670d4805b0b52453f84bc659eb4616c76 Mon Sep 17 00:00:00 2001
From: Howard Abrams <howard.abrams@workday.com>
Date: Sun, 30 Mar 2025 10:00:36 -0700
Subject: [PATCH] Fix inconsistencies with Demo and Remoting
---
ha-demos.org | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/ha-demos.org b/ha-demos.org
index fd99e5d..a8d305c 100644
--- a/ha-demos.org
+++ b/ha-demos.org
@@ -485,6 +485,9 @@ These interactive functions scroll the “notes” in the other window in anothe
#+END_SRC
* New Demonstration
+:LOGBOOK:
+CLOCK: [2025-03-26 Wed 09:04]--[2025-03-26 Wed 09:29] => 0:25
+:END:
Instead of executing a sequence of demonstration steps, demonstrations key on “state”, that is, the active buffer or major-mode, or the heading of an Org file, etc. I described the [[https://howardism.org/Technical/Emacs/demonstrations-part-two.html][guts of writing this code]], but we bind a key to calling =ha-demo-step= with a list of /state matchers/ to functions to call when matched. For instance:
#+BEGIN_SRC emacs-lisp :tangle no :eval no
@@ -844,8 +847,8 @@ All options? Should I use Common Lisp’s =cl-defun= for the keyword parameters?
(switch-to-buffer filename))
(if image-minor-mode
- (goto-char (point-min))
- (image-transform-fit-to-window))
+ (image-transform-fit-to-window)
+ (goto-char (point-min)))
(ha-demo-set-side-window :size size :modeline modeline
:cursor cursor)
@@ -984,18 +987,18 @@ And we can open the shell in a window:
(when command
(sit-for 1)
- (ha-shell-send command ha-demo-shell-dir))
+ (ha-shell-send command))
(when (and focus (eq focus 'presentation))
(pop-to-buffer orig-buf))))
(defun ha-demo-shell-send (command)
"Send COMMAND to the currently opened shell, `ha-demo-shell'."
- (ha-shell-send command ha-demo-shell-dir))
+ (ha-shell-send command))
(defun ha-demo-shell-quit ()
"Close the window associated with a shell."
- (ha-shell-send "exit" ha-demo-shell-dir)
+ (ha-shell-send "exit")
(delete-other-windows))
#+END_SRC