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:
		
							parent
							
								
									9ba17b5c20
								
							
						
					
					
						commit
						3a927e756a
					
				
					 7 changed files with 30 additions and 7 deletions
				
			
		
							
								
								
									
										4
									
								
								.gitignore
									
									
									
									
										vendored
									
									
								
							
							
						
						
									
										4
									
								
								.gitignore
									
									
									
									
										vendored
									
									
								
							| 
						 | 
					@ -4,3 +4,7 @@
 | 
				
			||||||
/elisp/gourmet-projects.el
 | 
					/elisp/gourmet-projects.el
 | 
				
			||||||
/ha-private.org
 | 
					/ha-private.org
 | 
				
			||||||
/incubate.org
 | 
					/incubate.org
 | 
				
			||||||
 | 
					/elisp/beep.el
 | 
				
			||||||
 | 
					/elisp/boxes-extras.el
 | 
				
			||||||
 | 
					/elisp/boxes.el
 | 
				
			||||||
 | 
					/elisp/ha-focus.el
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
							
								
								
									
										
											BIN
										
									
								
								beep-notify.wav
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										
											BIN
										
									
								
								beep-notify.wav
									
									
									
									
									
										Normal file
									
								
							
										
											Binary file not shown.
										
									
								
							| 
						 | 
					@ -160,6 +160,13 @@ For this, I use the =request= package, which is /asynchronous/
 | 
				
			||||||
#+BEGIN_SRC emacs-lisp
 | 
					#+BEGIN_SRC emacs-lisp
 | 
				
			||||||
#+END_SRC
 | 
					#+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
 | 
					* Configuration Changes
 | 
				
			||||||
** Initial Settings and UI
 | 
					** Initial Settings and UI
 | 
				
			||||||
Let's turn off the menu and other things:
 | 
					Let's turn off the menu and other things:
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -17,7 +17,7 @@ A literate programming version for Emacs code to generate and store passwords.
 | 
				
			||||||
;; This file is not part of GNU Emacs.
 | 
					;; This file is not part of GNU Emacs.
 | 
				
			||||||
;;
 | 
					;;
 | 
				
			||||||
;; *NB:* Do not edit this file. Instead, edit the original literate file at:
 | 
					;; *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.
 | 
					;;       And tangle the file to recreate this one.
 | 
				
			||||||
;;
 | 
					;;
 | 
				
			||||||
;;; Code:
 | 
					;;; Code:
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -17,7 +17,7 @@ A literate programming file for configuring Python.
 | 
				
			||||||
  ;; This file is not part of GNU Emacs.
 | 
					  ;; This file is not part of GNU Emacs.
 | 
				
			||||||
  ;;
 | 
					  ;;
 | 
				
			||||||
  ;; *NB:* Do not edit this file. Instead, edit the original literate file at:
 | 
					  ;; *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.
 | 
					  ;;       And tangle the file to recreate this one.
 | 
				
			||||||
  ;;
 | 
					  ;;
 | 
				
			||||||
  ;;; Code:
 | 
					  ;;; Code:
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -102,11 +102,24 @@ Do we want to use a debugger?
 | 
				
			||||||
** Function Call Notifications
 | 
					** 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.
 | 
					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
 | 
					#+BEGIN_SRC emacs-lisp
 | 
				
			||||||
  (use-package alert)
 | 
					  (use-package alert
 | 
				
			||||||
 | 
					    :init
 | 
				
			||||||
 | 
					    (setq alert-default-style
 | 
				
			||||||
 | 
					          (if (ha-running-on-macos?)
 | 
				
			||||||
 | 
					              'osx-notifier
 | 
				
			||||||
 | 
					            'libnotify)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  (use-package beep
 | 
					  (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
 | 
					#+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.
 | 
				
			||||||
** iEdit
 | 
					** iEdit
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -60,9 +60,8 @@ non-tangled files."
 | 
				
			||||||
  (unless (f-exists? hamacs-private-code-dir)
 | 
					  (unless (f-exists? hamacs-private-code-dir)
 | 
				
			||||||
    (make-directory hamacs-private-code-dir))
 | 
					    (make-directory hamacs-private-code-dir))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  (ha/install-code-from-essays)
 | 
					 | 
				
			||||||
  ;; (ha/install-code-from-hamacs)
 | 
					  ;; (ha/install-code-from-hamacs)
 | 
				
			||||||
 | 
					  (ha/install-code-from-essays))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(ha/install-configuration)
 | 
					(ha/install-configuration)
 | 
				
			||||||
(provide 'final-initialize)
 | 
					(provide 'final-initialize)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in a new issue