From 4cb2ae1290837a60d552ddf1ebd5ab50ef9551fb Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:27:27 -0500 Subject: Update TODO --- TODO.org | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) diff --git a/TODO.org b/TODO.org index c543983..0ac6720 100644 --- a/TODO.org +++ b/TODO.org @@ -10,12 +10,29 @@ - [X] and =▬▬▬▬▬▬▬▋ Ò╭╮Ó= - [X] Clean up code and package it properly +*** TODO FIX the damn thing Ò╭╮Ó + +I just have to make sure it's loading correctly in my own config… bleh + +- and add: + - [ ] ヽ(°〇°)ﾉ + - [ ] ୧((#Φ益Φ#))୨ + + ** TODO keep-acs (name?) - keepassxc-cli - interface with emacs - plug into =auth-sources= +** TODO banish-mouse-x + +allow more configuration of where the mouse goes: + +- '(banish . corner) +- '(banish . (x . y)) +- … + * Configuring ** TODO Install =el-patch=? @@ -28,8 +45,32 @@ from karthink (and prot) +** TODO [[https://github.com/ahungry/md4rd][md4rd]] + +** TODO [[https://github.com/gRastello/ytel][ytel]] + +** TODO [[https://passionsplay.com/blog/create-minimal-emacs-environments-with-a-shell-script/][Create Minimal Emacs Environments with a Shell Script]] + +** TODO Twitch IRC + +- [[https://gist.github.com/hunterbridges/ab095066d40f2e1a243e][How to connect to Twitch with an IRC client (As of Oct 2015) · GitHub]] +- irc.twitch.tv + +** TODO Figuire out “boring”-aware =consult-buffer= + +- call boring-aware with =C-x b= +- call normal with =C-u C-x b= +- look at =consult--source-buffer= and define one there + * Productivity +** TODO LOOK AT [[https://github.com/odeke-em/drive][DRIVE]] + +- google drive go client +- can pull to txt/docx/whatev +- can =drive push -convert= to docs format +- :OOOOOO this would be HOUGHE + ** TODO Set up Org Capture *** Inspo: From wsinatra -- cgit 1.4.1-21-gabe81 From 04086ec1e3a717bc83dceb9d009fd600dbc12433 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:27:54 -0500 Subject: Add browse-url-browser-function --- init.el | 25 ++++++++++++++++++++----- 1 file changed, 20 insertions(+), 5 deletions(-) diff --git a/init.el b/init.el index de77912..801765b 100644 --- a/init.el +++ b/init.el @@ -140,10 +140,23 @@ AKA, DO NOT USE THIS FUNCTION!!!" "png") eos)) (lambda (&rest args) - (apply (if (executable-find "feh") - #'browse-url-feh - #'eww-browse-url) - args))) + (apply + (cond ((executable-find "feh") #'browse-url-feh) + ((executable-find "mpv") + (defun browse-image-url-mpv (url &rest _args) + "View an image URL in mpv." + (let ((url (browse-url-encode-url url)) + (process-environment + (browse-url-process-environment))) + (message "Viewing %s in mpv..." url) + (apply #'start-process + (concat "mpv " url) nil + "mpv" + (append browse-url-mpv-arguments + (list "--image-display-duration=inf" + url)))))) + (t #'eww-browse-url)) + args))) (cons (rx (or "youtube.com" ; videos "youtu.be" (seq "." (or "mp4" @@ -219,7 +232,9 @@ AKA, DO NOT USE THIS FUNCTION!!!" :channels ("#basement") :sasl-username ,circe-default-nick :sasl-password ,(acdw/make-password-fetcher - :host "m455.casa"))) + :host "m455.casa")) + ;; TODO: irc.chat.twitch.tv + ) circe-reduce-lurker-spam t circe-server-auto-join-default-type :after-auth) -- cgit 1.4.1-21-gabe81 From 84c35ed863e55ead381262508f8c14c17a8ea027 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:28:18 -0500 Subject: Add /shorten command for circe --- init.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/init.el b/init.el index 801765b..1de412e 100644 --- a/init.el +++ b/init.el @@ -262,6 +262,12 @@ AKA, DO NOT USE THIS FUNCTION!!!" (with-current-buffer buf (kill-buffer)))))) + (defun circe-command-SHORTEN (url) + "Shorten URL using `0x0-shorten-uri'." + (interactive "sURL to shorten: ") + (let ((short-url (0x0-shorten-uri (0x0--choose-server) url))) + (circe-command-SAY short-url))) + (:with-mode circe-chat-mode (:hook #'acdw/stop-paren-annoyances #'enable-circe-color-nicks -- cgit 1.4.1-21-gabe81 From e2515d2f5d825336b8c171aaf5596adfc25480e3 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:28:33 -0500 Subject: Remap C-x C-c to delete-frame --- init.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 1de412e..ed98a41 100644 --- a/init.el +++ b/init.el @@ -749,7 +749,9 @@ AKA, DO NOT USE THIS FUNCTION!!!" "M-`" nil "C-x o" #'acdw/other-window-or-switch-buffer "C-x O" #'acdw/other-window-or-switch-buffer-backward - "C-c _" #'add-file-local-variable) + "C-c _" #'add-file-local-variable + "C-x C-c" #'delete-frame ; I keep fat-fingering and exiting + ) (:with-map toggle-map (:bind "c" #'column-number-mode -- cgit 1.4.1-21-gabe81 From af33dd36b4209bcf70880ac96754727fc6e2b132 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:28:54 -0500 Subject: Add studlify-dwim to case-map --- init.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index ed98a41..80e3f39 100644 --- a/init.el +++ b/init.el @@ -763,7 +763,13 @@ AKA, DO NOT USE THIS FUNCTION!!!" (:bind "c" #'capitalize-dwim "t" #'titlecase-dwim "u" #'upcase-dwim - "l" #'downcase-dwim)) + "l" #'downcase-dwim + "s" (defun studlify-dwim (count) + "Studlify region if active, or COUNT words if not." + (interactive "*p") + (if (region-active-p) + (studlify-region (region-beginning) (region-end)) + (studlify-word count))))) (add-hook 'after-make-frame-functions (defun after-make-frame@maximize (frame) -- cgit 1.4.1-21-gabe81 From 9b076cc3d90e634222e872c962f51039a7e1ad08 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:29:10 -0500 Subject: Fix flyspell-correct loading --- init.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 80e3f39..40f40b2 100644 --- a/init.el +++ b/init.el @@ -1018,10 +1018,10 @@ specific to most general, they are these: "M-p" #'flymake-goto-prev-error)) (setup flyspell - (add-hook 'text-mode-hook #'flyspell-mode)) + (:hook-into text-mode)) (setup (:straight flyspell-correct) - (:with-mode flyspell-mode + (:with-feature flyspell (:hook (defun flyspell@correct () (:bind "C-;" #'flyspell-correct-wrapper) (:unbind "C-," "C-." "C-M-i"))))) -- cgit 1.4.1-21-gabe81 From 319dd86ee5b9b7c255a011a8faebceeb471de0ef Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:29:29 -0500 Subject: Comment kaomoji --- init.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/init.el b/init.el index 40f40b2..c2101cc 100644 --- a/init.el +++ b/init.el @@ -1208,17 +1208,18 @@ specific to most general, they are these: (setup isearch (:option search-default-mode t)) -(setup (:straight (kaomoji - :host nil - :repo "https://tildegit.org/acdw/kaomoji-insert")) - (dolist (km'(("(Ծ‸ Ծ)" "suspicious") - ("(¬‿¬)═ɜ ɛ═(⌐‿⌐ )" "pound it" "fist bump") - ("▬▬▬▬▬▬▬▋ Ò╭╮Ó" "hammer") - ("👁👄👁" "lewk") - ("( ͡~ ͜ʖ ͡°)" "wink") - ("⊙﹏⊙" "uhhh" "unsure"))) - (add-to-list 'kaomoji-alist km)) - (:global "C-x 8 k" #'kaomoji-insert)) +;; (setup (:straight (kaomoji +;; :host nil +;; :repo "https://tildegit.org/acdw/kaomoji-insert")) +;; (require 'kaomoji-insert) +;; (dolist (km'(("(Ծ‸ Ծ)" "suspicious") +;; ("(¬‿¬)═ɜ ɛ═(⌐‿⌐ )" "pound it" "fist bump") +;; ("▬▬▬▬▬▬▬▋ Ò╭╮Ó" "hammer") +;; ("👁👄👁" "lewk") +;; ("( ͡~ ͜ʖ ͡°)" "wink") +;; ("⊙﹏⊙" "uhhh" "unsure"))) +;; (add-to-list 'kaomoji-alist km)) +;; (:global "C-x 8 k" #'kaomoji-insert)) (setup (:straight lacarte) (:global "" #'lacarte-execute-menu-command)) -- cgit 1.4.1-21-gabe81 From 777e9d406b7ca9a009cca8ae1515f6012ea0c7b1 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:29:47 -0500 Subject: Configure mouse-avoidance-mode --- init.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/init.el b/init.el index c2101cc..a7e0616 100644 --- a/init.el +++ b/init.el @@ -1369,6 +1369,9 @@ browser defined in `browse-url-secondary-browser-function'." (acdw/sunrise-sunset #'modus-themes-load-operandi #'modus-themes-load-vivendi)) +(setup mouse-avoidance + (mouse-avoidance-mode 'exile)) + (setup (:straight mwim) (:global "C-a" #'mwim-beginning "C-e" #'mwim-end)) -- cgit 1.4.1-21-gabe81 From 65d065b53200168275354af03952bb4143ae1c53 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 10 Sep 2021 18:30:27 -0500 Subject: Add 💩 --- lisp/acdw.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/acdw.el b/lisp/acdw.el index cdd6cf9..d789a74 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -626,5 +626,12 @@ This function is internal. Use `acdw/make-password-fetcher' instead." (setq-local blink-matching-paren nil show-paren-mode nil))) +;;; uh +(defun 💩 (n) + "💩 x N" + (interactive "p") + (dotimes (or n 1) + (insert "💩"))) + (provide 'acdw) ;;; acdw.el ends here -- cgit 1.4.1-21-gabe81