From 987492dc041b7a12f6a57be035df64dd74fc6c09 Mon Sep 17 00:00:00 2001
From: Derek Taylor <derek@distrotube.com>
Date: Fri, 12 Apr 2024 09:27:47 -0500
Subject: [PATCH] Testing completion-read.

---
 .config/emacs/config.el  | 25 +++++++++++++++++++++++--
 .config/emacs/config.org | 26 ++++++++++++++++++++++++--
 2 files changed, 47 insertions(+), 4 deletions(-)

diff --git a/.config/emacs/config.el b/.config/emacs/config.el
index 568eebb..690a04c 100644
--- a/.config/emacs/config.el
+++ b/.config/emacs/config.el
@@ -703,9 +703,30 @@
 
 (defun reader ()
   (interactive)
-  (let ((choices '(("First"  . 'first-choice)
+  (let ((choices '(("First"  . "First")
                    ("Second" . 'second-choice)
                    ("Third"  . 'third-choice))))
     (alist-get
      (completing-read "Choose: " choices)
-     choices nil nil 'equal)))
+     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))))
diff --git a/.config/emacs/config.org b/.config/emacs/config.org
index 8dad8a4..e363840 100644
--- a/.config/emacs/config.org
+++ b/.config/emacs/config.org
@@ -1032,10 +1032,32 @@ With Emacs version 29, true transparency has been added.  I have turned transpar
 #+begin_src emacs-lisp
 (defun reader ()
   (interactive)
-  (let ((choices '(("First"  . 'first-choice)
+  (let ((choices '(("First"  . "First")
                    ("Second" . 'second-choice)
                    ("Third"  . 'third-choice))))
     (alist-get
      (completing-read "Choose: " choices)
-     choices nil nil 'equal)))
+     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