diff options
| -rw-r--r-- | behaviour.el | 2 | ||||
| -rw-r--r-- | configuration.el | 39 |
2 files changed, 29 insertions, 12 deletions
diff --git a/behaviour.el b/behaviour.el index 2eea27b..1b7bc1b 100644 --- a/behaviour.el +++ b/behaviour.el @@ -1,7 +1,7 @@ (require 'use-package) (setq create-lockfiles nil) -(setq make-backup-files nil) +(setq backup-directory-alist `(("." . "~/.saves"))) (defun emacs-lisp/eval-entire-expression () (interactive) diff --git a/configuration.el b/configuration.el index d8953e1..b4086d4 100644 --- a/configuration.el +++ b/configuration.el @@ -36,10 +36,11 @@ (use-package lsp-mode :ensure t :hook ((lsp-mode . lsp-lens-mode) - (before-save . (lambda () (progn - ;; (interactive) - (when (eq major-mode 'fsharp-mode) - (lsp-format-buffer)))))) + ;; (before-save . (lambda () (progn + (interactive) + ;; (when (eq major-mode 'fsharp-mode) + ;; (lsp-format-buffer))))) + ) ;; (let ((format-option (read-string "Format buffer? (y/n) "))) ;; (when (string= format-option "y") ;; (lsp-format-buffer)))))))) @@ -238,8 +239,8 @@ ;; :map minibuffer-local-map ;; ("M-A" . marginalia-cycle))) -(use-package fstar-mode - :ensure t) +;; (use-package fstar-mode +;; :ensure t) (use-package fsharp-mode :ensure t @@ -277,12 +278,28 @@ :bind ("M-x" . helm-M-x) ("C-x b" . helm-buffers-list)) - + +(use-package windmove + :ensure t + :bind + ("C-e <right>" . windmove-right) + ("C-e <left>" . windmove-left) + ("C-e <up>" . windmove-up) + ("C-e <down>" . windmove-down)) + (use-package multiple-cursors - :ensure t - :bind - ("C-d" . mc/mark-next-like-this-word) - ("C-c m c" . mc/edit-lines)) + :ensure t + :bind + ("C-d" . mc/mark-next-like-this-word) + ("C-c m c" . mc/edit-lines) + ("C-<" . mc/mark-previous-like-this) + ("C->" . mc/mark-next-like-this)) + +(use-package move-text + :ensure t + :bind + ("M-<up>" . move-text-up) + ("M-<down>" . move-text-down)) (use-package eshell-syntax-highlighting :ensure t |