summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJSDurand <mmemmew@gmail.com>2021-08-02 15:19:13 +0800
committerJSDurand <mmemmew@gmail.com>2021-08-02 15:19:13 +0800
commit071df572135081406f7864443ab4e83242c340cf (patch)
tree296d8cae063cff7eb50105bba34f05b91f4bfb5c
parent914f7d7e79baf56b68488f7d1737c481523dc615 (diff)
new: eww-conf
* eww-conf.el (browse-url-browser-function) (browse-url-secondary-browser-function): Now the default is EWW, and the secondary is the external browser. (eww-mode-map): Bind my download function. (durand-eww-download-callback, durand-eww-download): Customized download function that suits my needs.
-rw-r--r--eww-conf.el124
1 files changed, 122 insertions, 2 deletions
diff --git a/eww-conf.el b/eww-conf.el
index a6e486f..a546219 100644
--- a/eww-conf.el
+++ b/eww-conf.el
@@ -12,6 +12,9 @@
(require 'eww)
(require 'shr)
+(setq browse-url-browser-function #'eww-browse-url)
+(setq browse-url-secondary-browser-function 'browse-url-default-browser)
+
(setq eww-bookmarks-directory load-file-directory)
(setq eww-search-prefix "https://lite.duckduckgo.com/lite/?q=")
@@ -52,6 +55,7 @@
(define-key eww-mode-map (vector ?E) #'eww-visit-url-on-page)
(define-key eww-mode-map (vector ?J) #'eww-jump-to-url-on-page)
(define-key eww-mode-map (vector ?m) #'eww-add-bookmark)
+(define-key eww-mode-map (vector ?d) #'durand-eww-download)
(define-key dired-mode-map (kbd "E") #'eww-open-file) ; to render local HTML files
(define-key eww-buffers-mode-map (kbd "d") #'eww-bookmark-kill) ; it actually deletes
(define-key eww-bookmark-mode-map (kbd "d") #'eww-bookmark-kill) ; same
@@ -68,8 +72,8 @@
(cond ((version<= "28" emacs-version))
((setq eww-retrieve-command '("wget" "--quiet" "--output-document=-"))))
-(define-key eww-mode-map (vector 'C-tab)
- #'durand-eww-goto-search-result)
+;; (define-key eww-mode-map (vector 'C-tab)
+;; #'durand-eww-goto-search-result)
;;;###autoload
(defun durand-eww-goto-search-result ()
@@ -265,6 +269,122 @@ new EWW buffer."
nodes))
(display-buffer (get-buffer buf-name)))))))
+;; REVIEW: the line containing the universal argument looks longer in
+;; the source form, and when expanded in the help buffer, it will fit
+;; perfectly. But this does not seem to be the right approach, since
+;; this makes it harder to people to read the sources. Is it possible
+;; to process the documentation string in the help buffer, so that the
+;; documentation strings look nice in every place.
+
+;;;###autoload
+(defun durand-eww-download (&optional url name dir)
+ "Download URL to DIR as NAME.
+URL defaults to the link at point if any, else to the current
+page's URL.
+
+NAME defaults to the title of the current page if it can be
+found, else to the last component of the current page's URL, if
+any. In addition, the name will be suitably processed so that it
+fits into a file name.
+
+DIR defaults to `eww-download-directory'.
+
+In interactive uses, with a universal argument (\\[universal-argument]), prompt
+for URL, NAME, and DIR, providing the default values for the
+users to select."
+ (interactive
+ (cond
+ (current-prefix-arg
+ (list (let ((default-url (or (get-text-property (point) 'shr-url)
+ (eww-current-url))))
+ (read-string (cond
+ ((and (stringp default-url)
+ (not (string= default-url "")))
+ (format "Download URL (default %s): "
+ default-url))
+ ("Download URL: "))
+ nil nil default-url))
+ (let ((default-title
+ (or (plist-get eww-data :title)
+ (file-name-nondirectory
+ (eww-current-url)))))
+ (read-string (cond
+ ((and (stringp default-title)
+ (not (string= default-title "")))
+ (format "Download as (default %s) "
+ default-title))
+ ("Download as "))
+ nil nil default-title))
+ (read-file-name
+ "Download to: " eww-download-directory
+ eww-download-directory nil nil
+ #'file-accessible-directory-p)))
+ ((list (or (get-text-property (point) 'shr-url) (eww-current-url))
+ (or (plist-get eww-data :title)
+ (file-name-nondirectory (eww-current-url)))
+ eww-download-directory))))
+ ;; Check the validity of DIR
+ (cond ((and (stringp dir) (not (string= dir ""))
+ (file-accessible-directory-p dir)))
+ ((and (stringp dir) (not (string= dir ""))
+ (file-exists-p dir))
+ (user-error "%s is an existing file that is not a directory"
+ dir))
+ ((and (stringp dir) (not (string= dir "")))
+ ;; create the dir for the user
+ (cond ((y-or-n-p "Create a directory to download to? ")
+ (make-directory dir t))
+ ((user-error "A non-existent directory"))))
+ ((user-error "DIR should be a non-empty string, but got %S"
+ dir)))
+ ;; Check the validity of NAME
+ (cond
+ ((and (stringp name) (not (string= name ""))))
+ ((let ((default (or (plist-get eww-data :title)
+ (file-name-nondirectory
+ (eww-current-url)))))
+ (and (stringp default) (not (string= default ""))
+ (setq name default))))
+ ((user-error "NAME should be a non-empty string, but got %S"
+ name)))
+ ;; sluggish the name -- taken from Protesilaos' codes
+ (setq name
+ (downcase
+ (replace-regexp-in-string
+ "-$" ""
+ (replace-regexp-in-string
+ "--+" "-"
+ (replace-regexp-in-string
+ "\\s-+" "-"
+ (replace-regexp-in-string
+ "[][{}!@#$%^&*()_=+'\"?,.\|;:~`‘’“”]*" "" name))))))
+
+ ;; Check the validity of URL
+ (cond
+ ((and (stringp url) (not (string= url ""))))
+ ((user-error "URL should be a non-empty string, but got %S"
+ url)))
+ (url-retrieve url #'durand-eww-download-callback
+ (list name dir)))
+
+;;;###autoload
+(defun durand-eww-download-callback (status name dir)
+ "The callback function for `durand-eww-download'.
+For the meaning of STATUS, see the documentation of
+`url-retrieve'.
+
+For the meanings of NAME and DIR, see the documentation of
+`durand-eww-download'."
+ (cond
+ ((plist-get status :error)
+ (user-error "Error: %S" (plist-get status :error))))
+ (let ((file (eww-make-unique-file-name name dir)))
+ (goto-char (point-min))
+ (re-search-forward "\r?\n\r?\n")
+ (let ((coding-system-for-write 'no-conversion))
+ (write-region (point) (point-max) file))
+ (message "Saved %s" file)))
+
(provide 'eww-conf)
;;; eww-conf.el ends here