Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-04-13 20:28:35 +10:00
Code Issues Packages Projects Releases Wiki Activity

Testing completion-read.

Browse Source
This commit is contained in:
Derek Taylor
2024-04-12 09:27:47 -05:00
parent e2ea74fbde
commit 987492dc04
2 changed files with 47 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
.config/emacs/config.el
View File

@@ -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))))

26
.config/emacs/config.org
View File

@@ -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