Write core initfiles + defuns

core/lib/defuns-file.el

@@ -0,0 +1,61 @@
+;;; defuns-file.el
+
+;;;###autoload (autoload 'narf:file-delete "defuns-file" nil t)
+(evil-define-command narf:file-delete (&optional bang filename)
+  "Delete current buffer's file. If bang, then kill the buffer afterwards as well."
+  :repeat nil
+  (interactive "<!><f>")
+  (let ((filename (file-truename (or filename (buffer-file-name)))))
+    (if (not (file-exists-p filename))
+        (error "File doesn't exist: %s" filename)
+      (delete-file filename)
+      (when bang
+        (kill-this-buffer)
+        (unless (narf/real-buffer-p)
+          (narf/previous-real-buffer)))
+      (save-place-forget-unreadable-files)
+      (message "File successfully deleted: %s" filename))))
+
+(defun narf--save-exit() (save-buffer) (kill-buffer) (remove-hook 'yas-after-exit-snippet-hook '--save-exit))
+;;;###autoload (autoload 'narf:file-create "defuns-file" nil t)
+(evil-define-command narf:file-create (path &optional bang)
+  "Deploy files (and their associated templates) quickly. Will prompt
+you to fill in each snippet field before buffer closes unless BANG is
+provided."
+  :repeat nil
+  (interactive "<f><!>")
+  (let ((dir (f-dirname path))
+        (fullpath (f-full path))
+        (is-auto t))
+    (when (and bang (not (file-exists-p dir))) (f-mkdir dir))
+    (if (file-exists-p dir)
+        (if (file-exists-p fullpath)
+            (error "File already exists: %s" path)
+          (find-file fullpath)
+          (add-hook 'yas-after-exit-snippet-hook 'narf--save-exit)
+          (if bang (narf--save-exit)))
+      (error "Directory doesn't exist: %s" dir))))
+
+;;;###autoload (autoload 'narf:file-move "defuns-file" nil t)
+(evil-define-command narf:file-move (path)
+  "Move current buffer's file to PATH. Replaces %, # and other variables (see
+  `evil-ex-replace-special-filenames')"
+  :repeat nil
+  (interactive "<f>")
+  (let* ((old-path (buffer-file-name))
+         (new-path (cond ((f-dir? path)
+                          (f-expand (f-filename old-path) path))
+                         ((f-dir? (f-dirname path))
+                          (f-full path))
+                         (t (user-error "Not a valid destination: %s" path))))
+         (project-root (narf/project-root)))
+    (rename-file old-path new-path 1)
+    (rename-buffer (f-filename new-path))
+    (set-visited-file-name new-path)
+    (set-buffer-modified-p nil)
+    (save-place-forget-unreadable-files)
+    (message "File '%s' successfully renamed to '%s'"
+             (f-relative old-path project-root) (f-relative new-path project-root))))
+
+(provide 'defuns-file)
+;;; defuns-file.el ends here