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

* mm-hdrs.el: show target folder using overlay

Browse Source
This commit is contained in:
djcb
2011-11-10 19:29:15 +02:00
parent 7a4ad0bc0b
commit 0abe2e307a
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
toys/mm/mm-hdrs.el
View File

@ -440,8 +440,20 @@ The following marks are available, and the corresponding props:
;; update the hash -- remove everything current, and if add the new stuff, ;; update the hash -- remove everything current, and if add the new stuff,
;; unless we're unmarking ;; unless we're unmarking
(remhash docid mm/marks-map) (remhash docid mm/marks-map)
;; remove possible overlays
(remove-overlays (point) (line-end-position))
;; now, let's set a mark (unless we were unmarking)
(unless (eql mark 'unmark) (unless (eql mark 'unmark)
(puthash docid (list (point-marker) mark target) mm/marks-map))))) (puthash docid (list (point-marker) mark target) mm/marks-map)
;; when we have a target (ie., when moving), show the target folder in
;; an overlay
(when target
(let* ((targetstr (propertize (concat "-> " target " ")
'face 'mm/system-face))
(start (+ 2 (point))) ;; +2 for the marker fringe
(overlay (make-overlay start (+ start (length targetstr)))))
(overlay-put overlay 'display targetstr)))))))
(defun mm/hdrs-mark (mark &optional target) (defun mm/hdrs-mark (mark &optional target)
@ -563,12 +575,6 @@ start editing it. COMPOSE-TYPE is either `reply', `forward' or
(kill-buffer) (kill-buffer)
(mm))) (mm)))
;;;; TODO implement
;; (defun mm/change-sort ()
;; "Change the sorting field and/or direction."
;; (interactive)
;; )
(defun mm/rerun-search () (defun mm/rerun-search ()
"Rerun the search for the last search expression; if none exists, "Rerun the search for the last search expression; if none exists,
do a new search." do a new search."