diff options
| author | jao <jao@gnu.org> | 2022-08-16 22:54:56 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-16 22:55:16 +0100 |
| commit | c65f5441e5729371a47cdc6d4ed17f00b4082214 (patch) | |
| tree | 6563fcf648a6b0003f9964f43495c45a3c922090 /custom/jao-custom-eww.el | |
| parent | 52bb6f2d832e6a2bfb851a1b53edee14c4049b3d (diff) | |
| download | elibs-c65f5441e5729371a47cdc6d4ed17f00b4082214.tar.gz elibs-c65f5441e5729371a47cdc6d4ed17f00b4082214.tar.bz2 | |
attic and whitespace
Diffstat (limited to 'custom/jao-custom-eww.el')
| -rw-r--r-- | custom/jao-custom-eww.el | 16 |
1 files changed, 8 insertions, 8 deletions
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) |