;; -*- lexical-binding: t; -*-

(defun remote-shell ()
  (interactive)
  (let ((default-directory "/ssh:bdunahu@perch.cs.colostate.edu:"))
    (shell)))

(defcustom display-line-numbers-exempt-modes
  '(vterm-mode eshell-mode shell-mode term-mode ansi-term-mode image-mode doc-view-mode newsticker-treeview-mode newsticker-treeview-item-mode dired-mode org-agenda-mode)
  "Major modes on which to disable line numbers."
  :group 'display-line-numbers
  :type 'list
  :version "green")

(defun display-line-numbers--turn-on ()
  "Turn on line numbers except for certain major modes.
Exempt major modes are defined in `display-line-numbers-exempt-modes'."
  (unless (or (minibufferp)
              (member major-mode display-line-numbers-exempt-modes))
    (display-line-numbers-mode)))

;; (use-package tex
;;   :ensure auctex
;;   :hook
;;   ((latex-mode)
;;    (text-mode . (lambda() (setq ispell-parser 'tex)))) ; improves ispell in LaTeX
;;   :custom
;;   (TeX-auto-save t)
;;   ;; better support for latex packages
;;   (TeX-parse-self t)
;;   (TeX-view-program-selection '(((output-dvi has-no-display-manager)
;;                                  "dvi2tty")
;;                                 ((output-dvi style-pstricks)
;;                                  "dvips and gv")
;;                                 (output-dvi "xdvi")
;;                                 (output-pdf "Zathura")
;;                                 (output-html "xdg-open"))))

(use-package vertico
  :init
  (vertico-mode)
  :custom
  (vertico-cycle t))

(use-package company
  :hook (prog-mode text-mode)
  :config
  (global-company-mode)
  :custom
  (company-global-modes '(bash-ts-mode emacs-lisp-mode
                                       slime-mode js-ts-mode
                                       json-ts-mode css-ts-mode
                                       python-ts-mode java-ts-mode))
  (company-set-idle-delay (lambda () (if (company-in-string-or-comment) nil 0.3)))
  (company-minimum-prefix-length 1)
  (company-tooltip-flip-when-above t)
  (company-show-numbers t)
  (company-tooltip-align-annotations t)
  (company-tooltip-limit 15)
  (company-selection-wrap-around t))

(use-package slime
  :commands slime
  :config
  (add-hook 'slime-mode-hook
            (lambda ()
              (local-set-key (kdb "C-c C-k") 'slime-eval-buffer)))
  :custom
  ;; more memory for ml libraries
  (inferior-lisp-program "sbcl --dynamic-space-size 4096"))

(use-package magit
  :commands magit-status
  :custom
  (magit-define-global-key-bindings 'recommended))


;; compilation mode
(setq compilation-always-kill t)