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

Minor edits.

Browse Source
This commit is contained in:
Derek Taylor
2024-04-13 11:29:12 -05:00
parent c2a3b3b1d5
commit 5204404bad
2 changed files with 53 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
.config/emacs/config.el
View File

@@ -703,22 +703,12 @@
(defun reader ()
(interactive)
(let ((choices '(("First" . "First")
(let ((choices '(("First" . "Hi!")
("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"
))
choices nil nil 'message)))
(defun github-code-search ()
"Search code on github for a given language."
@@ -730,3 +720,29 @@
(browse-url
(concat "https://github.com/search?l=" language
"&type=code&q=" code))))
<<<<<<< HEAD
=======
(defun dm-search ()
"Search various search engines."
(interactive)
(let ((engine (completing-read
"Search Engine: "
'("Arch Wiki"
"Bing"
"Google"
"Wikipedia")))
(query (read-string "Query: ")))
(if (equal engine "Google")
(browse-url
(concat "https://www.google.com/search?q=" query)))))
(defun dt/key-value-completing (choice)
(interactive
(list
(let ((completions '(("1" "One")
("2" "Two")
("3" "Three"))))
(cadr (assoc (completing-read "Choose: " completions) completions)))))
(message "You choose `%s'" choice))
>>>>>>> 67ddcb090fdcd5be954bb3af13ae6dbc236d988f

37
.config/emacs/config.org
View File

@@ -1032,22 +1032,12 @@ With Emacs version 29, true transparency has been added. I have turned transpar
#+begin_src emacs-lisp
(defun reader ()
(interactive)
(let ((choices '(("First" . "First")
(let ((choices '(("First" . "Hi!")
("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"
))
choices nil nil 'message)))
(defun github-code-search ()
"Search code on github for a given language."
@@ -1060,4 +1050,27 @@ With Emacs version 29, true transparency has been added. I have turned transpar
(concat "https://github.com/search?l=" language
"&type=code&q=" code))))
(defun dm-search ()
"Search various search engines."
(interactive)
(let ((engine (completing-read
"Search Engine: "
'("Arch Wiki"
"Bing"
"Google"
"Wikipedia")))
(query (read-string "Query: ")))
(if (equal engine "Google")
(browse-url
(concat "https://www.google.com/search?q=" query)))))
(defun dt/key-value-completing (choice)
(interactive
(list
(let ((completions '(("1" "One")
("2" "Two")
("3" "Three"))))
(cadr (assoc (completing-read "Choose: " completions) completions)))))
(message "You choose `%s'" choice))
#+end_src