parent
0fbccf6e9b
commit
910e982e37
37
init.el
37
init.el
|
@ -483,6 +483,7 @@ In short, DO NOT USE THIS FUNCTION!!!"
|
||||||
(load (expand-file-name "eshell" user-emacs-directory))))))
|
(load (expand-file-name "eshell" user-emacs-directory))))))
|
||||||
|
|
||||||
(setup eww
|
(setup eww
|
||||||
|
(:also-load acdw-eww)
|
||||||
(defvar-local eww-readable-p nil
|
(defvar-local eww-readable-p nil
|
||||||
"Whether current buffer is in readable-mode.")
|
"Whether current buffer is in readable-mode.")
|
||||||
(:option eww-search-prefix "https://duckduckgo.com/html?q="
|
(:option eww-search-prefix "https://duckduckgo.com/html?q="
|
||||||
|
@ -497,23 +498,29 @@ In short, DO NOT USE THIS FUNCTION!!!"
|
||||||
(advice-add 'eww-render :after #'eww@is-not-readable)
|
(advice-add 'eww-render :after #'eww@is-not-readable)
|
||||||
(advice-add 'eww-back-url :after #'eww@is-not-readable)
|
(advice-add 'eww-back-url :after #'eww@is-not-readable)
|
||||||
|
|
||||||
(:hook #'reading-mode))
|
(:hook #'reading-mode
|
||||||
|
(defun bookmark-eww--setup ()
|
||||||
|
"Setup eww bookmark integration."
|
||||||
|
(setq-local bookmark-make-record-function #'bookmark-eww--make)))
|
||||||
|
|
||||||
|
(:bind "b" #'bookmark-set
|
||||||
|
"B" #'bookmark-jump
|
||||||
|
"M-n" nil
|
||||||
|
"M-p" nil))
|
||||||
|
|
||||||
(setup files
|
(setup files
|
||||||
(:option
|
(:option auto-save-file-name-transforms `((".*" ,(acdw/dir "auto-save/" t) t))
|
||||||
auto-save-file-name-transforms `((".*" ,(acdw/dir "auto-save/" t) t))
|
auto-save-list-file-prefix (acdw/dir "auto-save-list/.saves-" t)
|
||||||
auto-save-list-file-prefix (acdw/dir "auto-save-list/.saves-" t)
|
auto-save-interval 60
|
||||||
auto-save-interval 60
|
auto-save-timeout 60
|
||||||
auto-save-timeout 60
|
auto-save-visited-interval auto-save-timeout
|
||||||
auto-save-visited-interval auto-save-timeout
|
backup-by-copying t
|
||||||
backup-by-copying t
|
backup-directory-alist `((".*" . ,(acdw/dir "backup/" t)))
|
||||||
backup-directory-alist `((".*" . ,(acdw/dir "backup/" t)))
|
delete-old-versions t
|
||||||
delete-old-versions t
|
mode-require-final-newline 'visit-save
|
||||||
mode-require-final-newline 'visit-save
|
tramp-backup-directory-alist backup-directory-alist
|
||||||
tramp-backup-directory-alist backup-directory-alist
|
vc-make-backup-files t
|
||||||
vc-make-backup-files t
|
version-control t)
|
||||||
version-control t)
|
|
||||||
|
|
||||||
(auto-save-visited-mode +1))
|
(auto-save-visited-mode +1))
|
||||||
|
|
||||||
(setup find-func
|
(setup find-func
|
||||||
|
|
|
@ -0,0 +1,38 @@
|
||||||
|
;;; acdw-eww.el --- EWW customizations -*- lexical-binding: t -*-
|
||||||
|
|
||||||
|
(require 'bookmark)
|
||||||
|
(require 'eww)
|
||||||
|
|
||||||
|
(defun bookmark-eww--make ()
|
||||||
|
"Make eww bookmark record."
|
||||||
|
`((filename . ,(plist-get eww-data :url))
|
||||||
|
(title . ,(plist-get eww-data :title))
|
||||||
|
(time . ,(current-time-string))
|
||||||
|
(handler . ,#'bookmark-eww-handler)
|
||||||
|
(defaults . (,(concat
|
||||||
|
;; url without the https and path
|
||||||
|
(replace-regexp-in-string
|
||||||
|
"/.*" ""
|
||||||
|
(replace-regexp-in-string
|
||||||
|
"\\`https?://" ""
|
||||||
|
(plist-get eww-data :url)))
|
||||||
|
" - "
|
||||||
|
;; page title
|
||||||
|
(replace-regexp-in-string
|
||||||
|
"\\` +\\| +\\'" ""
|
||||||
|
(replace-regexp-in-string
|
||||||
|
"[\n\t\r ]+" " "
|
||||||
|
(plist-get eww-data :title))))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(defun bookmark-eww-handler (bm)
|
||||||
|
"Handler for eww bookmarks."
|
||||||
|
(eww-browse-url (alist-get 'filename bm)))
|
||||||
|
|
||||||
|
(defun bookmark-eww--setup ()
|
||||||
|
"Setup eww bookmark integration."
|
||||||
|
(setq-local bookmark-make-record-function #'bookmark-eww--make))
|
||||||
|
|
||||||
|
(provide 'acdw-eww)
|
||||||
|
;;; acdw-eww.el ends here
|
Loading…
Reference in New Issue