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

jupyter-tunnel-connection: Use pcase-let to reduce verbosity

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-02-17 23:04:00 -06:00
parent bad068f15b
commit 2119f29def
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
jupyter-base.el
View file

@ -482,10 +482,10 @@ Note that `zmq-make-tunnel' is used to create the tunnels."
(let ((conn-info (jupyter-read-plist conn-file))
(sock (zmq-socket (zmq-current-context) zmq-REP)))
(when (tramp-tramp-file-p conn-file)
(let* ((vec (tramp-dissect-file-name conn-file))
(user (tramp-file-name-user vec)))
(setq server (if user (concat user "@" (tramp-file-name-host vec))
(tramp-file-name-host vec)))))
(pcase-let (((cl-struct tramp-file-name user host)
(tramp-dissect-file-name conn-file)))
(setq server (if user (concat user "@" host)
host))))
(unwind-protect
(cl-loop
with remoteip = (plist-get conn-info :ip)