diff --git a/core/autoload/system.el b/core/autoload/system.el index 827a89a19..2dc57368a 100644 --- a/core/autoload/system.el +++ b/core/autoload/system.el @@ -22,11 +22,11 @@ "Runs a shell command and prints any output to the DOOM buffer." (let ((cmd-list (split-string command " "))) (cond ((equal (car cmd-list) "sudo") - (apply 'doom-sudo (string-join (cdr cmd-list) " ") args)) + (apply 'doom-sudo (s-join " " (cdr cmd-list)) args)) ((let ((bin (executable-find "npm"))) (and (file-exists-p bin) (not (file-writable-p bin)))) - (apply 'doom-sudo (string-join cmd-list " ") args)) + (apply 'doom-sudo (s-join " " cmd-list) args)) (t (princ (shell-command-to-string (apply 'format command args))))))) diff --git a/modules/feature/version-control/autoload.el b/modules/feature/version-control/autoload.el index 1d29ecf9f..911f219ed 100644 --- a/modules/feature/version-control/autoload.el +++ b/modules/feature/version-control/autoload.el @@ -17,7 +17,7 @@ Fallback to repository root." (error (setq url (shell-command-to-string "hub browse -u --")) (setq url (if url - (concat (string-trim url) "/" + (concat (s-trim url) "/" (file-relative-name (buffer-file-name) (doom-project-root)) (when (use-region-p) diff --git a/modules/lang/python/packages.el b/modules/lang/python/packages.el index f29b5666c..38e4486cf 100644 --- a/modules/lang/python/packages.el +++ b/modules/lang/python/packages.el @@ -20,5 +20,5 @@ (when-let (pkgs (cl-remove-if (lambda (pkg) (zerop (shell-command (format "pip show %s" pkg)))) '("jedi" "setuptools"))) - (sh "pip install %s" (string-join pkgs " ")) + (sh "pip install %s" (s-join " " pkgs)) t)) diff --git a/modules/lang/rust/packages.el b/modules/lang/rust/packages.el index 7805fc351..723fedf3c 100644 --- a/modules/lang/rust/packages.el +++ b/modules/lang/rust/packages.el @@ -18,7 +18,7 @@ (unless (executable-find "rustc") (push "rust" pkgs)) (unless (executable-find "cargo") (push "cargo" pkgs)) (when pkgs - (sudo "pacman --noconfirm -S %s" (string-join pkgs " "))))) + (sudo "pacman --noconfirm -S %s" (s-join " " pkgs))))) ('debian) ;; TODO ('macos (unless (executable-find "rustc") diff --git a/modules/lang/sh/packages.el b/modules/lang/sh/packages.el index cf008077d..664fad280 100644 --- a/modules/lang/sh/packages.el +++ b/modules/lang/sh/packages.el @@ -7,7 +7,7 @@ ;; (def-bootstrap! sh (when-let (progs (cl-remove-if 'executable-find '("zshdb" "bashdb" "shellcheck"))) - (let ((prog-str (string-join progs " "))) + (let ((prog-str (s-join " " progs))) (pcase (doom-system-os) ('arch (sudo "pacman --noconfirm -S %s" prog-str)) diff --git a/modules/tools/electric-indent/config.el b/modules/tools/electric-indent/config.el index 5f3af0324..46f5fb917 100644 --- a/modules/tools/electric-indent/config.el +++ b/modules/tools/electric-indent/config.el @@ -26,7 +26,7 @@ trigger electric indentation." (chars (plist-get plist :chars)) (words (plist-get plist :words))) (when (or chars words) - (let ((fn-name (intern (format "doom--electric-%s" (string-join (mapcar 'symbol-name modes) "-"))))) + (let ((fn-name (intern (format "doom--electric-%s" (s-join "-" (mapcar 'symbol-name modes)))))) `(progn (defun ,fn-name () (electric-indent-local-mode +1)