diff --git a/.config/emacs/config.el b/.config/emacs/config.el index 8edf7d0..3684674 100644 --- a/.config/emacs/config.el +++ b/.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)))) + diff --git a/.config/emacs/config.org b/.config/emacs/config.org index 545aeae..aa8fca0 100644 --- a/.config/emacs/config.org +++ b/.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 + diff --git a/.config/emacs/scripts/app-launchers.el b/.config/emacs/scripts/app-launchers.el index c290791..7536a87 100644 --- a/.config/emacs/scripts/app-launchers.el +++ b/.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 +