Doc
This commit is contained in:
parent
958d17b29f
commit
20f8ab5c69
15
idec.el
15
idec.el
|
@ -106,13 +106,15 @@
|
||||||
(mkdir (concat idec-mail-dir (concat "/" echo)))))
|
(mkdir (concat idec-mail-dir (concat "/" echo)))))
|
||||||
|
|
||||||
(defun idec-load-new-messages ()
|
(defun idec-load-new-messages ()
|
||||||
"Load new messages from IDEC nodes Not implemented.")
|
"Load new messages from IDEC nodes Not implemented."
|
||||||
|
)
|
||||||
|
|
||||||
;; ECHOES FUNCTIONS
|
;; ECHOES FUNCTIONS
|
||||||
;; ;;;;;;;;;;;;;;;;
|
;; ;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(defun make-echo-url (echoes)
|
(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
|
;; Check ECHOES is list
|
||||||
(if (listp echoes)
|
(if (listp echoes)
|
||||||
;; Required GNU Emacs >= 25.3
|
;; Required GNU Emacs >= 25.3
|
||||||
|
@ -120,6 +122,15 @@
|
||||||
(string-join echoes "/") "/" idec-download-offset ":" idec-download-limit))
|
(string-join echoes "/") "/" idec-download-offset ":" idec-download-limit))
|
||||||
(message (concat idec-primary-node "u/e/" 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)
|
(defun display-echo-messages (messages)
|
||||||
"Display downloaded MESSAGES from echo."
|
"Display downloaded MESSAGES from echo."
|
||||||
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: browse echo*"))
|
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: browse echo*"))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user