eww.org

1 files changed, 3 insertions, 167 deletions

diff --git a/init.org b/init.org
index ef0dede..3797ffa 100644
--- a/init.org
+++ b/init.org
@@ -2220,173 +2220,9 @@
                              name url cat name)))))
             (message "No feeds found"))))
     #+end_src
-*** eww
-    #+begin_src emacs-lisp
-      (use-package jao-eww-session
-        :custom ((jao-eww-session-duplicate-tabs 'ask)
-                 (jao-eww-session-file "~/.emacs.d/eww-session.el")))
-
-      (use-package eww
-        :demand t
-        :custom ((eww-browse-url-new-window-is-tab nil)
-                 (eww-download-directory jao-sink-dir)
-                 (eww-header-line-format nil)
-                 (shr-width nil)
-                 (shr-use-colors nil)
-                 (shr-use-fonts nil)
-                 (shr-max-width 130)
-                 (shr-blocked-images ".*")
-                 (shr-max-image-proportion 0.9))
-
-        :config
-        (with-eval-after-load "org" (require 'ol-eww nil t))
-
-        (defun jao-eww--title ()
-          (if (eq "" (plist-get eww-data :title))
-              (plist-get eww-data :url)
-            (plist-get eww-data :title)))
-
-        (defun jao-eww--rename-buffer ()
-          (let ((name (jao-eww--title)))
-            (rename-buffer (format "*%s # eww*" name) t)))
-
-        (add-hook 'eww-after-render-hook #'jao-eww--rename-buffer)
-        (advice-add 'eww-back-url :after #'jao-eww--rename-buffer)
-        (advice-add 'eww-forward-url :after #'jao-eww--rename-buffer)
-
-        (defun jao-eww-browse (arg)
-          (interactive "P" eww-mode)
-          (setq eww-prompt-history
-                (cl-remove-duplicates eww-prompt-history :test #'string=))
-          (let ((url (completing-read (if arg "eww in new buffer: " "eww: ")
-                                      eww-prompt-history nil nil nil
-                                      'eww-prompt-history (eww-current-url))))
-            (eww url (when arg 4))))
-
-        (defun jao-eww-browse-new ()
-          (interactive nil eww-mode)
-          (jao-eww-browse t))
-
-        (defvar jao-eww--closed-urls ())
-
-        (defun jao-eww-close ()
-          (interactive nil eww-mode)
-          (when-let (current (eww-current-url))
-            (add-to-list 'jao-eww--closed-urls current))
-          (kill-current-buffer)
-          (when-let (b (car (jao-eww-session--list-buffers)))
-            (switch-to-buffer b)))
-
-        (defun jao-eww-reopen (arg)
-          (interactive "P")
-          (if (> (length jao-eww--closed-urls) 0)
-              (let ((url (completing-read "URL: " jao-eww--closed-urls)))
-                (jao-afio--goto-www)
-                (setq jao-eww--closed-urls (remove url jao-eww--closed-urls))
-                (eww url (when arg 4)))
-            (message "No previously closed URLs.")))
-
-        (defun jao-eww-reload (images)
-          (interactive "P" eww-mode)
-          (if images
-              (let ((shr-blocked-images nil))
-                (eww-reload t))
-            (call-interactively 'eww-reload)))
-
-        (defun jao-eww-reopen-new ()
-          (interactive)
-          (jao-eww-reopen t))
-
-        (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))))
-
-        (use-package eww-lnum :ensure t)
-
-        :bind (:map eww-mode-map (("d" . eww-download)
-                                  ("D" . jao-download)
-                                  ("o" . jao-eww-browse)
-                                  ("O" . jao-eww-browse-new)
-                                  ("f" . eww-lnum-follow)
-                                  ("F" . eww-lnum-universal)
-                                  ("j" . jao-eww-visit-url-on-page)
-                                  ("J" . jao-eww-jump-to-url-on-page)
-                                  ("L" . eww-forward-url)
-                                  ("N" . jao-eww-next-image)
-                                  ("r" . jao-eww-reload)
-                                  ("S" . jao-eww-session-load)
-                                  ("u" . jao-eww-reopen)
-                                  ("U" . jao-eww-reopen-new)
-                                  ("W" . jao-eww-close)
-                                  ("w" . org-eww-copy-for-org-mode)
-                                  ("x" . jao-rss-subscribe)
-                                  ("y" . eww-copy-page-url)
-                                  ("C-c C-w" . jao-eww-close))))
-
-      (defun jao-eww-browse-url (url &rest r)
-        "Browse URL using eww."
-        (jao-afio--goto-www)
-        (select-window (frame-first-window))
-        (let* ((url (url-encode-url url))
-               (bf (seq-find `(lambda (b)
-                                (with-current-buffer b
-                                  (string= ,url
-                                           (url-encode-url (eww-current-url)))))
-                             (jao-eww-session--list-buffers))))
-          (if bf (switch-to-buffer bf) (eww url 4))))
-
-      (setq jao-browse-url-function #'jao-eww-browse-url)
-      (setq browse-url-browser-function jao-browse-url-function)
-
-      (defun jao-eww--at-link ()
-        (and (get-text-property (point) 'shr-url)
-             (not (get-text-property (point) 'eww-form))))
-
-      (defun jao-eww--previous-url ()
-        (text-property-search-backward 'shr-url nil nil t))
-
-      (defun jao-eww--pp-link ()
-        (format "%s  @ %s"
-                (button-label (point))
-                (propertize (get-text-property (point) 'shr-url) 'face 'link)))
-
-      (defun jao-eww-visit-url-on-page (&optional arg)
-        "Visit URL from list of links in the page using completion."
-        (interactive "P")
-        (when (derived-mode-p 'eww-mode)
-          (let ((links))
-            (save-excursion
-              (goto-char (point-max))
-              (while (jao-eww--previous-url)
-                (when (jao-eww--at-link) (push (jao-eww--pp-link) links))))
-            (let* ((selection (completing-read "Browse: " links nil t))
-                   (url (replace-regexp-in-string ".*@ " "" selection)))
-              (eww url (if arg 4 nil))))))
-
-      (defun jao-eww-jump-to-url-on-page ()
-        "Jump to URL position in the page using completion."
-        (interactive)
-        (when (derived-mode-p 'eww-mode)
-          (let ((links))
-            (save-excursion
-              (goto-char (point-max))
-              (while (jao-eww--previous-url)
-                (when (jao-eww--at-link)
-                  (push (format "%s ~ %d" (jao-eww--pp-link) (point)) links))))
-            (let* ((selection (completing-read "Jump to URL in page: " links nil t))
-                   (position (replace-regexp-in-string ".*~ " "" selection))
-                   (point (string-to-number position)))
-              (goto-char point)))))
-
-      (defun jao-eww--append-html (oldfn &rest args)
-        (let ((p (apply oldfn args)))
-          (when (stringp p)
-            (let ((r (if (string-match-p ".*\\.html$" p) p (concat p ".html"))))
-              (kill-new (format "[[doc:%s]]" r))
-              r))))
-
-      (advice-add 'eww-make-unique-file-name :around #'jao-eww--append-html)
+*** Web browser (eww)
+    #+begin_src emacs-lisp
+      (jao-load-org "eww")
     #+end_src
 * Shells
 *** shell modes