howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better search for a header in a demo

Browse source
This commit is contained in:
Howard Abrams 2025-06-09 09:47:26 -07:00
parent 27eb55b154
commit a351eeadfa
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ha-demos.org
View file

@ -446,7 +446,11 @@ These interactive functions scroll the “notes” in the other window in anothe
(call-interactively 'org-find-file)) (call-interactively 'org-find-file))
(setq ha-slide-presentation (buffer-name)) (setq ha-slide-presentation (buffer-name))
(when initial-heading (when initial-heading
(imenu initial-heading)) (goto-char (point-min))
(re-search-forward (rx bol
(one-or-more "*")
(one-or-more space)
(literal initial-heading))))
(cond (cond
((fboundp #'dslide-deck-forward) (call-interactively 'dslide-deck-start)) ((fboundp #'dslide-deck-forward) (call-interactively 'dslide-deck-start))
((fboundp #'org-present-next) (call-interactively 'org-present)) ((fboundp #'org-present-next) (call-interactively 'org-present))
@ -510,7 +514,7 @@ To make the contents of the expression easier to write, the =define-ha-demo= as
Probably best to explain this in an example: Probably best to explain this in an example:
\(define-demo demo1 \(define-ha-demo demo1
\(:buffer \"demonstrations.py\") \(message \"In a buffer\"\) \(:buffer \"demonstrations.py\") \(message \"In a buffer\"\)
\(:mode 'dired-mode\) \(message \"In a dired\"\) \(:mode 'dired-mode\) \(message \"In a dired\"\)
\(:heading \"Raven Civilizations\"\) \(message \"In an org file\"\)\) \(:heading \"Raven Civilizations\"\) \(message \"In an org file\"\)\)