From fcf28eda5707c334c1630d749db29059d478f900 Mon Sep 17 00:00:00 2001 From: Denis Zheleztsov Date: Mon, 13 Nov 2017 11:21:06 +0300 Subject: [PATCH] Fix inserting messages into DB --- idec-db.el | 7 ++++--- idec-mode.el | 3 ++- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/idec-db.el b/idec-db.el index ca8a9a9..e687d12 100644 --- a/idec-db.el +++ b/idec-db.el @@ -129,8 +129,8 @@ unread by default, but you can MARK-READ it." repto (get-message-field msg "echo") (get-message-field msg "subj") - (get-message-field msg "time") (s-join "\n" (get-message-field msg "body")) + (get-message-field msg "time") mark-read)) (message (concat "IDEC: Message " id " stored in db")) (message (concat "IDEC: Problem to store message " id)))) @@ -167,9 +167,10 @@ unread by default, but you can MARK-READ it." (let (msgs) (setq msgs (make-list 0 (make-hash-table :test 'equal))) (dolist (l (emacsql (open-echo-db echo) - [:select [id tags author recipient repto echo subj body time unread] + [:select [id, tags, author, recipient, repto, echo, subj, body, time, unread] :from messages - :order-by time])) + :order-by time + :desc])) (if (> (length l) 0) (setq msgs (append msgs (make-list 1 (make-hash-from-msg-list l)))))) msgs)) diff --git a/idec-mode.el b/idec-mode.el index 819b69f..795106f 100644 --- a/idec-mode.el +++ b/idec-mode.el @@ -276,11 +276,12 @@ optionaly return cursor to CHECKPOINT." (let (counter) (setq counter 0) (dolist (msg (get-echo-messages echo)) - (insert-button (concat (gethash "subj" msg) "\n") + (insert-button (concat (gethash "subj" msg)) 'action (lambda (x) (display-message-hash (button-get x 'msg))) 'subj (gethash "subj" msg) 'help-echo (concat "Read message *" (gethash "subj" msg) "*") 'msg msg) + (princ (concat "\t" (gethash "time" msg) "\n")) )) (idec-mode)))