;; ________  .__    _________                _____ 
;; \_____  \ |  |__ \_   ___ \  ____   _____/ ____\
;;  /   |   \|  |  \/    \  \/ /  _ \ /    \   __\ 
;; /    |    \   Y  \     \___(  <_> )   |  \  |   
;; \_______  /___|  /\______  /\____/|___|  /__|   
;;         \/     \/        \/            \/       

;; Everything in this file is completely public domain.
;; Anyone may use it for whatever they'd like.

;; The main goal of this configuration is to
;; utilize both the benefits of placement-based
;; bindings like XFK, while keeping the vim
;; movement keys, and mnemonic leader keybinds.
;; Everything is meant to be configured to *my*
;; liking, so there may be some things others
;; would like to tweak to their own preference.

;;;;;;;;;;;;;;;;;;;;;;;;;
;;; -- startup ops -- ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Temporarily reduce garbage collection during startup. Inspect `gcs-done'.
(defun ambrevar/reset-gc-cons-threshold ()
  (setq gc-cons-threshold (car (get 'gc-cons-threshold 'standard-value))))
(setq gc-cons-threshold (* 64 1024 1024))
(add-hook 'after-init-hook #'ambrevar/reset-gc-cons-threshold)

;;; Temporarily disable the file name handler.
(setq default-file-name-handler-alist file-name-handler-alist)
(setq file-name-handler-alist nil)
(defun ambrevar/reset-file-name-handler-alist ()
  (setq file-name-handler-alist
	(append default-file-name-handler-alist
		file-name-handler-alist))
  (cl-delete-duplicates file-name-handler-alist :test 'equal))
(add-hook 'after-init-hook #'ambrevar/reset-file-name-handler-alist)

;;;;;;;;;;;;;;;;;;;;;;;;
;;; -- the basics -- ;;;
;;;;;;;;;;;;;;;;;;;;;;;;

;; initialize packages
(package-initialize)

;; -- load packages, bootstrap use-package -- ;;
(require 'package) ;; Emacs builtin

;; set package.el repositories
(setq package-archives '(("org" . "https://orgmode.org/elpa/")
						 ("gnu" . "https://elpa.gnu.org/packages/")
						 ("melpa" . "https://melpa.org/packages/")))

;; update packages list if we are on a new install
(unless package-archive-contents
  (package-refresh-contents))

;; a list of pkgs to programmatically install
;; ensure installed via package.el
(setq my-package-list '(use-package))

;; programmatically install/ensure installed
;; pkgs in your personal list
(dolist (package my-package-list)
  (unless (package-installed-p package)
    (package-install package)))

;; source local files
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp/"))
(add-to-list 'custom-theme-load-path (expand-file-name "~/.emacs.d/themes/"))

;; require packages from load path
(require 'o-modeline) ; time inside modeline
(require 'misc-packages) ; misc packages for stuff i do with emacs .. duh
(require 'o-erc) ; IRC setup
(require 'pdf-images) ; support for PDF and image viewing inside emacs
(require 'bind-fun) ; personal functions for binding in Oh-Mode

;; basic changes
(menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)
(fringe-mode 0)
(xclip-mode 1)
(global-display-line-numbers-mode 1)

;; set variables
(setq-default
 display-line-numbers-type 'relative
 cursor-in-non-selected-windows nil
 cursor-type 'bar
 show-smartparens-mode 1

 mouse-wheel-scroll-amount '(1)
 mouse-wheel-progressive-speed 'nil

 search-whitespace-regexp ".*"
 isearch-lax-whitespace t

 backup-by-copying t
 backup-directory-alist '((".*" . "~/.cache/emacs-backups/"))
 delete-old-versions t
 keep-new-versions 5
 keep-old-versions 2
 version-control t
 auto-save-file-name-transforms '((".*" "~/.cache/emacs-autosave/" t))
 auto-save-list-file-prefix "~/.cache/emacs-autosave/"
 create-lockfiles nil

 require-final-newline t

 enable-local-eval t

 indent-tabs-mode t
 tab-width 4

 load-prefer-newer t

 custom-file (concat user-emacs-directory "/custom.el")
 explicit-shell-file-name "/home/orion/.nix-profile/bin/fish")

(defalias 'yes-or-no-p 'y-or-n-p)

;; fonts and colors
(load "/home/orion/.emacs.d/themes/xresources-theme.el")
(load-theme 'xresources t)

(set-face-attribute 'default nil :font "IBM Plex Mono" :height 100)
(set-face-attribute 'mode-line-inactive nil :background "#afafaf")

;; smart pairs
(electric-pair-mode)

;; show parens
(show-paren-mode 1)

;; discord rich presence
(use-package elcord :ensure t)

;;;;;;;;;;;;;;;;;;;;
;;; -- OhMode -- ;;;
;;;;;;;;;;;;;;;;;;;;

;;; --- external files --- ;;;

;; Feeling some EXWM?
(require 'exwm-systemtray)
(exwm-systemtray-enable)
(require 'my-exwm)
(defun wm-xmodmap()
  (call-process "xmodmap" nil (get-buffer-create "wm") nil (expand-file-name "~/.qwerty"))
  (call-process "xset" nil (get-buffer-create "wm") nil (expand-file-name "r rate 275 80")))
(wm-xmodmap)
(require 'scrot)


;;; --- [non-modal bindings] --- ;;;

;; window navigation

(global-set-key (kbd "C-c h") 'windmove-left)
(global-set-key (kbd "C-c j") 'windmove-down)
(global-set-key (kbd "C-c k") 'windmove-up)
(global-set-key (kbd "C-c l") 'windmove-right)

;; misc
(global-set-key (kbd "C-c a") 'ace-window)
(global-set-key (kbd "C-c g") 'god-local-mode)

;; misc
(define-key input-decode-map 
  (kbd "C-[") 
  [control-bracketleft])
(global-set-key [control-bracketleft] 'hippie-expand)

(global-set-key (kbd "<M-up>") 'drag-stuff-up)
(global-set-key (kbd "<M-down>") 'drag-stuff-down)

(global-set-key (kbd "C-;") 'isearch-backward)
(global-set-key (kbd "C-'") 'isearch-forward)

;; hydras
(require 'o-hydras)

;;; --- Oh Mode - personal modal editing --- ;;;
(require 'oh-mode)