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

Fix starting bug with theme

Browse source
This commit is contained in:
Howard Abrams 2025-01-16 11:42:00 -08:00
parent f5cfc64d41
commit 5ac74fadce
4 changed files with 18 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
elisp/beep.el
View file

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

2
ha-applications.org
View file

@ -411,6 +411,8 @@ Web pages look pretty good with EWW, but I'm having difficulty getting it to ren
:init :init
(setq browse-url-browser-function 'eww-browse-url (setq browse-url-browser-function 'eww-browse-url
browse-url-secondary-browser-function 'browse-url-default-browser 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 eww-browse-url-new-window-is-tab nil
shr-use-colors nil shr-use-colors nil
shr-use-fonts t ; I go back and forth on this one shr-use-fonts t ; I go back and forth on this one

11
ha-config.org
View file

@ -622,7 +622,7 @@ As I've mentioned [[http://www.howardism.org/Technical/Emacs/beep-for-emacs.html
(use-package beep (use-package beep
:straight nil ; Already in the load-path :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 :config
(dolist (func '(org-publish (dolist (func '(org-publish
org-publish-all org-publish-all
@ -630,6 +630,15 @@ As I've mentioned [[http://www.howardism.org/Technical/Emacs/beep-for-emacs.html
compile compile
shell-command)) shell-command))
(advice-add func :around #'beep-when-runs-too-long))) (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 #+end_src
While that code /advices/ the publishing and compile commands, I may want to add more. While that code /advices/ the publishing and compile commands, I may want to add more.
**** Visual Replacing Regular Expressions **** Visual Replacing Regular Expressions

14
ha-display.org
View file

@ -1,7 +1,7 @@
#+title: Emacs Graphical Display Configuration #+TITLE: Emacs Graphical Display Configuration
#+author: Howard X. Abrams #+AUTHOR: Howard X. Abrams
#+date: 2020-09-10 #+DATE: 2020-09-10
#+tags: emacs macos #+TAGS: emacs macos
A literate programming file to configure the Emacs UI. 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 #+begin_src emacs-lisp
(add-to-list 'custom-theme-load-path hamacs-source-dir) (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) (laptop-inside)
#+end_src #+end_src
** Highlight Task Labels ** Highlight Task Labels