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

Download messages to idec-mail-dir

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-10-01 13:20:44 +03:00
parent 44ca1a94b2
commit e87191d004
1 changed files with 46 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
idec.el
View File

@ -121,25 +121,30 @@ Not used if `idec-smart-fetching' is not nil."
(if (file-exists-p idec-mail-dir) (if (file-exists-p idec-mail-dir)
(message idec-mail-dir) (message idec-mail-dir)
(mkdir idec-mail-dir)) (mkdir idec-mail-dir))
(if (file-exists-p (concat idec-mail-dir (concat "/" echo))) (if (file-exists-p (concat idec-mail-dir "/" echo))
(message (concat idec-mail-dir (concat "/" echo))) (message (concat idec-mail-dir "/" echo))
(mkdir (concat idec-mail-dir (concat "/" echo))))) (mkdir (concat idec-mail-dir "/" echo))))
(defun get-echo-dir (echo) (defun get-echo-dir (echo)
"Get ECHO dir from `idec-mail-dir'." "Get ECHO dir from `idec-mail-dir'."
(concat idec-mail-dir (concat "/" echo))) (concat idec-mail-dir (concat "/" echo)))
(defun check-for-echo () (defun filename-to-store (content id)
"Check LINE and create dir." "Make filename from CONTENT unixtime and ID."
(with-current-buffer (concat (nth 2 (split-string content)) "-" id))
(if (string-match-p "^.*\..*$")
"" (defun get-message-file (echo id content)
nil))) "Get ECHO message filename by ID and CONTENT unixtime."
(concat (get-echo-dir echo) "/" (filename-to-store content id)))
(defun store-message (content echo id)
"Store CONTENT from ECHO message in `idec-mail-dir' with it ID."
(create-echo-mail-dir echo)
(write-region content nil (get-message-file echo id content) nil nil nil t))
(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'."
(if (file-exists-p (concat (get-echo-dir echo) (concat "/" msg))) (file-exists-p (concat (get-echo-dir echo) (concat "/" msg))))
nil))
(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."
@ -156,12 +161,26 @@ Not used if `idec-smart-fetching' is not nil."
Not implemented." Not implemented."
(interactive) (interactive)
(defvar current-echo nil) (defvar current-echo nil)
(defvar new-messages '())
(dolist (line (split-string (download-subscriptions) "\n")) (dolist (line (split-string (download-subscriptions) "\n"))
(message (concat "Working for " line)) (if (string-match "\\." line)
(if (string-match "^.*\..*$" line) (and (setq current-echo line)
(setq current-echo line) (message current-echo))
(proccess-echo-message line current-echo)) (if (not (check-message-in-echo current-echo line))
)) (download-message current-echo line)))))
(defun get-message-content (echo msg)
"Get ECHO MSG content from `idec-primary-node'."
(decode-coding-string
(base64-decode-string
(nth 1 (split-string (get-url-content (make-messages-url msg)) ":")))
'utf-8))
(defun download-message (echo msg)
"Download ECHO message MSG to `idec-mail-dir'."
(message (concat "Download message " msg " to " echo))
(if (not (string-match "^$" msg))
(store-message (get-message-content echo msg) echo 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'."
@ -181,6 +200,15 @@ with `idec-download-offset' and `idec-download-limit'."
(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 make-messages-url (messages)
"Make MESSAGES url to retreive messages from `idec-primary-node'."
;; Check ECHOES is list
(if (listp messages)
;; Required GNU Emacs >= 25.3
(message (concat idec-primary-node "u/m/"
(string-join messages "/")))
(message (concat idec-primary-node "u/m/" messages))))
(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*"))
@ -195,8 +223,8 @@ with `idec-download-offset' and `idec-download-limit'."
"Download new message MSG in ECHO." "Download new message MSG in ECHO."
(with-output-to-temp-buffer (get-buffer-create "*IDEC: DEBUG*") (with-output-to-temp-buffer (get-buffer-create "*IDEC: DEBUG*")
(switch-to-buffer "*IDEC: DEBUG*") (switch-to-buffer "*IDEC: DEBUG*")
(print msg) (princ msg)
(print echo))) (princ echo)))
(defun proccess-echo-list (raw-list) (defun proccess-echo-list (raw-list)
"Parse RAW-LIST from HTTP response." "Parse RAW-LIST from HTTP response."