diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-web.el')
-rw-r--r-- | emacs/.emacs.d/lisp/my/my-web.el | 25 |
1 files changed, 18 insertions, 7 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el index bd6a55d..311bcf9 100644 --- a/emacs/.emacs.d/lisp/my/my-web.el +++ b/emacs/.emacs.d/lisp/my/my-web.el @@ -126,16 +126,27 @@ (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)))))) + (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))) +(defun my-red-energy-copy-clean-url (beg end) + "Clean up the payment url in a raw red energy bill email." + (interactive "r") + (let ((url (url-unhex-string + (replace-regexp-in-string + "^.*url=" "" (replace-regexp-in-string + "=3D" "=" (replace-regexp-in-string "= +" "" (buffer-substring-no-properties beg end))))))) + (kill-new url) + (message "Copied link: %s" url))) + (provide 'my-web) ;;; my-web.el ends here |