From 262234fa75d03979a8dee0926519d9c6d822e7aa Mon Sep 17 00:00:00 2001 From: niten Date: Fri, 15 Jan 2021 12:52:02 -0600 Subject: [PATCH] For string join, use "" as default joiner --- site-functions.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/site-functions.el b/site-functions.el index 47c825f..8ead6e4 100644 --- a/site-functions.el +++ b/site-functions.el @@ -141,16 +141,7 @@ (defun my-forward-word () "Move one word forward. Leave the pointer at start of word." - (interactive)(defun bash-env-var (varname) - (replace-regexp-in-string "\n&" "" - (shell-command-to-string - (string-join (list ". ~/.bash_profile; echo $" - varname))))) - -(defun intern-bash-env-var (varname) - (let ((val (bash-env-var varname))) - (setenv varname val) - val)) + (interactive) (forward-char 1) (backward-word 1) (forward-word 2) @@ -275,7 +266,7 @@ (defun get-path () (split-string (getenv "PATH") ":")) -(defun string-join (lst chr) +(cl-defun string-join (lst &optional (chr "")) (mapconcat 'identity lst chr)) (defun any-p (f lst)