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

* mu4e: set default width for :human-date to 12

Browse Source
This commit is contained in:
djcb
2012-10-22 20:27:14 +03:00
parent b16a42a48c
commit 0276ea0408
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
mu4e/mu4e-headers.el
View File

@ -47,7 +47,7 @@
:group 'mu4e) :group 'mu4e)
(defcustom mu4e-headers-fields (defcustom mu4e-headers-fields
'( (:human-date . 25) '( (:human-date . 12)
(:flags . 6) (:flags . 6)
(:from . 22) (:from . 22)
(:subject . nil)) (:subject . nil))
@ -332,7 +332,8 @@ otherwise ; show the from address; prefixed with the appropriate
(defsubst mu4e~headers-human-date (msg) (defsubst mu4e~headers-human-date (msg)
"Show a 'human' date -- that is, if the date is today, show the "Show a 'human' date -- that is, if the date is today, show the
date, otherwise, show the time." date, otherwise, show the time. The formats used for date and time
are `mu4e-headers-date-format' and `mu4e-headers-time-format'."
(let ((date (mu4e-msg-field msg :date))) (let ((date (mu4e-msg-field msg :date)))
(if (= (nth 3 (decode-time date)) (nth 3 (decode-time (current-time)))) (if (= (nth 3 (decode-time date)) (nth 3 (decode-time (current-time))))
(format-time-string mu4e-headers-time-format date) (format-time-string mu4e-headers-time-format date)
@ -380,7 +381,7 @@ if provided, or at the end of the buffer otherwise."
((replied passed) 'mu4e-replied-face) ((replied passed) 'mu4e-replied-face)
(t 'mu4e-header-face)))) (t 'mu4e-header-face))))
;; now, append the header line ;; now, append the header line
(mu4e~headers-add-header line docid point msg))) (mu4e~headers-add-header line docid point msg)))
(defconst mu4e~no-matches (purecopy "No matching messages found")) (defconst mu4e~no-matches (purecopy "No matching messages found"))
(defconst mu4e~end-of-results (purecopy "End of search results")) (defconst mu4e~end-of-results (purecopy "End of search results"))
@ -490,10 +491,10 @@ after the end of the search results."
(define-key map (kbd "D") 'mu4e-headers-mark-for-delete) (define-key map (kbd "D") 'mu4e-headers-mark-for-delete)
(define-key map (kbd "m") 'mu4e-headers-mark-for-move) (define-key map (kbd "m") 'mu4e-headers-mark-for-move)
(define-key map (kbd "r") 'mu4e-headers-mark-for-refile) (define-key map (kbd "r") 'mu4e-headers-mark-for-refile)
(define-key map (kbd "?") 'mu4e-headers-mark-for-unread) (define-key map (kbd "?") 'mu4e-headers-mark-for-unread)
(define-key map (kbd "!") 'mu4e-headers-mark-for-read) (define-key map (kbd "!") 'mu4e-headers-mark-for-read)
(define-key map (kbd "u") 'mu4e-headers-mark-for-unmark) (define-key map (kbd "u") 'mu4e-headers-mark-for-unmark)
(define-key map (kbd "+") 'mu4e-headers-mark-for-flag) (define-key map (kbd "+") 'mu4e-headers-mark-for-flag)
(define-key map (kbd "-") 'mu4e-headers-mark-for-unflag) (define-key map (kbd "-") 'mu4e-headers-mark-for-unflag)
@ -505,7 +506,7 @@ after the end of the search results."
(define-key map (kbd "<insertchar>") 'mu4e-headers-mark-for-something) (define-key map (kbd "<insertchar>") 'mu4e-headers-mark-for-something)
(define-key map (kbd "<insert>") 'mu4e-headers-mark-for-something) (define-key map (kbd "<insert>") 'mu4e-headers-mark-for-something)
(define-key map (kbd "#") 'mu4e-mark-resolve-deferred-marks) (define-key map (kbd "#") 'mu4e-mark-resolve-deferred-marks)
(define-key map "U" 'mu4e-mark-unmark-all) (define-key map "U" 'mu4e-mark-unmark-all)
@ -689,7 +690,7 @@ adding a lot of new headers looks really choppy."
at the beginning of lines to identify headers." at the beginning of lines to identify headers."
(propertize (format "%s%d%s" (propertize (format "%s%d%s"
mu4e~headers-docid-pre docid mu4e~headers-docid-post) mu4e~headers-docid-pre docid mu4e~headers-docid-post)
'docid docid 'invisible t));; 'docid docid 'invisible t));;
(defsubst mu4e~headers-docid-at-point (&optional point) (defsubst mu4e~headers-docid-at-point (&optional point)
"Get the docid for the header at POINT, or at current (point) if "Get the docid for the header at POINT, or at current (point) if
@ -1129,7 +1130,7 @@ current window. "
(mu4e-error "Must be in mu4e-headers-mode (%S)" major-mode)) (mu4e-error "Must be in mu4e-headers-mode (%S)" major-mode))
(let* ((msg (mu4e-message-at-point)) (let* ((msg (mu4e-message-at-point))
(docid (or (mu4e-message-field msg :docid) (docid (or (mu4e-message-field msg :docid)
(mu4e-warn "No message at point"))) (mu4e-warn "No message at point")))
;; decrypt (or not), based on `mu4e-decryption-policy'. ;; decrypt (or not), based on `mu4e-decryption-policy'.
(decrypt (decrypt
(and (member 'encrypted (mu4e-message-field msg :flags)) (and (member 'encrypted (mu4e-message-field msg :flags))
@ -1240,11 +1241,11 @@ N. Otherwise, don't do anything."
;; emacs has weird ideas about what horizontal, vertical means... ;; emacs has weird ideas about what horizontal, vertical means...
(horizontal (horizontal
(window-resize hwin n nil) (window-resize hwin n nil)
(incf mu4e-headers-visible-lines n)) (incf mu4e-headers-visible-lines n))
(vertical (vertical
(window-resize hwin n t) (window-resize hwin n t)
(incf mu4e-headers-visible-columns n))))))) (incf mu4e-headers-visible-columns n)))))))
(defun mu4e-headers-action () (defun mu4e-headers-action ()
"Ask user what to do with message-at-point, then do it. The "Ask user what to do with message-at-point, then do it. The
actions are specified in `mu4e-headers-actions'." actions are specified in `mu4e-headers-actions'."
@ -1259,7 +1260,7 @@ region if there is a region, then move to the next message."
(interactive) (interactive)
(mu4e-mark-set mark) (mu4e-mark-set mark)
(mu4e-headers-next)) (mu4e-headers-next))
(defun mu4e~headers-quit-buffer () (defun mu4e~headers-quit-buffer ()
"Quit the mu4e-headers buffer. This is a rather complex function, "Quit the mu4e-headers buffer. This is a rather complex function,
to ensure we don't disturb other windows." to ensure we don't disturb other windows."