dotfiles/emacs/.emacs-all

;; Bootstrap Straight Package Manager
(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 5))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

;; packages to install and load
(straight-use-package 'auto-complete)
(straight-use-package '(nano-theme :type git :host github
                                   :repo "rougier/nano-theme"))
(straight-use-package
 '(slime-company :type git :host github :repo "anwyn/slime-company"))
(straight-use-package 'sublimity)
(straight-use-package 'all-the-icons)
(straight-use-package 'neotree)
(straight-use-package 'rust-mode)
(straight-use-package 'markdown-mode)
(straight-use-package 'moe-theme)
(straight-use-package 'ample-theme)
(straight-use-package 'slime)
(straight-use-package 'ac-slime)
(straight-use-package 'evil)
(straight-use-package 'dimmer)
(straight-use-package 'magit)
(straight-use-package 'diff-hl)
(straight-use-package 'rainbow-delimiters)
(straight-use-package 'focus)
(straight-use-package 'solarized-theme)
(straight-use-package 'windresize)
(straight-use-package 'yasnippet)
(straight-use-package
 '(janet-mode :type git :host github
   :repo "ALSchwalm/janet-mode"))
(straight-use-package
 '(puppet-mode :type git :host github
   :repo "voxpupuli/puppet-mode"))
(straight-use-package
 '(pico8-mode :type git :host github
   :repo "Kaali/pico8-mode"))
(straight-use-package
 '(fzf :type git :host github
   :repo "bling/fzf.el"))

;; Mastodon
(straight-use-package
 '(mastodon
   :type git :host nil
   :repo "https://codeberg.org/martianh/mastodon.el"))

;; Gopher browser
(straight-use-package 'elpher)
(straight-use-package 'xterm-color)
(defun display-ansi-colors ()
  (interactive)
  (let ((inhibit-read-only t))
    (ansi-color-apply-on-region (point-min) (point-max))))

;;; Terminal in emacs via vterm lib
(straight-use-package
 '(vterm :type git :host github
   :repo "akermu/emacs-libvterm"))

;;; Vterm config
(setq vterm-buffer-name-string "%s")
(add-hook 'vterm-mode-hook
          (lambda ()
            (set (make-local-variable 'buffer-face-mode-face) 'fixed-pitch)
            (buffer-face-mode t)))

(global-set-key (kbd "C-<escape>") 'vterm-send-escape)
(global-set-key (kbd "C-c C-s") 'vterm-send-C-r)
(global-set-key (kbd "C-c C-u") 'vterm-send-C-u)
(global-set-key (kbd "C-c C-d") 'vterm-send-C-d)

;;; Syntax highlights for uxn-tal
(straight-use-package
 '(tal-mode :type git :host github
   :repo "rafapaezbas/uxntal-mode"))

;;; Cursor highlighter
(straight-use-package
 '(beacon :type git :host github
   :repo "Malabarba/beacon"))

(global-set-key (kbd "C-c B") 'beacon-mode)

;; Vimperator like hints for
;; file navigationaki2o/emacs-pophint
(straight-use-package
  '(pophint :type git :host github
	    :repo "aki2o/emacs-pophint"))

(global-set-key (kbd "C-c f") 'pophint:do-flexibly)

;;; Code folding
(add-hook 'prog-mode-hook 'hs-minor-mode)

(global-set-key (kbd "C-c a") 'hs-toggle-hiding)

;;; Error checking
(global-set-key (kbd "C-c 2 e") 'flymake-mode)

;; System monitor
;; (straight-use-package
;;  '(symon :type git :host github
;; 	 :repo "zk-phi/symon"))
;; For whatever reason, using straight to build this
;; package results in bugs on Linux (not OSX). I'm assuming
;; because straight is building from git and there is a regression.
;; As such -- MELPA config
;; This config is likely redudant and I can use the straight
;; MELPA interface, but it's working and I'm too lazy to change it
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(package-install 'symon)
(symon-mode 1)

;; Icicles
(straight-use-package 'icicles)

(straight-use-package
 '(telephone-line :type git :host github
		  :repo "dbordak/telephone-line"))
(telephone-line-mode 1)

;;; Indent highlighting
(straight-use-package
 '(highlight-indent-guides
   :type git :host github
   :repo "DarthFennec/highlight-indent-guides"))
(setq highlight-indent-guides-method 'character)
(add-hook 'prog-mode-hook 'highlight-indent-guides-mode)

;; Org mode
;; Get src block tabs to work how I expect
(setq org-src-tab-acts-natively t)
(setq org-src-preserve-indentation nil 
      org-edit-src-content-indentation 0)

;; tramp
(setq tramp-default-method "ssh")

(require 'yasnippet)

;; Configure focus
(require 'focus)
(add-to-list 'focus-mode-to-thing '(lisp-mode . paragraph))

;; rainbow delims
(require 'rainbow-delimiters)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)

;; Git stuff
(require 'magit)
(require 'diff-hl)
;; Just enable diff-hl per buffer,
;; it seems expensive 
;; (global-diff-hl-mode)
(add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
(add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)
(diff-hl-margin-mode t)

(require 'dimmer)
(setq dimmer-fraction 0.4)

;; always enable ido mode
(require 'ido)
(ido-mode t)

(require 'evil)
(evil-mode 1)

;; Enable tab behavior like vi
(straight-use-package '(evil-tabs :type git :host github
                                  :repo "krisajenkins/evil-tabs"))
(require 'evil-tabs)
(global-evil-tabs-mode t)

(require 'auto-complete)
(global-auto-complete-mode t)

(require 'slime)
(require 'ac-slime)
(slime-setup '(slime-fancy ac-slime))
(add-hook 'slime-mode-hook 'set-up-slime-ac)
(add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
(eval-after-load "auto-complete"
  '(add-to-list 'ac-modes 'slime-repl-mode))

(require 'markdown-mode)

(require 'neotree)
(global-set-key [f8] 'neotree-toggle)

(require 'all-the-icons)

(require 'sublimity)
(require 'sublimity-scroll)
(require 'sublimity-map) ;; experimental
(require 'sublimity-attractive)
(setq sublimity-scroll-weight 10
      sublimity-scroll-drift-length 5)
(setq sublimity-map-size 40)
(setq sublimity-map-fraction 0.3)
(setq sublimity-map-text-scale -5)
(sublimity-map-set-delay 0.1)
(setq sublimity-attractive-centering-width nil)

(setq backup-directory-alist
      `((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms
      `((".*" ,temporary-file-directory t)))

;;; Generic options for all OSs
; Smooth mouse scroll a bit
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1) ((control) . nil)))
(setq mouse-wheel-progressive-speed nil)

;; normal home/end behavior
(global-set-key (kbd "<home>") 'beginning-of-line)
(global-set-key (kbd "<end>") 'end-of-line)


(defun sol-dk ()
  (interactive)
  (load-theme 'solarized-dark))

(defun sol-l ()
  (interactive)
  (load-theme 'solarized-light))

;; Keybinds/macros
;;(global-set-key (kbd "C-c C-q") #'mu-magit-kill-buffers magit-status-mode-map)
(global-set-key (kbd "C-c C-q") #'mu-magit-kill-buffers)
(global-set-key (kbd "C-c ;") 'comment-line)
(global-set-key (kbd "C-c b") 'fzf-switch-buffer)
(global-set-key (kbd "C-c z") 'fzf-find-file)
(global-set-key (kbd "C-c e") '(lambda ()
				 (interactive)
				 (diff-hl-mode)
				 (diff-hl-flydiff-mode)))
(global-set-key (kbd "C-c d") 'slime-describe-symbol)
(global-set-key (kbd "C-c M-r") 'slime-restart-inferior-lisp)
(global-set-key (kbd "C-c D") 'dimmer-mode)
(global-set-key (kbd "C-c S") 'sublimity-mode)
(global-set-key (kbd "C-c s") 'flyspell-correct-word-before-point)
(global-set-key (kbd "C-c F") 'focus-mode)
(global-set-key (kbd "C-c r") '(lambda ()
				 (interactive)
				 (load-file (file-truename "~/.emacs"))))
(global-set-key (kbd "C-c C-e") '(lambda ()
				   (interactive)
				   (find-file (file-truename "~/.emacs"))
				   (with-current-buffer (buffer-name)
				       (emacs-lisp-mode))))
(global-set-key (kbd "C-c l") 'display-line-numbers-mode)
(global-set-key (kbd "C-c w") 'window-swap-states)
(global-set-key (kbd "C-c C-w") 'windresize)
(global-set-key (kbd "C-c W") 'whitespace-mode)
(global-set-key (kbd "C-c t") 'sol-dk)
(global-set-key (kbd "C-c y") 'sol-l) 
(global-set-key (kbd "C-c g") 'magit)
(global-set-key (kbd "C-c C-.") '(lambda ()
				   (interactive)
				   (switch-to-buffer "*Messages*")))
(global-set-key (kbd "C-c C-f") 'find-file-at-point)

;;; Can probably be replaced with
;;; a yasnippet
(fset 'date-to-point
   (kmacro-lambda-form [?\C-u ?\M-! ?d ?a ?t ?e return] 0 "%d"))

;;; Erc config
(setq erc-nick "speskk")
(setq erc-hide-list '("JOIN" "PART" "QUIT"))
(if (file-exists-p "~/.emacs.d/.erc-auth.el")
    (progn
      (load "~/.emacs.d/.erc-auth.el")
      (defun connect-to-libera-erc () (interactive)
	(erc :server "irc.libera.chat" :port "6667"
             :nick "speskk" :password *libera-chat*))))

;; Allow M-up / M-down behavior to switch windows
(windmove-default-keybindings 'meta)

(display-time-mode t)

;; Perl Config
(setq
 perl-indent-parens-as-block 0
 perl-indent-level 8)

;; Set to make mouse focus window
(setq mouse-autoselect-window t
      focus-follows-mouse t)

;; Custom eshell prompt
(setq eshell-prompt-function
 (lambda nil
   " λ > "))
(setq eshell-prompt-regexp "^ λ > ")

(set-language-environment "UTF-8")

;; Simple rclone cli wrapper
(load "~/Repos/dotfiles/emacs/elisp/rclone.el")
(global-set-key (kbd "C-c o") 'rclone-post-buffer)
(global-set-key (kbd "C-c C-o") 'rclone-get-org)
(global-set-key (kbd "C-c C-P") 'post-region-to-pb)
(global-set-key (kbd "C-c 2 p") 'display-pb)


;; Small helper functions
(load "~/Repos/dotfiles/emacs/elisp/helpers.el")
(global-set-key (kbd "C-c p") 'display-full-buffer-path)


;; Disable bars
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)

;; Load for macOS
;;; Slime/etc
(if (eq system-type 'darwin)
    (progn
      ;; Configure yasnippet
      (setq yas-snippet-dirs
	    '("~/Repos/dotfiles/emacs/yasnippets/"))
      (yas-global-mode 1)
      
      (setq inferior-lisp-program "/opt/homebrew/bin/sbcl")
      (load (expand-file-name "~/.local/opt/quicklisp/slime-helper.el"))
      ;; Font/themes/etc
      (load "/Users/swatson/Repos/dotfiles/emacs/mac-load/customs.el")

      ;; Easily set cua mode on/off so that I don't have to
      ;; use shift+insert for paste on mac
      (global-set-key (kbd "C-c c") 'cua-mode)
      (global-set-key (kbd "C-c n") 'toggle-frame-fullscreen)
      ;; Graphic Display
      (if (display-graphic-p)
	  (progn
	    (load-theme 'solarized-dark t)))))

;; Load for GUI Linux
(if (eq system-type 'gnu/linux)
    (if (display-graphic-p)
	(progn

	  (load (expand-file-name "~/quicklisp/slime-helper.el"))
	  (setq inferior-lisp-program (locate-file "sbcl" exec-path exec-suffixes 1))
	  ;; https://emacs.stackexchange.com/questions/332/how-can-i-find-the-path-to-an-executable-with-emacs-lisp	  
	  (setq yas-snippet-dirs
	    '("~/Repos/dotfiles/emacs/yasnippets/"))
	  (yas-global-mode 1)
 
	  (if (file-exists-p "~/.enable_exwm")
	      (progn
		(straight-use-package 'exwm)
		(require 'exwm)
		(load "~/Repos/dotfiles/emacs/linux-load/exwm-config.el")
	  
		(require 'exwm-config-spw)
		(exwm-config-spw)))

	  (setq visible-bell 1)
	  (load "~/Repos/dotfiles/emacs/linux-load/customs.el")
	  (load-theme 'solarized-light t))))
      
;; Load for Term
(unless (display-graphic-p)
  (progn
    (load "~/Repos/dotfiles/emacs/linux-load/customs.el")
    (xterm-mouse-mode t)
    (load (expand-file-name "~/quicklisp/slime-helper.el"))
    (setq inferior-lisp-program (locate-file "sbcl" exec-path exec-suffixes 1))))