diff --git a/oni-counsel.el b/oni-counsel.el index 2c4349c..fe833f9 100644 --- a/oni-counsel.el +++ b/oni-counsel.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 20190409004833 +;; Version: 20190724081053 ;; Package-Requires: (counsel diminish helpful) ;; This program is free software; you can redistribute it and/or modify @@ -29,6 +29,12 @@ (require 'counsel) (require 'diminish) +(defun oni-counsel-create-directory-and-file (filename) + "Create the directory and file of FILENAME before opening." + (mkdir (file-name-directory filename) t) + (write-region "" nil filename t) + (find-file filename)) + (setq counsel-find-file-ignore-regexp (rx (or (and bos ".") (and ".zwc" eos)))) @@ -38,6 +44,10 @@ (setq counsel-describe-function-function 'helpful-callable) (setq counsel-describe-variable-function 'helpful-variable) +(ivy-add-actions + 'counsel-find-file + '(("C" oni-counsel-create-directory-and-file "create"))) + ;;;###autoload(with-eval-after-load 'counsel (require 'oni-counsel)) ;;;###autoload (add-hook 'emacs-startup-hook 'counsel-mode)