Fix my code inclusion, like beep and demo-it

Using the :local-repo to test local repositories of my .. this doesn't
seem right.
This commit is contained in:
Howard Abrams 2021-12-27 09:34:03 -08:00
parent 9ba17b5c20
commit 3a927e756a
7 changed files with 30 additions and 7 deletions

4
.gitignore vendored
View file

@ -4,3 +4,7 @@
/elisp/gourmet-projects.el
/ha-private.org
/incubate.org
/elisp/beep.el
/elisp/boxes-extras.el
/elisp/boxes.el
/elisp/ha-focus.el

BIN
beep-notify.wav Normal file

Binary file not shown.

View file

@ -160,6 +160,13 @@ For this, I use the =request= package, which is /asynchronous/
#+BEGIN_SRC emacs-lisp
#+END_SRC
** Demo It
Making demonstrations /within/ Emacs with [[https://github.com/howardabrams/demo-it][demo-it]].
#+BEGIN_SRC emacs-lisp
(use-package demo-it
:straight (:type git :protocol ssh :host github :repo "howardabrams/demo-it")
:commands (demo-it-create demo-it-start))
#+END_SRC
* Configuration Changes
** Initial Settings and UI
Let's turn off the menu and other things:

View file

@ -17,7 +17,7 @@ A literate programming version for Emacs code to generate and store passwords.
;; This file is not part of GNU Emacs.
;;
;; *NB:* Do not edit this file. Instead, edit the original literate file at:
;; /Users/howard.abrams/other/hamacs/ha-passwords.org
;; ~/other/hamacs/ha-passwords.org
;; And tangle the file to recreate this one.
;;
;;; Code:

View file

@ -17,7 +17,7 @@ A literate programming file for configuring Python.
;; This file is not part of GNU Emacs.
;;
;; *NB:* Do not edit this file. Instead, edit the original literate file at:
;; /Users/howard.abrams/other/hamacs/ha-programming-python.org
;; ~/other/hamacs/ha-programming-python.org
;; And tangle the file to recreate this one.
;;
;;; Code:

View file

@ -102,11 +102,24 @@ Do we want to use a debugger?
** Function Call Notifications
As I've mentioned [[http://www.howardism.org/Technical/Emacs/beep-for-emacs.html][on my website]], I've created a [[file:~/website/Technical/Emacs/beep-for-emacs.org][beep function]] that notifies when long running processes complete.
#+BEGIN_SRC emacs-lisp :tangle no
(use-package alert)
#+BEGIN_SRC emacs-lisp
(use-package alert
:init
(setq alert-default-style
(if (ha-running-on-macos?)
'osx-notifier
'libnotify)))
(use-package beep
:straight nil)
:straight nil ; Already in the load-path
:hook (after-init . (lambda () (beep--when-finished "Emacs has started")))
:config
(dolist (func '(org-publish
org-publish-all
org-publish-project
compile
shell-command))
(advice-add func :around #'beep-when-runs-too-long)))
#+END_SRC
While that code /advices/ the publishing and compile commands, I may want to add more.
** iEdit

View file

@ -60,9 +60,8 @@ non-tangled files."
(unless (f-exists? hamacs-private-code-dir)
(make-directory hamacs-private-code-dir))
(ha/install-code-from-essays)
;; (ha/install-code-from-hamacs)
(ha/install-code-from-essays))
(ha/install-configuration)
(provide 'final-initialize)