From c65f5441e5729371a47cdc6d4ed17f00b4082214 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 16 Aug 2022 22:54:56 +0100
Subject: attic and whitespace

---
 custom/jao-custom-completion.el | 55 -----------------------------------------
 custom/jao-custom-eww.el        | 16 ++++++------
 2 files changed, 8 insertions(+), 63 deletions(-)

(limited to 'custom')

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)
-- 
cgit v1.2.3