ryuslash/emacs-config
1
0
Fork 0
Code Activity

Add extra command for ‘counsel-find-file’ to create file

Browse source 
When working on the exercises of the book I’m currently reading, I always have
to open a file, save it (to create the directory and file) and then revert the
file just so that ‘lsp-mode’ can connect to the server. With this command I can
have that done before I open the file.
This commit is contained in:
Tom Willemse 2019-07-24 08:12:15 -07:00
parent ca72f6b172
commit 53d104a44b
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
oni-counsel.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 20190409004833 ;; Version: 20190724081053
;; Package-Requires: (counsel diminish helpful) ;; Package-Requires: (counsel diminish helpful)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -29,6 +29,12 @@
(require 'counsel) (require 'counsel)
(require 'diminish) (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 (setq counsel-find-file-ignore-regexp
(rx (or (and bos ".") (rx (or (and bos ".")
(and ".zwc" eos)))) (and ".zwc" eos))))
@ -38,6 +44,10 @@
(setq counsel-describe-function-function 'helpful-callable) (setq counsel-describe-function-function 'helpful-callable)
(setq counsel-describe-variable-function 'helpful-variable) (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(with-eval-after-load 'counsel (require 'oni-counsel))
;;;###autoload ;;;###autoload
(add-hook 'emacs-startup-hook 'counsel-mode) (add-hook 'emacs-startup-hook 'counsel-mode)