From 8a34cf5a197f7176210cc91b5f26999676ced574 Mon Sep 17 00:00:00 2001
From: Matthew Kosarek <matthew@matthewkosarek.xyz>
Date: Tue, 19 Sep 2023 10:27:25 -0400
Subject: Kanagawa theme and putting all custom commands in an mk file

---
 lisp/general.el | 60 +++++----------------------------------------------------
 1 file changed, 5 insertions(+), 55 deletions(-)

(limited to 'lisp/general.el')

diff --git a/lisp/general.el b/lisp/general.el
index 71156f4..068552e 100644
--- a/lisp/general.el
+++ b/lisp/general.el
@@ -211,53 +211,6 @@
 (bind-key* (kbd "C-x k") 'kill-this-buffer)
 (bind-key* (kbd "C-;") 'treemacs)
 
-(defun my-create-file (filename)
-  "Create a file and refresh neotree.  FILENAME File to create."
-  (interactive (list (read-file-name "Enter your file name:  " nil nil nil (file-name-nondirectory ""))))
-  (make-empty-file filename)
-  (find-file filename))
-
-(bind-key* (kbd "C-c f n") 'my-create-file)
-
-(defun my-create-directory ()
-  "Create a directory and refresh neotree."
-  (interactive)
-  (call-interactively #'make-directory)
-  (other-window -1))
-(bind-key* (kbd "C-c d n") 'my-create-directory)
-
-(defun my-delete-file ()
-  "Delete a file and refresh neotree."
-  (interactive)
-  (call-interactively #'delete-file))
-(bind-key* (kbd "C-c f d") 'my-delete-file)
-
-(defun my-delete-directory ()
-  "Delete a file and refresh neotree."
-  (interactive)
-  (call-interactively #'delete-directory))
-(bind-key* (kbd "C-c d d") 'my-delete-directory)
-
-;; source: http://steve.yegge.googlepages.com/my-dot-emacs-file
-(defun my-rename-file (new-name)
-  "Renames both current buffer and file it's visiting to NEW-NAME."
-  (interactive "sNew name: ")
-  (let ((name (buffer-name))
-        (filename (buffer-file-name)))
-    (if (not filename)
-        (message "Buffer '%s' is not visiting a file!" name)
-      (if (get-buffer new-name)
-          (message "A buffer named '%s' already exists!" new-name)
-        (progn
-          (rename-file filename new-name 1)
-          (rename-buffer new-name)
-          (set-visited-file-name new-name)
-          (set-buffer-modified-p nil)
-          ;(neotree-show)
-          ;(neotree-refresh)
-          (other-window -1))))))
-(bind-key* (kbd "C-c f r") 'my-rename-file)
-
 (use-package company
   :ensure t
   :defer t
@@ -293,7 +246,7 @@
 
 ;; Vterm
 
-(defun my-vterm-mode-set-colors()
+(defun vterm-mode-set-colors()
 	"Set the colors of vterm to match my personal taste."
 	(setq-local global-hl-line-mode nil)
 	;(turn-off-evil-mode)
@@ -309,7 +262,7 @@
   :ensure t
   :defer t
   )
-(add-hook 'vterm-mode-hook 'my-vterm-mode-set-colors)
+(add-hook 'vterm-mode-hook 'vterm-mode-set-colors)
 
 (use-package vterm-toggle
   :ensure t
@@ -340,12 +293,6 @@
   (define-key drag-stuff-mode-map (drag-stuff--kbd 'down) 'drag-stuff-down)
   )
 
-;; Copy the entire buffer.
-(defun my-copy-all ()
-    "Copy entire buffer to clipboard."
-    (interactive)
-    (clipboard-kill-ring-save (point-min) (point-max)))
-
 (use-package flycheck
   :ensure t
   :config
@@ -366,5 +313,8 @@
 (use-package yasnippet-snippets
   :ensure t)
 
+(use-package ledger-mode
+  :ensure t)
+
 (provide 'general)
 ;;; general.el ends here
-- 
cgit v1.2.1