init.el

(defun touch-file (my-file)
  (interactive (list (read-string "File to create:" default-directory)))
  (shell-command (format "touch %s" my-file))
  (if (eq major-mode 'dired-mode) (revert-buffer)))

(global-set-key (kbd "s-f") 'touch-file)