Difrex/idec.el
Difrex/idec.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Display unred messages count

Browse Source
This commit is contained in:
Denis Zheleztsov 2018-08-12 12:36:30 +03:00
parent 748a566336
commit 2f63b9388d
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
idec-mode.el
View File

@ -231,6 +231,7 @@ optionaly return cursor to CHECKPOINT."
(interactive)
(with-output-to-temp-buffer (get-buffer-create "*IDEC: INBOX*")
(switch-to-buffer "*IDEC: INBOX*")
(insert "* LOCAL ECHOAREAS\n")
(save-excursion
(dolist (echo (get-local-echoes))
(if echo
@ -246,7 +247,7 @@ optionaly return cursor to CHECKPOINT."
(setq start (point))
(end-of-line)
(setq end (point))
(add-text-properties start end '(comment t face '(:foreground "light green")))
(put-text-property start end 'font-lock-face '(:foreground "light blue"))
(princ (concat (dots echo)
"("
@ -269,7 +270,10 @@ optionaly return cursor to CHECKPOINT."
'action (lambda (x) (mark-all-as-read (button-get x 'echo) (button-get x 'point)))
'echo echo
'point (point))
(princ "]\n"))
(princ "]")
(when (> unread 0)
(princ (concat " unread (" (number-to-string unread) ")")))
(princ "\n"))
(message (concat "IDEC: FUUUUUU <" echo ">")))))
(when checkpoint
(goto-char checkpoint)))

3
idec.el
View File

@ -91,7 +91,8 @@ put cursor to CHECKPOINT."
(idec-db-get-message-by-id
(gethash "repto" (button-get x 'msg))
(gethash "echo" (button-get x 'msg)))))
'msg msg)
'msg msg
'help-echo (concat "Jump to " (gethash "repto" msg)))
(insert (concat (gethash "author" msg) "[" (gethash "address" msg) "]")))
(insert "\n")
(insert (concat "To: " (gethash "recipient" msg) "\n"))