From 53d104a44b3043eba31bae1c3097c665e9f5bb31 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 24 Jul 2019 08:12:15 -0700 Subject: [PATCH] =?UTF-8?q?Add=20extra=20command=20for=20=E2=80=98counsel-?= =?UTF-8?q?find-file=E2=80=99=20to=20create=20file?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- oni-counsel.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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)