diff options
Diffstat (limited to '.emacs.d/init/ycp-complete.el')
| -rw-r--r-- | .emacs.d/init/ycp-complete.el | 375 |
1 files changed, 0 insertions, 375 deletions
diff --git a/.emacs.d/init/ycp-complete.el b/.emacs.d/init/ycp-complete.el deleted file mode 100644 index aed7b3b..0000000 --- a/.emacs.d/init/ycp-complete.el +++ /dev/null @@ -1,375 +0,0 @@ -;;; 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) |