;;-*-coding: iso-latin-1-*-
;; Disable GC for the duration of init scripts
(let ((gc-cons-threshold most-positive-fixnum))
(global-auto-revert-mode t) 
;;(w32-register-hot-key [C-])


;; Eval buffer
(global-set-key (kbd "<f5>") #'eval-buffer)

;;; PACKAGE BOOTSTRAPPING ;;;

(require 'package)
(setq package-enable-at-startup nil)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))

(package-initialize)

;; Bootstrap `use-package'
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

(eval-when-compile
  (require 'use-package))

(use-package ssh-agency
  :ensure t)

(use-package benchmark-init
  :ensure t
  :config
  ;; To disable collection of benchmark data after init is done.
  (add-hook 'after-init-hook 'benchmark-init/deactivate))

(use-package tangotango-theme
         :ensure t
         :config (load-theme 'tangotango t))
		 
(use-package magit
         :ensure t)
		 ;;:init (setq magit-git-executable "C:/capybara/git/bin/git.exe"))

(use-package centered-cursor-mode
         :ensure t)

(use-package projectile
  :ensure t
  :config (projectile-global-mode))

(use-package helm-projectile
  :ensure t)

(use-package projectile-ripgrep
  :ensure t)

;;; USER CONFIG ;;;

;;Using helm as minibuffer autocompletion manager
(setf projectile-completion-system 'helm)
(setf projectile-indexing-method 'alien)

;; Windows: Let git's UI ask for passphrase
;;(setenv "SSH_ASKPASS" "git-gui--askpass")
;;(require 'exec-path
;;(exec-path-from-shell
;;l-copy-env "SSH_AGENT_PID")
;;(exec-path-from-shell-copy-env "SSH_AUTH_SOCK")

;; Display line numbers ;;in prog files
;;(add-hook 'prog-mode-hook 'display-line-numbers-mode)
(add-hook 'after-init-hook 'global-display-line-numbers-mode t)

;; Disable backup files
(setq make-backup-files nil)

;; Disable window cruft
(menu-bar-mode -1)

;; Disable toolbar
(tool-bar-mode -1)

;; Disable scrollbar
(scroll-bar-mode -1)

;; Use better buffer list
(global-set-key (kbd "C-x C-b") 'ibuffer) 

;; Disable splash screen and startup message
(setq inhibit-startup-message t) 
(setq initial-scratch-message nil)

;; Use regex search toolsx
(global-set-key (kbd "C-s") 'isearch-forward-regexp) 
(global-set-key (kbd "C-r") 'isearch-backward-regexp)

;; On-home-row pointxx movement
(global-set-key (kbd "C-k") 'next-line)
(global-set-key (kbd "C-l") 'previous-line)
(global-set-key (kbd "C-;") 'forward-char)
(global-set-key (kbd "C-ñ") 'forward-char)
(global-set-key (kbd "C-j") 'backward-char)

(global-set-key (kbd "C-f") 'forward-word)
(global-set-key (kbd "C-b") 'backward-word)

(global-set-key (kbd "C-x C-u") (lambda () (interactive) (other-window -1)))
(global-set-key (kbd "C-x C-o") (lambda () (interactive) (other-window 1)))
(global-set-key (kbd "C-x u") 'dired-jump)
(global-set-key (kbd "C-x o") 'delete-blank-lines)

;; On-home-row cycling through buffers
(global-set-key (kbd "C-x C-j") 'previous-buffer)
(global-set-key (kbd "C-x C-ñ") 'next-buffer)
(global-set-key (kbd "C-x C-;") 'next-buffer)

;; x(global-set-key (kbd "C-x C-´") 'enlarge-window)
;;(global-set-key (kbd "C-x C-'") 'enlarge-window)
(global-set-key (kbd "C-c C-'") (lambda () (interactive) (enlarge-window 10)))
(global-set-key (kbd "C-c C-/") (lambda () (interactive) (enlarge-window -10)))

(global-set-key (kbd "C-z") 'kill-whole-line)
;;(global-set-key (kbd "C-x C-o") (lambda () (interactive) (other-window 1)))
;;(global-set-key (kbd "C-x u") 'dired-jump)
;;(global-set-key (kbd "C-x o") 'delete-blank-lines)

(global-set-key (kbd "C-n") 'undo)
(define-key input-decode-map [?\C-m] [C-m])
(global-set-key (kbd "<C-m>") 'undo-redo)


;;zap-to-char M-z, toggle-input-method C-\, transpose-chars C-t
(global-set-key (kbd "M-b") 'backward-char)
(global-set-key (kbd "M-f") 'forward-char)

(global-set-key (kbd "C-c C-SPC") 'string-insert-rectangle)
(global-set-key (kbd "C-x C-SPC") 'rectangle-mark-mode)
(global-set-key (kbd "C-x SPC") 'pop-global-mark)

(desktop-save-mode 1)
(setq desktop-restore-eager nil)
;;(setf desktop-restore-eager 5)
(delete-selection-mode 1)

;; C++
(add-hook 'c++-mode-hook (lambda () 
					 (setq-local comment-start "/*")
					 (setq-local comment-end "*/")
					 (setq-local comment-style 'extra-line)))

(global-set-key [f6] 'comment-region)
(global-set-key (kbd "M-i") (lambda () (interactive) (scroll-up   1)) )
(global-set-key (kbd "M-p") (lambda () (interactive) (scroll-down 1)) )

(global-set-key [f9] (lambda () (interactive) (find-file user-init-file)) )

(global-set-key [f8] 'projectile-find-file)
(global-set-key [f7] 'projectile-compile-project)


;; oddly specific buffer movement

(global-set-key (kbd "C-h u") 'info-apropos)

(global-set-key (kbd "C-,") (lambda () (interactive) (move-to-window-line -1)) ) 										
(global-set-key (kbd "M-,") (lambda () (interactive) (move-to-window-line 0)) ) 

(global-set-key (kbd "C-.") 'end-of-buffer)
(global-set-key (kbd "M-.") 'beginning-of-buffer)

;; info-apropos mapping
(global-set-key (kbd "C-h u") 'info-apropos)


;; (global-set-key (kbd "C-x C-<dead-acute>") 'enlarge-window)
;; Remapping save commit in Magit
(define-key with-editor-mode-map (kbd "C-c C-c") nil)

;; 
(define-key dired-mode-map (kbd "RET") 'dired-find-alternate-file)
(define-key dired-mode-map (kbd "a") 'dired-find-file)
(setq global-auto-revert-non-file-buffers t)
(add-hook 'dired-mode-hook  (lambda () (setq-local auto-revert-verbose nil)) )
(add-hook 'ibuffer-mode-hook (lambda () (ibuffer-auto-mode t)))

(setq compilation-scroll-output t)

;; Copy config
(defun copy-region-or-word ()
  "If mark is active, copy region. Otherwise, copy word currently on cursor"
  (interactive)
  (if mark-active
      (if (bound-and-true-p rectangle-mark-mode)
          (progn (copy-rectangle-as-kill (region-beginning) (region-end))
                 (kill-new (mapconcat 'identity (extract-rectangle (region-beginning) (region-end)) "\n")))
          (kill-ring-save (region-beginning) (region-end)))
      (let ((region (bounds-of-thing-at-point 'symbol)))
        (copy-region-as-kill (car region) (cdr region)))))

;; Tabulation and Tree-sitter config

(add-to-list 'auto-mode-alist '("\\.cpp\\'" . c++-ts-mode))

(setq major-mode-remap-alist
 '((c-mode . c-ts-mode)
   (bash-mode . bash-ts-mode)
;   (cpp-mode . c++-ts-mode)
   (asm-mode . asm-ts-mode)
   (cmake-mode . cmake-ts-mode)
   (c-sharp-mode . c-sharp-mode)
   (css-mode . css-ts-mode)
   (bash-mode . bash-ts-mode)
   (dockerfile-mode . dockerfile-ts-mode)
   (elisp-mode . elisp-ts-mode)
   (elm-mode . elm-ts-mode)
   (gitcommit-mode . gitcommit-ts-mode)
   (gitignore-mode . gitignore-ts-mode)
   (git-rebase-mode . git-rebase-ts-mode)
   (json-mode . json-ts-mode)
   (latex-mode . latex-ts-mode)
   (lua-mode . lua-ts-mode)
   (make-mode . make-ts-mode)
   (sql-mode . sql-ts-mode)
   (csv-mode . csv-ts-mode)))

(customize-set-variable 'treesit-font-lock-level 2)

(setq-default indent-tabs-mode t)
(setq-default tab-width 4) ; Assuming you want your tabs to be four spaces wide
(global-set-key (kbd "C-/") 'tab-to-tab-stop)	
(defvaralias 'c-basic-offset 'tab-width)
(defvaralias 'c-ts-mode-indent-offset 'tab-width)
(defvaralias 'c++-ts-mode-indent-offset 'tab-width)

;; Change *scratch* to org-mode + fixes for extreme notetaking action
(setq initial-major-mode 'org-mode)
;(define-key org-mode-map (kbd "C-j") nil)

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages
   '(projectile-ripgrep helm-projectile projectile ssh-agency tangotango-theme)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )
(put 'dired-find-alternate-file 'disabled nil)
)
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages
   '(benchmark-init projectile-ripgrep helm-projectile projectile ssh-agency tangotango-theme)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

(load "~/.emacs.d/roleplay.el")