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

new messages put to hash table

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-10-04 00:37:20 +03:00
parent 84060a9e35
commit 6c5d82ac96
1 changed files with 30 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
idec.el
View File

@ -274,10 +274,11 @@ Return list with body content."
(defvar field-legth '()) (defvar field-legth '())
(defvar field-max nil) (defvar field-max nil)
(setq field-max 0) (setq field-max 0)
(dolist (msg msg-list) (maphash (lambda (id msg)
(when (> (length (get-message-field (cdr (assoc 'content msg)) field)) (when (> (length (get-message-field msg field))
field-max) field-max)
(setq field-max (length (get-message-field (cdr (assoc 'content msg)) field))))) (setq field-max (length (get-message-field msg field)))))
msg-list)
field-max) field-max)
(defun get-message-field (msg field) (defun get-message-field (msg field)
@ -311,6 +312,7 @@ Return list with body content."
(interactive) (interactive)
(defvar current-echo nil) (defvar current-echo nil)
(defvar new-messages '()) (defvar new-messages '())
(setq new-messages-list (make-hash-table :test 'equal))
(dolist (line (split-string (download-subscriptions) "\n")) (dolist (line (split-string (download-subscriptions) "\n"))
(if (string-match "\\." line) (if (string-match "\\." line)
(and (setq current-echo line) (and (setq current-echo line)
@ -318,7 +320,10 @@ Return list with body content."
(when (and (check-message-in-echo line current-echo) (when (and (check-message-in-echo line current-echo)
(> (length line) 1)) (> (length line) 1))
(download-message current-echo line)))) (download-message current-echo line))))
(display-new-messages)) ;; (print (hash-table-count new-messages-list))
;; (message (gethash "id" (nth 0 new-messages-list)))
(display-new-messages)
)
(defun answer-message (msg) (defun answer-message (msg)
"Make answer to message MSG." "Make answer to message MSG."
@ -359,36 +364,36 @@ Return list with body content."
"Display new fetched messages from `new-messages-list'." "Display new fetched messages from `new-messages-list'."
(with-output-to-temp-buffer (get-buffer-create "*IDEC: New messages*") (with-output-to-temp-buffer (get-buffer-create "*IDEC: New messages*")
(switch-to-buffer "*IDEC: New messages*") (switch-to-buffer "*IDEC: New messages*")
(if (= (length new-messages-list) 0) (if (= (hash-table-count new-messages-list) 0)
(princ "No new messages.") (princ "No new messages.")
(dolist (msg (reverse new-messages-list)) (maphash (lambda (id msg)
;; Write message subj ;; Write message subj
(insert-text-button (concat (get-message-field (cdr (assoc 'content msg)) "subj") (insert-text-button (concat (get-message-field msg "subj")
(make-string (make-string
(- (get-longest-field "subj" new-messages-list) (- (get-longest-field "subj" new-messages-list)
(length (get-message-field (cdr (assoc 'content msg)) "subj"))) (length (get-message-field msg "subj")))
? )) ? ))
'help-echo "Read message" 'help-echo "Read message"
;; 'plain-msg msg 'plain-msg msg
'action (lambda (x) (display-message msg;; (button-get x 'plain-msg) 'action (lambda (x) (display-message msg;; (button-get x 'plain-msg)
))) )))
;; Write message time and echo ;; Write message time and echo
(princ (format " %s(%s)%s%s\t%s\n" (princ (format " %s(%s)%s%s\t%s\n"
(get-message-field (cdr (assoc 'content msg)) "author") (get-message-field msg "author")
(get-message-field (cdr (assoc 'content msg)) "address") (get-message-field msg "address")
(make-string (- (make-string (-
(+ (+
(get-longest-field "author" new-messages-list) (get-longest-field "author" new-messages-list)
(get-longest-field "address" new-messages-list) (get-longest-field "address" new-messages-list)
1) 1)
(+ (+
(length (get-message-field (cdr (assoc 'content msg)) "author")) (length (get-message-field msg "author"))
(length (get-message-field (cdr (assoc 'content msg)) "address"))) (length (get-message-field msg "address")))
) )
? ) ? )
(get-message-field (cdr (assoc 'content msg)) "echo") (get-message-field msg "echo")
(get-message-field (cdr (assoc 'content msg)) "time"))) (get-message-field msg "time"))))
(add-to-invisibility-spec '((cdr (assoc 'content msg)) . t))))) new-messages-list)))
(idec-mode)) (idec-mode))
(defun get-message-content (echo msg) (defun get-message-content (echo msg)
@ -408,12 +413,15 @@ Return list with body content."
(check-message-in-echo msg echo)) (check-message-in-echo msg echo))
(setq message-content (get-message-content echo msg)) (setq message-content (get-message-content echo msg))
(store-message message-content echo msg) (store-message message-content echo msg)
(setq new-messages-list (-concat
'new-messages-list (puthash msg message-content new-messages-list)
'( ;; (setq new-messages-list (-concat
(content . message-content) ;; 'new-messages-list
(id . msg)) ;; '(
))))) ;; (content . message-content)
;; (id . msg))
;; ))
)))
(defun download-subscriptions () (defun download-subscriptions ()
"Download messages from echoes defined in `idec-echo-subscriptions' from `idec-primary-node'." "Download messages from echoes defined in `idec-echo-subscriptions' from `idec-primary-node'."