;;; 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