blob: c8517de90ba92bfe28287f9e386abaa957719a43 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
;;; my-web.el -- web related extensions for emacs core -*- lexical-binding: t -*-
;; Copyright (C) 2023 Free Software Foundation.
;; Author: Yuchen Pei <id@ypei.org>
;; Package-Requires: ((emacs "28.2"))
;; This file is part of dotfiles.
;; dotfiles is free software: you can redistribute it and/or modify it under
;; the terms of the GNU Affero General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; dotfiles is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General
;; Public License for more details.
;; You should have received a copy of the GNU Affero General Public
;; License along with dotfiles. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; web related extensions for emacs core. Covers eww etc.
;;; Code:
(defun my-eww-next-path ()
(interactive)
(let ((url (plist-get eww-data :url)))
(when (string-match "^\\(.*?\\)\\([0-9]+\\)\\(.*\\)$" url)
(eww (concat
(match-string 1 url)
(number-to-string
(1+ (string-to-number (match-string 2 url))))
(match-string 3 url))))))
(defun my-eww-prev-path ()
(interactive)
(let ((url (plist-get eww-data :url)))
(when (string-match "^\\(.*\\)\\([0-9]+\\)\\(.*\\)$" url)
(eww (concat
(match-string 1 url)
(number-to-string
(1- (string-to-number (match-string 2 url))))
(match-string 3 url))))))
(defun my-eww-up-path ()
(interactive)
(let ((url (plist-get eww-data :url)))
(when (and (string-match "^\\(.*//.*/\\)[^/]+\\(/\\)?$" url)
(match-string 1 url))
(eww (match-string 1 url)))))
(defun my-eww-top-path ()
(interactive)
(let ((url (plist-get eww-data :url)))
(when (and (string-match "^\\(.*//.*?/\\).*$" url)
(match-string 1 url))
(eww (match-string 1 url)))))
(defun my-browse-url-tor-browser (url)
"Browse URL with tor-browser."
(setq url (browse-url-encode-url url))
(start-process (concat "tor-browser " url) nil "tor-browser"
"--allow-remote" url))
(defun my-browse-url-firefox-private (url)
"Browse URL in a private firefox window."
(setq url (browse-url-encode-url url))
(start-process (concat "firefox-private " url) nil "firefox"
"--private-window" url))
;; TODO: change to using hmm matching url with default app
;; override browse-url
(defun my-browse-url (url &optional arg)
(interactive "P")
(cond ((equal arg '(4))
(funcall browse-url-secondary-browser-function url))
((equal arg '(16))
(my-browse-url-tor-browser url))
(t (luwak-open url))))
;; this fixes clicking url buttons like those in gnus messages
(defalias 'browse-url-button-open-url 'my-browse-url)
(defun my-browse-url-at-point (arg)
(interactive "P")
(my-browse-url (browse-url-url-at-point) arg))
;; override eww-copy-page-url to work with bookmark id frags.
(defun eww-copy-page-url ()
"Copy the URL of the current page into the kill ring."
(interactive)
(let* ((url (plist-get eww-data :url))
(id (get-text-property (point) 'shr-frag-id))
(url-no-frag
(if (string-match "^\\(.*\\)#.*$" url)
(match-string 1 url)
url))
(final-url
(if id (concat url-no-frag "#" id)
url))
)
(message "%s" final-url)
(kill-new final-url)))
(defun my-eww-switch-by-title (title-and-buffer)
"Switches to an eww buffer with selected title."
(interactive
(list
(let ((com-table))
(dolist (buffer (buffer-list))
(with-current-buffer buffer
(when (equal major-mode 'eww-mode)
(add-to-list
'com-table
(concat (plist-get eww-data :title)
(propertize (concat " " (buffer-name))
'invisible t))))))
(completing-read "Eww buffer title: " com-table))))
(string-match "^.* \\(.*\\)$" title-and-buffer)
(switch-to-buffer (match-string 1 title-and-buffer)))
(provide 'my-web)
;;; my-web.el ends here
|
