niten
/
doom-emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

For string join, use "" as default joiner

This commit is contained in:
niten 2021-01-15 12:52:02 -06:00
parent 744b82451b
commit 262234fa75
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
site-functions.el
View File

@ -141,16 +141,7 @@
(defun my-forward-word () (defun my-forward-word ()
"Move one word forward. Leave the pointer at start of word." "Move one word forward. Leave the pointer at start of word."
(interactive)(defun bash-env-var (varname) (interactive)
(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))
(forward-char 1) (forward-char 1)
(backward-word 1) (backward-word 1)
(forward-word 2) (forward-word 2)
@ -275,7 +266,7 @@
(defun get-path () (defun get-path ()
(split-string (getenv "PATH") ":")) (split-string (getenv "PATH") ":"))
(defun string-join (lst chr) (cl-defun string-join (lst &optional (chr ""))
(mapconcat 'identity lst chr)) (mapconcat 'identity lst chr))
(defun any-p (f lst) (defun any-p (f lst)