Fix starting bug with theme

elisp/beep.el

@@ -33,7 +33,8 @@ Customize the variable, `beep-alert-sound-file' to adjust the sound."
   "Call a program to speak the string, PHRASE.
 Customize the variable, `beep-speech-executable'."
   (let ((command (format beep-speech-executable phrase)))
-    (async-shell-command command)))
+    (save-window-excursion
+      (async-shell-command command))))
 
 (defun beep-when-finished (phrase &optional to-speak)
   "Notify us with string, PHRASE, to grab our attention.

ha-applications.org

@@ -411,6 +411,8 @@ Web pages look pretty good with EWW, but I'm having difficulty getting it to ren
     :init
     (setq browse-url-browser-function 'eww-browse-url
           browse-url-secondary-browser-function 'browse-url-default-browser
+          browse-url-chrome-program "/Applications/Google Chrome.app/Contents/MacOS/Google Chrome"
+
           eww-browse-url-new-window-is-tab nil
           shr-use-colors nil
           shr-use-fonts t     ; I go back and forth on this one

ha-config.org

@@ -622,7 +622,7 @@ As I've mentioned [[http://www.howardism.org/Technical/Emacs/beep-for-emacs.html
 
   (use-package beep
     :straight nil   ; Already in the load-path
-    :hook (after-init . (lambda () (beep-when-finished "Emacs has started." "Eemacs has started")))
+    :hook (after-init . ha-random-startup-message)
     :config
     (dolist (func '(org-publish
                     org-publish-all
@@ -630,6 +630,15 @@ As I've mentioned [[http://www.howardism.org/Technical/Emacs/beep-for-emacs.html
                     compile
                     shell-command))
       (advice-add func :around #'beep-when-runs-too-long)))
+
+  (defun ha-random-startup-message ()
+    "State a random message on startup."
+    (let ((msg (seq-random-elt '("You are good to go"
+                                 "Yippee"
+                                 "What's next?"
+                                 "Notification complete. Happy?"
+                                 "Beware lest the dragons fly"))))
+      (beep-when-finished msg)))
 #+end_src
 While that code /advices/ the publishing and compile commands, I may want to add more.
 **** Visual Replacing Regular Expressions

ha-display.org

@@ -1,7 +1,7 @@
-#+title:  Emacs Graphical Display Configuration
-#+author: Howard X. Abrams
-#+date:   2020-09-10
-#+tags:   emacs macos
+#+TITLE:  Emacs Graphical Display Configuration
+#+AUTHOR: Howard X. Abrams
+#+DATE:   2020-09-10
+#+TAGS:   emacs macos
 
 A literate programming file to configure the Emacs UI.
 
@@ -407,12 +407,6 @@ And of course, the default is /inside/ where my mind is dark and safe:
 
 #+begin_src emacs-lisp
   (add-to-list 'custom-theme-load-path hamacs-source-dir)
-
-  ;; (ha-hamacs-load "ha-theme.org")
-  ;; (ha-hamacs-tangle "ha-theme.org")
-  (require 'hamacs-theme)
-  (load-theme 'hamacs)
-
   (laptop-inside)
 #+end_src
 ** Highlight Task Labels