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

Enhance the demonstration code

Browse source 
Really enjoying dslide, and need to use it like my demo code ... globally.
This commit is contained in:
Howard Abrams 2025-01-16 11:43:45 -08:00
parent 0c69fd7a8f
commit df7f423924
1 changed files with 36 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
ha-demos.org
View file

@ -302,10 +302,10 @@ The [[https://github.com/positron-solutions/dslide][dslide project]] is flexible
"<down>" '("next slide" . next-line)) "<down>" '("next slide" . next-line))
:bind :bind
("C-<f5>" . dslide-deck-start) ("C-<f5>" . ha-dslide-deck-start)
(:map dslide-mode-map (:map dslide-mode-map
("<f5>" . dslide-deck-forward) ("<f5>" . ha-dslide-deck-forward)
("S-<f5>" . dslide-deck-backward) ("S-<f5>" . ha-dslide-deck-backward)
("C-<f5>" . dslide-deck-stop)) ("C-<f5>" . dslide-deck-stop))
:hook ((dslide-start . ha-slide-setup) :hook ((dslide-start . ha-slide-setup)
@ -324,18 +324,38 @@ What features do I like and want to take advantage of?
- Hiding Blocks - Hiding Blocks
- Results Only - Results Only
#+BEGIN_SRC emacs-lisp :tangle no Fixes and improvements for the dslide:
(use-package dslide
:straight (:host github :repo "positron-solutions/dslide") #+BEGIN_SRC emacs-lisp
:config (defun dslide (&rest ignored))
(defun dslide (&rest ignored))
;; The dslide-highlight inherits from 'highlight' (defvar ha-dslide-presentation nil "The buffer name of the starting presentation.")
;; (set-face-attribute dslide-highlight :foreground "red")
;; This too inherits from 'highlight' (defun ha-dslide-deck-start ()
;; (set-face-attribute dslide-babel-success-highlight :foreground "red") "Start (and remember) a dslide presentation."
;; This inherits from `error' (interactive)
;; (set-face-attribute dslide-babel-error-highlight :foreground "red") (unless (eq major-mode 'org-mode)
(set-face-attribute 'highlight nil :background 'unspecified :foreground "lightblue")) (call-interactively 'org-find-file))
(setq ha-dslide-presentation (buffer-name))
(call-interactively 'dslide-deck-start))
(defun ha-dslide-deck-forward ()
"Switch to current running presentation, and advance slide deck."
(interactive)
(when ha-dslide-presentation
(pop-to-buffer ha-dslide-presentation))
(setq ha-dslide-presentation (buffer-name))
(dslide-deck-forward))
(defun ha-dslide-deck-backward ()
"Switch to current running presentation, and reverse slide deck."
(interactive)
(when ha-dslide-presentation
(pop-to-buffer ha-dslide-presentation))
(setq ha-dslide-presentation (buffer-name))
(dslide-deck-backward))
(set-face-attribute 'highlight nil :background 'unspecified :foreground "lightblue")
#+END_SRC #+END_SRC
*** Master of Ceremonies *** Master of Ceremonies
@ -361,8 +381,7 @@ The [[https://github.com/trevorpogue/topspace][topspace]] project can pad the to
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package topspace (use-package topspace
:straight (:type git :host github :repo "trevorpogue/topspace") :straight (:type git :host github :repo "trevorpogue/topspace"))
)
#+END_SRC #+END_SRC
*** Showing Something associated with a Headline *** Showing Something associated with a Headline