      "Generate a QR code from clipboard"
      (format "qrencode -s10 -o %s %s" temp-file (shell-quote-argument (current-kill 0)))
      :utils "qrencode"
-     :on-completion (lambda ()
+     :on-completion (lambda (buffer)
+                      (kill-buffer buffer)
                       (switch-to-buffer (find-file-noselect temp-file t))))))
 
 (defun dwim-shell-command-convert-image-to-icns ()

      (progress-reporter-done progress-reporter))
    (if (= (process-exit-status process) 0)
        (if on-completion
            (progn (funcall on-completion)
                   (kill-buffer (process-buffer process)))
          (progn
            (with-current-buffer calling-buffer
              (when (and (equal major-mode 'dired-mode)

       (format "Clone %s" (file-name-base url))
       (format "git clone %s" url)
       :utils "git"
       :on-completion (lambda (buffer)
                        (kill-buffer buffer)
                        (dired project-dir))))))

(defun dwim-shell-command ()
