Minor edits.

.config/emacs/config.el

@@ -503,9 +503,6 @@
 (require 'mu4e)
 (load-file "~/nc/emacs-stuff/email-mu4e.el")
 
-;; The command used to get your emails (adapt this line, see section 2.3):
-(setq mu4e-get-mail-command "mbsync --config ~/.config/emacs/.mbsyncrc distrotube")
-
 (use-package neotree
   :config
   (setq neo-smart-open t
@@ -703,3 +700,34 @@
 	  which-key-max-description-length 25
 	  which-key-allow-imprecise-window-fit nil
 	  which-key-separator " → " ))
+
+(defun reader ()
+  (interactive)
+  (let ((choices '(("First"  . "First")
+                   ("Second" . 'second-choice)
+                   ("Third"  . 'third-choice))))
+    (alist-get
+     (completing-read "Choose: " choices)
+     choices nil t 'equal)))
+
+(setq yy-keywords
+      '("touch"
+       "touch_start"
+       "touch_end"
+       "for"
+       "foreach"
+       "forall"
+       ))
+
+
+(defun github-code-search ()
+  "Search code on github for a given language."
+  (interactive)
+  (let ((language (completing-read
+                   "Language: "
+                   '("Emacs Lisp" "Python"  "Clojure" "R")))
+        (code (read-string "Code: ")))
+    (browse-url
+     (concat "https://github.com/search?l=" language
+             "&type=code&q=" code))))
+

.config/emacs/config.org

@@ -55,6 +55,7 @@
 - [[#tldr][TLDR]]
 - [[#transparency][TRANSPARENCY]]
 - [[#which-key][WHICH-KEY]]
+- [[#test][TEST]]
 
 * IMPORTANT PROGRAMS TO LOAD FIRST
 To keep this =config.org= a reasonable length, I have moved a lot of code to individual scripts that will be sourced by this config.  These scripts are found in "~/.config/emacs/scripts" and do not contain any code that most people are likely to need to edit.
@@ -702,9 +703,6 @@ NOTE For privacy reasons, I'm importing all of my mu4e settings from a separate
 (require 'mu4e)
 (load-file "~/nc/emacs-stuff/email-mu4e.el")
 
-;; The command used to get your emails (adapt this line, see section 2.3):
-(setq mu4e-get-mail-command "mbsync --config ~/.config/emacs/.mbsyncrc distrotube")
-
 #+end_src
 
 * NEOTREE
@@ -1029,3 +1027,38 @@ With Emacs version 29, true transparency has been added.  I have turned transpar
 	  which-key-separator " → " ))
 #+end_src
 
+
+* TEST
+#+begin_src emacs-lisp
+(defun reader ()
+  (interactive)
+  (let ((choices '(("First"  . "First")
+                   ("Second" . 'second-choice)
+                   ("Third"  . 'third-choice))))
+    (alist-get
+     (completing-read "Choose: " choices)
+     choices nil t 'equal)))
+
+(setq yy-keywords
+      '("touch"
+       "touch_start"
+       "touch_end"
+       "for"
+       "foreach"
+       "forall"
+       ))
+
+
+(defun github-code-search ()
+  "Search code on github for a given language."
+  (interactive)
+  (let ((language (completing-read
+                   "Language: "
+                   '("Emacs Lisp" "Python"  "Clojure" "R")))
+        (code (read-string "Code: ")))
+    (browse-url
+     (concat "https://github.com/search?l=" language
+             "&type=code&q=" code))))
+  
+#+end_src
+

.config/emacs/scripts/app-launchers.el

@@ -28,7 +28,7 @@
 ;; The 'app-launcher' is a better run launcher since it reads the desktop applications on your system and you can search them by their names as defined in their desktop file.  This means that sometimes you have to search for a generic term rather than the actual binary command of the program.
 
 (use-package app-launcher
-  :elpaca '(app-launcher :host github :repo "SebastienWae/app-launcher"))
+  :ensure '(app-launcher :host github :repo "SebastienWae/app-launcher"))
 ;; create a global keyboard shortcut with the following code
 ;; emacsclient -cF "((visibility . nil))" -e "(emacs-run-launcher)"
 
@@ -53,3 +53,4 @@
 
 (provide 'app-launchers)
 ;;; app-launchers.el ends here
+