diff options
Diffstat (limited to 'lisp/general.el')
| -rw-r--r-- | lisp/general.el | 63 |
1 files changed, 8 insertions, 55 deletions
diff --git a/lisp/general.el b/lisp/general.el index a20c96b..7155d8a 100644 --- a/lisp/general.el +++ b/lisp/general.el @@ -212,53 +212,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 @@ -298,7 +251,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) @@ -314,7 +267,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 @@ -345,12 +298,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))) - ;; Snippets (use-package yasnippet :ensure t @@ -365,6 +312,11 @@ (use-package yasnippet-snippets :ensure t) +(use-package ledger-mode + :ensure t + :config + (add-to-list 'auto-mode-alist '("\\.ledger\\'" . ledger-mode))) + (use-package plantuml-mode :ensure t :config @@ -374,5 +326,6 @@ (lambda () (setq indent-line-function (lambda () 'noindent)))) + (provide 'general) ;;; general.el ends here |