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

Fix minor bug when quitting presentations

Browse source
This commit is contained in:
Howard Abrams 2024-11-16 10:43:10 -08:00
parent 6ea135ca41
commit e5891170a0
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
ha-demos.org
View file

@ -2,7 +2,7 @@
#+author: Howard X. Abrams #+author: Howard X. Abrams
#+date: 2024-10-18 #+date: 2024-10-18
#+filetags: emacs hamacs #+filetags: emacs hamacs
#+lastmod: [2024-11-05 Tue] #+lastmod: [2024-11-09 Sat]
A literate programming file for creating and running demonstrations A literate programming file for creating and running demonstrations
@ -199,7 +199,7 @@ I’ve used [[https://github.com/takaxp/org-tree-slide][org-tree-slide]] for yea
"C" #'ha-demo-toggle-cursor "C" #'ha-demo-toggle-cursor
"n" #'org-tree-slide-move-next-tree "n" #'org-tree-slide-move-next-tree
"N" #'org-tree-slide-move-previous-tree "N" #'org-tree-slide-move-previous-tree
"Q" (lambda () (interactive) (org-slide-tree-mode -1))) "Q" (lambda () (interactive) (org-tree-slide-mode -1)))
:hook :hook
((org-tree-slide-play . ha-org-tree-slide-start) ((org-tree-slide-play . ha-org-tree-slide-start)
@ -460,7 +460,8 @@ All options? Should I use Common Lisp’s =cl-defun= for the keyword parameters?
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(cl-defun ha-demo-show-file (filename &key position size modeline (cl-defun ha-demo-show-file (filename &key position size modeline
line heading shift commands) line heading shift cursor
commands)
"Show a file, FILENAME, in a buffer based on keyed parameters. "Show a file, FILENAME, in a buffer based on keyed parameters.
POSITION can be 'full 'right or 'below and positions the window. POSITION can be 'full 'right or 'below and positions the window.
SIZE is an integer for the font size based on the default size. SIZE is an integer for the font size based on the default size.
@ -491,6 +492,11 @@ All options? Should I use Common Lisp’s =cl-defun= for the keyword parameters?
(goto-char (point-min)) (goto-char (point-min))
(when cursor
(if (or (eq cursor 'yes) (eq cursor 'show))
(ha-demo-show-cursor)
(ha-demo-hide-cursor)))
;; Step 3: Increase the font size ;; Step 3: Increase the font size
(when size (when size
(text-scale-set size)) (text-scale-set size))