Moving things one level deeper

To ease gnu stow usage. Now we can do

stow -t ~ emacs

1 files changed, 375 insertions, 0 deletions

diff --git a/emacs/.emacs.d/init/ycp-complete.el b/emacs/.emacs.d/init/ycp-complete.el
new file mode 100644
index 0000000..aed7b3b
--- /dev/null
+++ b/emacs/.emacs.d/init/ycp-complete.el
@@ -0,0 +1,375 @@
+;;; ycp-complete.el -- My config for minibuffer and completions -*- lexical-binding: t -*-
+
+;; Copyright (C) 2023 Free Software Foundation.
+
+;; Author: Yuchen Pei <id@ypei.org>
+;;         Protesilaos Stavrou <info@protesilaos.com>
+;; Maintainer: Yuchen Pei <id@ypei.org>
+;; Package-Requires: ((emacs "28.2"))
+
+;; This file is part of dotfiles.
+
+;; dotfiles is free software: you can redistribute it and/or modify it under
+;; the terms of the GNU Affero General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; dotfiles is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General
+;; Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with dotfiles.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My config for minibuffer and completions.
+
+;;; Code:
+
+
+
+;; completion, minibuffer, corfu, tempel
+;; part adapted from prot-dotfiles
+(my-package minibuffer
+  (setq completion-styles '(basic partial-completion emacs22 orderless))
+  (setq completion-category-overrides
+        ;; NOTE 2021-10-25: I am adding `basic' because it works better as a
+        ;; default for some contexts.  Read:
+        ;; <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=50387>.
+        ;;
+        ;; `partial-completion' is a killer app for files, because it
+        ;; can expand ~/.l/s/fo to ~/.local/share/fonts.
+        ;;
+        ;; If `basic' cannot match my current input, Emacs tries the
+        ;; next completion style in the given order.  In other words,
+        ;; `orderless' kicks in as soon as I input a space or one of its
+        ;; style dispatcher characters.
+        '((file (styles . (basic partial-completion orderless)))
+          (project-file (styles . (basic substring partial-completion orderless)))
+          (imenu (styles . (emacs22 substring orderless)))
+          (kill-ring (styles . (emacs22 substring orderless)))
+          (consult-location (styles . (emacs22 substring orderless)))
+          (eglot (styles . (emacs22 substring orderless)))))
+  (setq completion-ignore-case t)
+  (setq read-buffer-completion-ignore-case t)
+  (setq read-file-name-completion-ignore-case t)
+  ;; disable space to run minibuffer-complete-word
+  (my-keybind minibuffer-mode-map
+    "SPC" nil
+    "?" nil)
+  (my-keybind minibuffer-local-completion-map
+    "SPC" nil
+    "?" nil)
+  (setq enable-recursive-minibuffers t)
+  (minibuffer-depth-indicate-mode 1)
+  (setq resize-mini-windows t)
+  (setq read-answer-short t)
+  (setq echo-keystrokes 0.25)
+  ;; Do not allow the cursor to move inside the minibuffer prompt.  I
+  ;; got this from the documentation of Daniel Mendler's Vertico
+  ;; package: <https://github.com/minad/vertico>.
+  (setq minibuffer-prompt-properties
+        '(read-only t cursor-intangible t face minibuffer-prompt))
+  (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
+  (minibuffer-electric-default-mode 1))
+
+;;;; `savehist' (minibuffer and related histories)
+(my-package savehist
+  (setq savehist-file (locate-user-emacs-file "savehist"))
+  (setq history-length 500)
+  (setq history-delete-duplicates t)
+  (setq savehist-save-minibuffer-history t)
+  (setq savehist-additional-variables '(register-alist kill-ring))
+  (savehist-mode 1))
+
+;;;; `dabbrev' (dynamic word completion (dynamic abbreviations))
+(my-package dabbrev
+  (setq dabbrev-abbrev-char-regexp "\\sw\\|\\s_")
+  (setq dabbrev-abbrev-skip-leading-regexp "[$*/=~']")
+  (setq dabbrev-backward-only nil)
+  (setq dabbrev-case-distinction 'case-replace)
+  (setq dabbrev-case-fold-search nil)
+  (setq dabbrev-case-replace 'case-replace)
+  (setq dabbrev-check-other-buffers t)
+  (setq dabbrev-eliminate-newlines t)
+  (setq dabbrev-upcase-means-case-search t))
+
+;;; icomplete
+(my-package icomplete
+  (icomplete-vertical-mode t)
+  (setq icomplete-show-matches-on-no-input t)
+  (setq icomplete-prospects-height 4)
+  (setq icomplete-scroll t)
+  (setq icomplete-matches-format "[%s/%s] ")
+  (require 'my-complete)
+  (my-keybind icomplete-minibuffer-map
+    "<tab>" #'icomplete-force-complete
+    "M-<tab>" #'minibuffer-complete
+    "C-M-i" #'minibuffer-complete
+    "C-s"  #'icomplete-forward-completions
+    "C-r"  #'icomplete-backward-completions
+    "C-v" #'my-icomplete-vertical-forward-page
+    "M-v" #'my-icomplete-vertical-backward-page))
+
+(my-package recentf
+  (setq recentf-max-saved-items 1000)
+  (setq
+   recentf-exclude
+   '("~\\'" "\\`out\\'" "\\.log\\'" "^/[^/]*:" "\\.el\\.gz\\'" "~$" "/mnt/"
+     "^/tmp/"))
+  (recentf-mode 1)
+  ;; disable recentf-save-list on quit on non-emacs-client so that it does not
+  ;; overwrite the recentf file
+  (require 'my-utils)
+  (unless (my-server-p)
+	  (setq kill-emacs-hook (delete 'recentf-save-list kill-emacs-hook)))
+  (require 'my-complete)
+  (my-server-timer recentf-timer nil 300 'my-recentf-save-list-silently)
+  )
+
+;;; corfu
+(my-package corfu
+  (:install t)
+  (:delay 5)
+  (global-corfu-mode 1)
+  (corfu-popupinfo-mode 1)
+  (setq corfu-auto t
+        corfu-cycle t
+        corfu-separator ?\s)
+  (define-key corfu-map [remap next-line] nil)
+  (define-key corfu-map [remap previous-line] nil)
+  (define-key corfu-map [remap beginning-of-buffer] nil)
+  (define-key corfu-map [remap end-of-buffer] nil)
+  (my-keybind corfu-map
+    "C-j" 'corfu-insert
+    "<RET>" 'nil
+    "C-s" #'corfu-next
+    "C-r" #'corfu-previous)
+  (require 'my-corfu)
+  (add-hook 'minibuffer-setup-hook #'my-corfu-enable-always-in-minibuffer 1)
+  )
+
+;;; cape
+(my-package cape
+  (:install t)
+  (:delay 15)
+  (setq cape-dabbrev-min-length 3)
+  (setq cape-symbol-wrapper
+        '((org-mode ?~ ?~)
+          (markdown-mode ?` ?`)
+          (log-edit-mode ?' ?')
+          (message-mode ?' ?')))
+  (dolist (backend '( cape-symbol cape-keyword cape-file cape-history cape-dabbrev))
+    (add-to-list 'completion-at-point-functions backend)))
+
+;;; consult
+(my-package consult
+  (:install t)
+  (:delay 10)
+  (setq consult-line-numbers-widen t)
+  ;; (setq completion-in-region-function #'consult-completion-in-region)
+  (setq consult-async-min-input 3)
+  (setq consult-async-input-debounce 0.5)
+  (setq consult-async-input-throttle 0.8)
+  (setq consult-narrow-key ">")
+  (setq register-preview-delay 0.8
+        register-preview-function #'consult-register-format)
+  (setq consult-find-args "find . -not ( -path */.git* -prune )")
+  (setq consult-preview-key 'any)
+  (add-to-list 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring))
+  (add-hook 'completion-list-mode-hook #'consult-preview-at-point-mode)
+  (require 'consult-imenu) ; the `imenu' extension is in its own file
+  (require 'my-consult)
+  (my-keybind global-map
+    "C-x b" #'consult-buffer
+    "C-z" #'consult-buffer
+    "C-x l" #'consult-locate
+    "M-g M-g" #'consult-goto-line
+    "M-K" #'consult-keep-lines            ; M-S-k is similar to M-S-5 (M-%)
+    "M-F" #'consult-focus-lines           ; same principle
+    "M-s M-b" #'consult-buffer
+    "M-s M-f" #'consult-find
+    "M-s M-G" #'consult-grep
+    "M-s M-g" #'my-consult-grep-default
+    "M-s M-h" #'consult-history
+    "M-s M-i" #'consult-imenu
+    "M-s M-l" #'consult-line
+    "M-s M-m" #'consult-mark
+    "M-y" #'consult-yank-pop
+    "M-s M-s" #'consult-outline)
+  (my-keybind consult-narrow-map "?" #'consult-narrow-help)
+  (my-keybind minibuffer-local-map "C-s" #'consult-history)
+  )
+
+;;; marginalia
+(my-package marginalia
+  (:install t)
+  (:delay 10)
+  (setq marginalia-max-relative-age 0)
+  (marginalia-mode 1))
+
+(setq tempel-path
+      (locate-user-emacs-file "*tempel-templates"))
+(my-package tempel
+  (:install t)
+  (:delay 15)
+  (require 'my-tempel)
+  (my-keybind global-map
+    "M-=" #'tempel-complete             ; Alternative: `tempel-expand'
+    "M-*" #'tempel-insert)
+  (my-keybind tempel-map
+    "RET" #'tempel-done
+    "C-p" #'tempel-previous
+    "C-n" #'tempel-next
+    "<tab>" #'tempel-next
+    "<backtab>" #'tempel-previous
+    "C-S-<iso-lefttab>" #'tempel-previous)
+  (require 'my-tempel)
+    (dolist (hook '(prog-mode-hook text-mode-hook))
+    (add-hook hook 'my-tempel-setup-capf))
+    )
+
+;; consult-recoll
+(my-package consult-recoll
+  (:delay 30)
+  (:install t)
+  )
+
+(my-package hmm
+  (:delay 60)
+  (my-setq-from-local hmm-web-search-engines)
+  (require 'my-net)
+  (setq hmm-web-browsers
+        '((:name eww :command eww)
+          (:name luwak :command luwak-open)
+          (:name firefox :command browse-url-firefox)
+          (:name firefox-private :command my-browse-url-firefox-private)
+          (:name tor-browser :command my-browse-url-tor-browser)
+          (:name download-and-open :command my-fetch-url)))
+  (setq hmm-handlers
+        '(:query
+          ((:command servall-ytdl-search)
+           (:command servall-wikipedia-open)
+           (:command servall-wikipedia-search)
+           (:command hcel-global-ids)
+           (:command osm-search)
+           (:command my-org-recoll-mdn)
+           (:command consult-recoll)
+           (:command locate)
+           (:command project-or-external-find-regexp)
+           (:command dictionary-search)
+           (:command my-libgen-search)
+           (:command my-libgen-search-isbn)
+           (:command my-openlibrary-search)
+           ;; TODO: sx, grep-somewhere, grep-here, gnus news, gnus email
+           ;; rt-liber (some sort of smart search)
+           )
+
+          ;; URL handlers handle all schemes, including file:
+          ;; We want to add all file-handlers here with regex that filters
+          ;; file: in scheme
+          :url
+          ((:schemes ("http" "https")
+                     :regex "^en.wikipedia.org/wiki/.*$"
+                     :command servall-wikipedia-open)
+           (:schemes ("http" "https")
+                     :regex
+                     "^\\(?:.*\\.\\)?\\(?:stackexchange\\|stackoverflow\\|mathoverflow\\|askubuntu\\)\\.com/.*$"
+                     :command sx-open-link)
+           (:schemes ("http" "https")
+                     :regex
+                     "^\\(?:.*\\.\\)?news.ycombinator.com/.*$"
+                     :command hnreader-comment)
+           (:schemes ("http" "https")
+                     :command my-org-grok)
+           (:schemes ("mailto") :command browse-url-mail)
+           (:schemes ("mailto") :command my-gnus-fastmail-mail-url)
+           (:schemes ("http" "https") :command my-ytdl-audio)
+           (:schemes ("http" "https") :command my-ytdl-video)
+           (:schemes ("http" "https") :command my-describe-package-from-url
+                     :regex
+                     "^\\(?:elpa.gnu.org/packages\\|elpa.gnu.org/devel\\|elpa.nongnu.org/nongnu\\)\\(?:/.*\\).html")
+           (:command emms-play-url
+                     :schemes
+                     ("ftp" "http" "https" "mms" "rtmp" "rtsp" "sftp" "smb" "srt")
+                     ) ;;FIXME: buggy
+           ;; TODO: magit-clone-shallow, osm
+           )
+
+          :file
+          ;; by mimetypes / extensions etc, most can be handled by find-file?
+          ;; shell can be used for dir
+          ((:command find-file)
+           (:command dired :mimetypes ("inode/directory"))
+           (:command my-shell-with-directory :mimetypes ("inode/directory"))
+           (:command magit-status :mimetypes ("inode/directory"))
+           (:command byte-compile-file :mimetypes ("text/x-lisp"))
+           (:command hmm-file-mime-type))))
+  (setq hmm-external-handlers
+        '((:name mpv
+                 :external-command "mpv %U"
+                 :display-name "mpv player"
+                 :description "Play url with mpv"
+                 :schemes
+                 ("ftp" "http" "https" "mms" "rtmp" "rtsp" "sftp" "smb" "srt")
+                 :handling :url)
+          (:name wget
+                 :external-command "wget %U"
+                 :display-name "GNU Wget"
+                 :description "The non-interactive network downloader"
+                 :schemes
+                 ("ftp" "http" "https")
+                 :handling :url)
+          (:name qutebrowser
+                 :external-command "qutebrowser %U"
+                 :display-name "qutebrowser"
+                 :description "A keyboard-driven, vim-like browser based on PyQt5"
+                 :schemes
+                 ("http" "https")
+                 :handling :url)
+          (:name torsocks-mpv
+                 :external-command "torsocks mpv %U"
+                 :display-name "mpv player torsocks"
+                 :description "Play url with mpv over torsocks"
+                 :schemes
+                 ("ftp" "http" "https" "mms" "rtmp" "rtsp" "sftp" "smb" "srt")
+                 :handling :url)
+          (:name clean-elc-compile
+                 :external-command "clean-elc-compile %f"
+                 :description "Clean compile a directory of elisp files"
+                 :display-buffer t
+                 :mimetypes ("inode/directory")
+                 :handling :file)
+          (:name mogrify-strip
+                 :external-command "mogrify -strip %F"
+                 :description "Strip images of all profiles and comments"
+                 :display-buffer t
+                 :handling :file)
+          (:name pacfind
+                 :external-command "pacfind %f"
+                 :description "Find the pacman package containing a command"
+                 :display-buffer t
+                 :handling :query)))
+  (setq hmm-matchers
+        '(((thing-at-point-url-at-point) . hmm-url)
+          ((thing-at-point-file-at-point) . hmm-file)
+          ((and (derived-mode-p 'dired-mode) (dired-get-filename nil t))
+           . hmm-file)
+          ((and (derived-mode-p 'dired-mode) (expand-file-name default-directory))
+           . hmm-file)
+          ((and (derived-mode-p 'org-mode) (my-org-link-at-point)) . hmm-url)
+          ((get-text-property (point) 'shr-url) . hmm-url)
+          ((and (derived-mode-p 'luwak-mode)
+                (get-text-property (point) 'url))
+           . hmm-url)
+          ((and (derived-mode-p 'luwak-mode)
+                (plist-get luwak-data :url))
+           . hmm-url)
+          ((thing-at-point 'symbol) . hmm-query)
+          ((buffer-file-name) . hmm-file)
+          ((expand-file-name default-directory) . hmm-file)))
+  (hmm-update))
+
+(provide 'ycp-complete)