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

Fixed Not enough arguments for format string error

Browse Source
This commit is contained in:
Denis Zheleztsov 2018-08-08 09:37:36 +03:00
parent a54bc3db9a
commit 1ac8f13eec
Signed by: Difrex
GPG Key ID: B047A0E62A285621
3 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
idec-answers.el
View File

@ -54,7 +54,7 @@
(defun base64url-encode-string (str)
"Decode base64 urlsafe string STR."
(message (concat "Base64url: " (base64-to-base64url (base64-encode-string str t))))
(base64-to-base64url (base64-encode-string str t)))
(base64-to-base64url (base64-encode-string str nil)))
(defun base64url-decode-string (str)
"Encode base64 urlsafe string STR."
@ -64,16 +64,16 @@
"Return url with `idec-primary-node' to send messages."
(concat idec-primary-node "u/point"))
(defun request-is-done (result)
"Show message with RESULT code."
(message "IDEC: Sended. Result: %S" result))
(defun request-is-done ()
"Show message."
(message "IDEC: Message sended."))
(defun do-post-request (url msg)
"Make POST request to URL with data MSG."
(message (gethash 'tmsg msg))
(web-http-post
(lambda (con header data)
(request-is-done data))
(request-is-done))
:url url
:data msg
)
@ -90,7 +90,7 @@
(defun post-message (encoded-message)
"Do POST request to `idec-primary-node' with Base64 ENCODED-MESSAGE."
(message (base64url-decode-string encoded-message))
;; (message (base64url-decode-string encoded-message))
(let (json)
(setq json (make-hash-table :test 'equal))
(puthash 'pauth idec-account-auth json)
@ -112,7 +112,6 @@
'utf-8)
msg)
(puthash "echo" echo msg)
(do-send-new-post-request msg)))
(defun do-send-new-post-request (msg)
@ -129,7 +128,6 @@
(defun do-send-reply-post-request (message)
"Make IDEC compatible point MESSAGE and send it to `idec-primary-node'."
(message (gethash "body" message))
(let (point-message)
(setq point-message (list
(gethash "echo" message)
@ -148,7 +146,6 @@
(puthash "body"
(s-join "\n" (-drop-last 1 (-drop 4 (split-string (buffer-string) "\n"))))
msg)
(message (gethash "body" msg))
(do-send-reply-post-request msg))
(defun get-answers-hash (id msg-hash)

5
idec-mode.el
View File

@ -282,8 +282,8 @@ optionaly return cursor to CHECKPOINT."
(setq longest (+ 1 (longest-local-echo-subj echo)))
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: INBOX->(" echo ")") )
(switch-to-buffer (concat "*IDEC: INBOX->(" echo ")"))
(let (counter)
(setq counter 0)
(let (start)
(setq start (point))
(dolist (msg (get-echo-messages echo))
(setq subj-length (length (gethash "subj" msg)))
(insert-button (gethash "subj" msg)
@ -302,6 +302,7 @@ optionaly return cursor to CHECKPOINT."
(princ (make-string (- longest subj-length) ? ))
(princ (concat " " (gethash "time" msg)))
(princ (concat "\t" (gethash "author" msg) "\n")))
(add-text-properties start (point) 'read-only)
(idec-mode)))))

3
idec.el
View File

@ -97,6 +97,7 @@ put cursor to CHECKPOINT."
(mark-message-read (gethash "id" msg) (gethash "echo" msg))
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: " (gethash "subj" msg) "*"))
(switch-to-buffer (concat "*IDEC: " (gethash "subj" msg) "*"))
(setq start (point))
(princ (make-message-header msg))
(princ (concat "__________________________________\n\n"
(replace-in-string "\r" "" (gethash "body" msg))))
@ -113,7 +114,7 @@ put cursor to CHECKPOINT."
(princ "\t [")
(insert-button "Quote answer")
(princ "]")
(add-text-properties (point-min) (point-max) 'read-only))
(add-text-properties start (point) 'read-only))
(idec))
(defun display-message (msg)