alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-view: some cleanups

Browse Source
This commit is contained in:
djcb
2011-12-22 00:41:27 +02:00
parent 4bcf2a30d6
commit 4af04b7038
1 changed files with 5 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
emacs/mu4e-view.el
View File

@ -108,9 +108,6 @@ marking if it still had that."
;; initialize view-mode ;; initialize view-mode
(mu4e-view-mode) (mu4e-view-mode)
(setq ;; these are buffer-local (setq ;; these are buffer-local
mode-name (if (plist-get msg :subject)
(truncate-string-to-width (plist-get msg :subject) 16 0 nil t)
(propertize "No subject" 'face 'mu4e-system-face))
mu4e-current-msg msg mu4e-current-msg msg
mu4e-hdrs-buffer hdrsbuf mu4e-hdrs-buffer hdrsbuf
mu4e-link-map (make-hash-table :size 32 :rehash-size 2 :weakness nil)) mu4e-link-map (make-hash-table :size 32 :rehash-size 2 :weakness nil))
@ -350,26 +347,22 @@ Seen; if the message is not New/Unread, do nothing."
"*internal* A map of some number->url so we can jump to url by number.") "*internal* A map of some number->url so we can jump to url by number.")
(defconst mu4e-url-regexp (defconst mu4e-url-regexp
"\\(https?://[+-a-zA-Z0-9.?_$%/+&#@!~,:;=/]+\\)" "\\(https?://[-+a-zA-Z0-9.?_$%/+&#@!~,:;=/]+\\)"
"*internal* regexp that matches URLs; match-string 1 will contain "*internal* regexp that matches URLs; match-string 1 will contain
the matched URL, if any.") the matched URL, if any.")
(defun mu4e-view-beautify () (defun mu4e-view-beautify ()
"Improve the message view a bit, by making URLs clickable, "Improve the message view a bit, by making URLs clickable,
removing '^M' etc." coloring footers, etc."
(let ((num 0)) (let ((num 0))
(save-excursion (save-excursion
;; remove the stupid CRs
(goto-char (point-min))
(while (re-search-forward "[\r\240]" nil t)
(replace-match " " nil t))
;; give the footer a different color... ;; give the footer a different color...
(goto-char (point-min)) (goto-char (point-min))
(let ((p (search-forward "\n-- \n" nil t))) (let ((p (search-forward "\n-- \n" nil t)))
(when p (when p
(add-text-properties p (point-max) '(face mu4e-view-footer-face)))) (add-text-properties p (point-max) '(face mu4e-view-footer-face))))
;; this is fairly simplistic... ;; this is fairly simplistic...
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward mu4e-url-regexp nil t) (while (re-search-forward mu4e-url-regexp nil t)
(let ((subst (propertize (match-string-no-properties 0) (let ((subst (propertize (match-string-no-properties 0)
'face 'mu4e-view-link-face))) 'face 'mu4e-view-link-face)))
@ -639,30 +632,7 @@ results."
(interactive "sShell command: ") (interactive "sShell command: ")
(unless mu4e-current-msg (unless mu4e-current-msg
(error "No current message")) (error "No current message"))
(mu4e-view-shell-command-on-raw-message mu4e-current-msg (current-buffer) cmd)) (mu4e-view-shell-command-on-raw-message mu4e-current-msg
(current-buffer) cmd))
(defconst mu4e-muile-buffer-name "*muile*"
"Name of the buffer to execute muile.")
(defconst mu4e-muile-process-name "*muile*"
"Name of the muile process.")
;; note, implementation is very basic/primitive; we probably need comint to do
;; something like geiser does (http://www.nongnu.org/geiser/). Desirable
;; features: a) the output is not editable b) tab-completions work
(defun mu4e-inspect-message ()
"Inspect the current message in the Guile/Muile shell."
(interactive)
(unless mu4e-muile-binary (error "`mu4e-muile-binary' is not defined"))
(unless (or (file-executable-p mu4e-muile-binary)
(executable-find mu4e-muile-binary))
(error "%S not found" mu4e-muile-binary))
(unless mu4e-current-msg
(error "No current message"))
(get-buffer-create mu4e-muile-buffer-name)
(start-process mu4e-muile-buffer-name mu4e-muile-process-name
mu4e-muile-binary "--msg" (plist-get mu4e-current-msg :path))
(switch-to-buffer mu4e-muile-buffer-name)
(shell-mode))
(provide 'mu4e-view) (provide 'mu4e-view)