From 5a6ed6c5a26f3b4c96b72a12daea033ad2a1e11e Mon Sep 17 00:00:00 2001 From: Carlo Sciolla Date: Wed, 21 Aug 2019 11:29:20 +0200 Subject: [PATCH] Use `car` instead of `first` --- plantuml-mode.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/plantuml-mode.el b/plantuml-mode.el index ec6b382..94aaf40 100644 --- a/plantuml-mode.el +++ b/plantuml-mode.el @@ -178,12 +178,12 @@ (interactive (let* ((completion-ignore-case t) (supported-modes '("jar" "server" "executable"))) (list (completing-read (format "Exec mode [%s]: " plantuml-exec-mode) - supported-modes - nil - t - nil - nil - plantuml-exec-mode)))) + supported-modes + nil + t + nil + nil + plantuml-exec-mode)))) (if (member mode '("jar" "server" "executable")) (setq plantuml-exec-mode (intern mode)) (error (concat "Unsupported mode:" mode)))) @@ -230,9 +230,9 @@ (strs (xml-get-children doc 'str)) (version (->> strs (--filter (string-equal "v" (xml-get-attribute it 'name))) - (first) + (car) (xml-node-children) - (first)))) + (car)))) (message (concat "Downloading PlantUML v" version " into " plantuml-jar-path)) (url-copy-file (format "https://search.maven.org/remotecontent?filepath=net/sourceforge/plantuml/plantuml/%s/plantuml-%s.jar" version version) plantuml-jar-path t) (kill-buffer)))