127 lines
4.4 KiB
EmacsLisp
127 lines
4.4 KiB
EmacsLisp
;;; mitch-defuns.el --- custom-defined functions
|
|
;;; Commentary:
|
|
;; _ _ _
|
|
;; _ __ ___ (_)| |_ ___ | |__
|
|
;; | '_ ` _ \ | || __|/ __|| '_ \ _____
|
|
;; | | | | | || || |_| (__ | | | ||_____|
|
|
;; |_| |_| |_||_| \__|\___||_| |_|
|
|
;; _ __ _
|
|
;; __| | ___ / _| _ _ _ __ ___ ___ | |
|
|
;; / _` | / _ \| |_ | | | || '_ \ / __| / _ \| |
|
|
;; | (_| || __/| _|| |_| || | | |\__ \ _ | __/| |
|
|
;; \__,_| \___||_| \__,_||_| |_||___/(_) \___||_|
|
|
;;
|
|
;; Some functions to run when loading packages...
|
|
|
|
;;; Code:
|
|
;; (defun mitch/evil-init ()
|
|
;; "A batch of commands to run as the :init of evil's `use-package'.
|
|
;; Made solely to reduce lines in the init-file."
|
|
;; (setq evil-want-integration t
|
|
;; evil-want-keybinding nil
|
|
;; evil-want-C-u-scroll nil
|
|
;; evil-want-C-i-jump nil
|
|
;; evil-vsplit-window-right t
|
|
;; evil-split-window-below t
|
|
;; evil-undo-system
|
|
;; (if (>= (string-to-number emacs-version) 29)
|
|
;; (quote undo-redo)
|
|
;; (quote undo-fu))))
|
|
(defun mitch/evil-config ()
|
|
"A batch of commands to run as the :config of evil's `use-package'.
|
|
Made solely to reduce lines in the init-file."
|
|
(evil-mode t)
|
|
(evil-set-initial-state 'messages-buffer-mode 'normal)
|
|
(global-visual-line-mode t)
|
|
(diminish 'visual-line-mode)
|
|
;; Make evil-join combine lines. Taken from https://github.com/hlissner/doom-emacs/commit/40cf6139ed53b635fec37ce623c4b1093c78a11e
|
|
;; (evil-define-operator +evil-join-a (beg end)
|
|
;; "Join the selected lines.
|
|
;; This advice improves on `evil-join' by removing comment delimiters when joining
|
|
;; commented lines, by using `fill-region-as-paragraph'.
|
|
;; From https://github.com/emacs-evil/evil/issues/606"
|
|
;; :motion evil-line
|
|
;; (let* ((count (count-lines beg end))
|
|
;; (count (if (> count 1) (1- count) count))
|
|
;; (fixup-mark (make-marker)))
|
|
;; (dotimes (var count)
|
|
;; (if (and (bolp) (eolp))
|
|
;; (join-line 1)
|
|
;; (let* ((end (line-beginning-position 3))
|
|
;; (fill-column (1+ (- end beg))))
|
|
;; (set-marker fixup-mark (line-end-position))
|
|
;; (fill-region-as-paragraph beg end nil t)
|
|
;; (goto-char fixup-mark)
|
|
;; (fixup-whitespace))))
|
|
;; (set-marker fixup-mark nil)))
|
|
;; (advice-add #'evil-join :override #'+evil-join-a)
|
|
)
|
|
(defun mitch/graphical-setup ()
|
|
"A batch of commands to run at the beginning of
|
|
the init file when we're on a graphical display.
|
|
This prevents errors in termux and speeds up init
|
|
when editing from the console."
|
|
;; hide gui scrollbars and menubar etc
|
|
(scroll-bar-mode -1) ;; use `yascroll' instead
|
|
(setq scroll-bar-adjust-thumb-portion nil)
|
|
(tool-bar-mode 0)
|
|
(menu-bar-mode 0)
|
|
(set-fringe-mode 8)
|
|
;; diable stupid file open box thingy
|
|
(setq use-file-dialog nil)
|
|
(setq use-dialog-box nil)
|
|
;; Pixel scrolling. Only in emacs 29+...
|
|
(if (>= (string-to-number emacs-version) 29)
|
|
(pixel-scroll-precision-mode t)))
|
|
|
|
(defun toggle-ja-input ()
|
|
"Switch between english and japanese. Broken."
|
|
(interactive)
|
|
(if (eq current-input-method 'japanese)
|
|
(setq current-input-method 'japanese-ascii)
|
|
(setq current-input-method 'japanese)))
|
|
|
|
(defun mitch/general-config ()
|
|
"A batch of commands to run immediately after loading the `general' package.
|
|
Made solely to reduce lines in the init file."
|
|
(require 'mitch-keybinds))
|
|
|
|
(defun turn-off-line-numbers ()
|
|
"A tiny wrapper around `display-line-numbers-mode' or `linum'.
|
|
For use in hooks."
|
|
(interactive)
|
|
(if (bound-and-true-p display-line-numbers-mode)
|
|
(display-line-numbers-mode -1))
|
|
(if (fboundp #'linum-mode)
|
|
(linum-mode -1))
|
|
(if (fboundp #'linum-relative-mode)
|
|
(linum-relative-mode -1)))
|
|
|
|
(defun mitch/terminal-setup ()
|
|
"A batch of commands to run when opening anything that looks like a terminal.
|
|
For instance:
|
|
- Shell
|
|
- (ansi-)term
|
|
- eshell
|
|
- vterm
|
|
- Maybe SLIME too."
|
|
(turn-off-line-numbers))
|
|
|
|
;; for vterm
|
|
(defun update-pwd (path)
|
|
"Sync Emacs' working PATH with the shell's.
|
|
For use with `vterm'."
|
|
(setq default-directory path))
|
|
|
|
;; reference: https://stackoverflow.com/questions/4114577/how-do-i-define-an-emacs-lisp-function-to-spawn-a-shell-buffer-with-a-particular
|
|
(defun spawn-shell (name)
|
|
"Invoke shell test"
|
|
(interactive "MName of shell buffer to create: ")
|
|
(pop-to-buffer (get-buffer-create (generate-new-buffer-name name)))
|
|
(shell (current-buffer)))
|
|
|
|
;; This one line cost me over an hour of frustration...
|
|
(provide 'mitch-defuns)
|
|
|
|
;;; mitch-defuns.el ends here
|