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

Doc

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-09-29 23:56:09 +03:00
parent 958d17b29f
commit 20f8ab5c69
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
idec.el
View File

@ -106,13 +106,15 @@
(mkdir (concat idec-mail-dir (concat "/" echo)))))
(defun idec-load-new-messages ()
"Load new messages from IDEC nodes Not implemented.")
"Load new messages from IDEC nodes Not implemented."
)
;; ECHOES FUNCTIONS
;; ;;;;;;;;;;;;;;;;
(defun make-echo-url (echoes)
"Make ECHOES url to retreive messages."
"Make ECHOES url to retreive messages from `idec-primary-node';
with `idec-download-offset' and `idec-download-limit'."
;; Check ECHOES is list
(if (listp echoes)
;; Required GNU Emacs >= 25.3
@ -120,6 +122,15 @@
(string-join echoes "/") "/" idec-download-offset ":" idec-download-limit))
(message (concat idec-primary-node "u/e/" echoes "/" idec-download-offset ":" idec-download-limit))))
(defun download-subscriptions ()
"Download messages from echoes defined in `idec-echo-subscriptions' from `idec-primary-node'."
(with-current-buffer
(url-retrieve-synchronously (make-echo-url (split-string idec-echo-subscriptions ",")))
(goto-char (point-min))
(re-search-forward "^$")
(delete-region (point) (point-min))
(display-echo-messages (buffer-string))))
(defun display-echo-messages (messages)
"Display downloaded MESSAGES from echo."
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: browse echo*"))