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

Add function to intern bash env vars in emacs

This commit is contained in:
niten 2021-01-15 12:48:37 -06:00
parent 9b94939c42
commit 744b82451b
1 changed files with 24 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
site-functions.el
View File

@ -141,7 +141,16 @@
(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) (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))
(forward-char 1) (forward-char 1)
(backward-word 1) (backward-word 1)
(forward-word 2) (forward-word 2)
@ -166,32 +175,6 @@
(region-end)) (region-end))
(indent-for-tab-command)))) (indent-for-tab-command))))
;; (defun smart-tab ()
;; "This smart tab is minibuffer compliant: it acts as usual in
;; the minibuffer. Else, if mark is active, indents region. Else if
;; point is at the end of a symbol, expands it. Else indents the
;; current line."
;; (interactive)
;; (if (minibufferp)
;; (unless (minibuffer-complete)
;; (dabbrev-expand nil))
;; (if mark-active
;; (indent-region (region-beginning)
;; (region-end))
;; (if (looking-at "\\_>")
;; ;;(dabbrev-expand nil)
;; (hippie-expand nil)
;; (indent-for-tab-command)))))
;; (defun indent-or-expand (arg)
;; "Either indent according to mode, or expand the word preceding point."
;; (interactive "*P")
;; (if (and
;; (or (bobp) (= ?w (char-syntax (char-before))))
;; (or (eobp) (not (= ?w (char-syntax (char-after))))))
;; (hippie-expand arg)
;; (indent-according-to-mode)))
(defun copy-line (&optional arg) (defun copy-line (&optional arg)
(interactive) (interactive)
(save-excursion (save-excursion
@ -300,7 +283,7 @@
(lambda (a b) (or a b)) (lambda (a b) (or a b))
(mapcar f lst) (mapcar f lst)
:initial-value '())) :initial-value '()))
-
(defun every-p (f lst) (defun every-p (f lst)
(reduce (reduce
(lambda (a b) (and a b)) (lambda (a b) (and a b))
@ -400,4 +383,17 @@ even beep.)"
(progn (funcall f (car alist)) (progn (funcall f (car alist))
(setq alist (cdr alist))))) (setq alist (cdr alist)))))
(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))
(provide 'site-functions)
;; site-functions.el ends here ;; site-functions.el ends here