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

New messages buffer

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-10-01 22:05:40 +03:00
parent bfb9c75619
commit f46fbbeebd
1 changed files with 34 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
idec.el
View File

@ -110,6 +110,9 @@ Not used if `idec-smart-fetching' is not nil."
(defvar smart-download-offset nil (defvar smart-download-offset nil
"Used with `idec-smart-fetch'.") "Used with `idec-smart-fetch'.")
(defvar new-messages-list '()
"New messages for display.")
;; END OF VARIABLES ;; END OF VARIABLES
;; ;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;
@ -153,7 +156,7 @@ Not used if `idec-smart-fetching' is not nil."
(defun check-message-in-echo (msg echo) (defun check-message-in-echo (msg echo)
"Check if exists message MSG in ECHO `idec-mail-dir'." "Check if exists message MSG in ECHO `idec-mail-dir'."
(file-exists-p (get-message-file echo msg))) (not (file-exists-p (get-message-file echo msg))))
(defun get-url-content (url) (defun get-url-content (url)
"Get URL content and return it without headers." "Get URL content and return it without headers."
@ -166,8 +169,7 @@ Not used if `idec-smart-fetching' is not nil."
(buffer-string))) (buffer-string)))
(defun idec-load-new-messages () (defun idec-load-new-messages ()
"Load new messages from IDEC `idec-primary-node'; "Load new messages from IDEC `idec-primary-node'."
Not implemented."
(interactive) (interactive)
(defvar current-echo nil) (defvar current-echo nil)
(defvar new-messages '()) (defvar new-messages '())
@ -175,7 +177,26 @@ Not implemented."
(if (string-match "\\." line) (if (string-match "\\." line)
(and (setq current-echo line) (and (setq current-echo line)
(store-echo-counter line)) (store-echo-counter line))
(download-message current-echo line)))) (when (and (check-message-in-echo line current-echo)
(> (length line) 1))
(download-message current-echo line))))
(display-new-messages))
(defun display-new-messages ()
"Display new fetched messages from `new-messages-list'."
(with-output-to-temp-buffer (get-buffer-create "*IDEC: New messages*")
(switch-to-buffer "*IDEC: New messages*")
(dolist (msg new-messages-list)
;; Write message subj
(insert-text-button (nth 6 (split-string msg "\n"))
'help-echo (concat "Read message"))
;; Write message time and echo
(princ (format "\t\t\t%s\t%s\t\t" (nth 1 (split-string msg "\n"))
(current-time-string
(car (read-from-string (nth 2 (split-string msg "\n")))))
))
(princ "\n")
(add-to-invisibility-spec '(msg . t)))))
(defun get-message-content (echo msg) (defun get-message-content (echo msg)
"Get ECHO MSG content from `idec-primary-node'." "Get ECHO MSG content from `idec-primary-node'."
@ -187,10 +208,14 @@ Not implemented."
(defun download-message (echo msg) (defun download-message (echo msg)
"Download ECHO message MSG to `idec-mail-dir'." "Download ECHO message MSG to `idec-mail-dir'."
(message (concat "Download message " msg " to " echo)) (message (concat "Download message " msg " to " echo))
(if (not (string-match "^$" msg)) (defvar message-content)
(if (not (if (string= "" msg)
(check-message-in-echo msg echo)) (message "Nil message")
(store-message (get-message-content echo msg) echo msg)))) (when (and (not (string= "" msg))
(check-message-in-echo msg echo))
(setq message-content (get-message-content echo msg))
(store-message message-content echo msg)
(setq new-messages-list (push message-content new-messages-list)))))
(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'."
@ -284,3 +309,4 @@ with `idec-download-offset' and `idec-download-limit'."
(provide 'idec) (provide 'idec)
;;; idec.el ends here ;;; idec.el ends here