hiro/emacs-jupyter
1
0
Fork 0
mirror of https://github.com/vale981/emacs-jupyter synced 2025-03-05 07:41:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Ensure a unibyte representation when signing messages

Browse source
This commit is contained in:
Nathaniel Nicandro 2018-05-06 03:16:04 -05:00
parent f79c0b68ac
commit 53ebf1ad35
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
jupyter-messages.el
View file

@ -46,9 +46,14 @@
(defun jupyter--sign-message (session parts)
(if (> (length (jupyter-session-key session)) 0)
(cl-loop
for b across (hmac-sha256 (mapconcat #'identity parts "")
(jupyter-session-key session))
concat (format "%02x" b))
for byte across (hmac-sha256
;; NOTE: Encoding to a unibyte representation due to an
;; "Attempt to change byte length of a string" error.
(encode-coding-string
(mapconcat #'identity parts "") 'utf-8 t)
(encode-coding-string
(jupyter-session-key session) 'utf-8 t))
concat (format "%02x" byte))
""))
(defun jupyter--split-identities (parts)
@ -84,7 +89,7 @@
((eq keyword json-false) "false")
((eq keyword json-null) "{}")))))
(encode-coding-string
(if (stringp object) object (json-encode-plist object)) 'utf-8)))
(if (stringp object) object (json-encode-plist object)) 'utf-8 t)))
(defun jupyter--decode (str)
(setq str (decode-coding-string str 'utf-8))