defshell, defshellonreg, defregexp

bashrc-excerpt.el

(defmacro defshell (name cmd)
  `(defun ,name ()
     (interactive)
     (insert (shell-command-to-string ,cmd))))

(defmacro defshellonreg (name cmd &optional replace)
  `(defun ,name (beg end)
     (interactive "r")
     (shell-command-on-region beg end ,cmd
                              (if ,replace (current-buffer) nil)
                              ,replace)))

(defmacro defregexp (name a b)
  `(defun ,name ()
     (interactive)
     (replace-regexp ,a ,b
                     nil
                     (if (use-region-p) (region-beginning))
                     (if (use-region-p) (region-end))
                     nil)))

(defshellonreg pbcopy-region "pbcopy")

(defshellonreg xml->clj-region "xmlclj" t)

(defshellonreg htm2clj-region "html2clj" t)

(defshellonreg edn->json "edn2json" t)

(defshell uuid "uuidgen | awk '{print tolower($0)}' | tr -d '\n'")

(defshell ls "ls")