                      (format "%s " perm)
                      (buffer-file-name))))
     (message "%s" cmd)
-    (shell-command cmd)))
+    (shell-command cmd "*Shell Temp*")
+    (kill-buffer "*Shell Temp*")))
 
 (defvar modi/toggle-one-window--buffer-name nil
   "Variable to store the name of the buffer for which the `modi/toggle-one-window'

    (set-frame-position nil 1910 0) ; pixels x y from upper left
    (set-frame-size     nil 1894 1096 :pixelwise))) ; width, height

;; Set the emacs frame/window size at startup
;; `boundp` returns t if SYMBOL's value is not void. This prevents the frame to
;; resize every time this file is re-evaluated. With the `unless boundp` condition
;; this block is evaluated only once when emacs starts.
;; (unless (boundp 'emacs-initialized)
;;   (when (window-system)
;;     (set-frame-position (selected-frame) 0 0)
;;     (set-frame-size (selected-frame) 90 30)
;;     ))

(defun modi/switch-to-scratch-and-back (arg)
  "Toggle between *scratch-MODE* buffer and the current buffer.
If a scratch buffer does not exist, create it with the major mode set to that

            (4 (setq file-name (concat (file-name-base file-name-full) ; C-u
                                       (file-name-extension file-name-full :period))))
            (16 (setq file-name file-name-full)) ; C-u C-u
            (t (setq file-name (replace-regexp-in-string ; no prefix
                                (concat "_" (getenv "USER")) "_${USER}"
                                file-name-full))))
          (kill-new file-name)
          (message file-name))
      (error "Buffer not visiting a file"))))
