diff options
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-completion.el | 55 | ||||
| -rw-r--r-- | custom/jao-custom-eww.el | 16 |
2 files changed, 8 insertions, 63 deletions
diff --git a/custom/jao-custom-completion.el b/custom/jao-custom-completion.el index 88f0b4c..4bffd6d 100644 --- a/custom/jao-custom-completion.el +++ b/custom/jao-custom-completion.el @@ -73,61 +73,6 @@ (marginalia-mode 1) -;;; company -(use-package company - :ensure t - :custom ((company-backends '(company-capf - ;; company-bbdb - company-files - company-dabbrev - company-keywords)) - (company-global-modes '(not slack-message-buffer-mode - circe-channel-mode - telega-chat-mode)) - (company-format-margin-function nil) ;; #'company-text-icons-margin - (company-idle-delay 0.2) - (company-lighter "") - (company-lighter-base "") - (company-show-numbers nil) - (company-selection-wrap-around t) - (company-tooltip-limit 15) - (company-tooltip-align-annotations t) - (company-tooltip-offset-display 'lines)) ;; 'scrollbar - - :config - (defun jao-complete-at-point () - "Complete using company unless we're in the minibuffer." - (interactive) - (if (or (not company-mode) (window-minibuffer-p)) - (completion-at-point) - (company-manual-begin))) - - (defun jao-company-use-in-tab () - (global-set-key [remap completion-at-point] #'jao-complete-at-point) - (global-set-key [remap completion-symbol] #'jao-complete-at-point) - (global-set-key (kbd "M-TAB") #'jao-complete-at-point)) - - (jao-company-use-in-tab) - - :bind (:map company-active-map - - ("<tab>" . company-complete-common-or-cycle) - ("TAB" . company-complete-common-or-cycle) - - ("C-h" . company-show-doc-buffer) - ("M-." . company-show-location) - ("C-<return>" . company-complete-selection) - ([remap return] . company-abort) - ("RET" . company-abort) - - :filter (or (not (derived-mode-p 'eshell-mode)) - (company-explicit-action-p)) - ("<return>" . company-complete-selection) - ("RET" . company-complete-selection)) - :diminish) - -(unless (display-graphic-p) (global-company-mode 1)) - ;;; corfu (use-package corfu :ensure t diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el index dc643fb..27c5821 100644 --- a/custom/jao-custom-eww.el +++ b/custom/jao-custom-eww.el @@ -1,6 +1,6 @@ ;; -*- lexical-binding: t -*- -;;; Integration with browse-url and afio +;;; integration with browse-url and afio (defun jao-eww-browse-url (url &rest r) "Browse URL using eww." (if (derived-mode-p 'eww-mode) @@ -28,7 +28,7 @@ (setq mm-text-html-renderer #'jao-shr-html-renderer) -;;; Opening URLs +;;; opening URLs (defun jao-eww-copy-link () (interactive) (when-let (lnk (or (car (eww-links-at-point)) (eww-current-url))) @@ -55,7 +55,7 @@ (eww-reload t)) (call-interactively 'eww-reload))) -;;; Consult narrowing +;;; consult narrowing (with-eval-after-load "consult" (defvar jao-eww-consult-history nil) (defvar jao-eww-buffer-source @@ -79,13 +79,13 @@ (seq-filter #'jao-www--buffer-p (buffer-list)))))) (jao-consult-add-buffer-source 'jao-eww-buffer-source "Web" ?e)) -;;; Images +;;; images (defun jao-eww-next-image () (interactive nil eww-mode) (when-let (p (text-property-search-forward 'image-displayer nil nil t)) (goto-char (prop-match-beginning p)))) -;;; Close page and reopen +;;; close page and reopen (defvar jao-eww--closed-urls ()) (defun jao-eww-close () @@ -109,11 +109,11 @@ (interactive) (jao-eww-reopen t)) -;;; Sessions +;;; sessions (use-package jao-eww-session :custom ((jao-eww-session-file "~/.emacs.d/cache/eww-session.eld"))) -;;; Package +;;; package (use-package shr :custom ((shr-width nil) (shr-use-colors t) @@ -163,7 +163,7 @@ ("C-c C-w" . jao-eww-close) ("M-i" . eww-toggle-images)))) -;;; Fixes for shr image rendering +;;; fixes for shr image rendering (require 'shr) (defun jao-shr--kill-nl (p) |