;;; Code:

;; Backup files
(setq backup-directory-alist
      `((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms
      `((".*" ,temporary-file-directory t)))
(setq backup-by-copying t)
(setq delete-old-versions t
  kept-new-versions 6
  kept-old-versions 2
  version-control t)

;; Initial major mode
(setq initial-major-mode 'text-mode)

;; Auto revert mode to reload disk
(global-auto-revert-mode 1)

;; menu bars
(menu-bar-mode -1)
(toggle-scroll-bar -1)
(tool-bar-mode -1)
(setq mac-shift-modifier 'meta)

;; Reload user init file
(defun reload-init-file ()
  (interactive)
  (load-file user-init-file))

(global-set-key (kbd "C-c C-l") 'reload-init-file)

(setq-default header-line-format mode-line-format) ; Copy mode-line
(setq-default mode-line-format nil) ; Remove mode-line

(use-package smart-mode-line
  :ensure t
  :config
  (smart-mode-line-enable))

;; Tab mode
(global-tab-line-mode t)

;; Ability to fold regions
(add-hook 'javascript-mode-hook (lambda () (hs-minor-mode 1)))
(add-hook 'typescript-mode-hook (lambda () (hs-minor-mode 1)))
(add-hook 'c-mode-hook (lambda () (hs-minor-mode 1)))
(add-hook 'python-mode-hook (lambda () (hs-minor-mode 1)))
(add-hook 'emacs-lisp-mode-hook (lambda () (hs-minor-mode 1)))

;; Default Values
(setq-default indent-tabs-mode nil)  ; use spaces only if nil
(setq-default tab-width 2) ; Assuming you want your tabs to be four spaces wide
                                        ;(set-face-attribute 'default nil :font "Source Code Pro-11")
(set-face-attribute 'default nil :font "Monaco-10")
(set-fontset-font t '(?😊 . ?😎) "Segoe UI Emoji")

;;(set-face-attribute 'default nil :height 110 :family  "Consolas")
(set-language-environment "UTF-8")
(set-default-coding-systems 'utf-8)

;; Cursor
(setq-default cursor-type 'bar)
(blink-cursor-mode 1)

;; Line numbers
(global-display-line-numbers-mode 1)

;; Show number of matches
(setq isearch-lazy-highlight t)
(setq isearch-lazy-count t)

;; Fringe
(setq-default left-fringe-width  20)
(setq-default right-fringe-width  20)

;; Initialization screen
(setq inhibit-splash-screen t)
(setq initial-scratch-message "* Scratch")
(setq initial-major-mode 'org-mode)

;; Highlight todos
(use-package hl-todo
  :ensure t
  :config
  (global-hl-todo-mode 1)
  )

;; Delete highlighted selection
(delete-selection-mode 1)

;; I am using the helm package, of course
(use-package helm
  :ensure t
  :config
  (helm-mode 1)
  )

(use-package helm-posframe
   :ensure t
   :config
   (helm-posframe-enable)
   (setq helm-posframe-poshandler 'posframe-poshandler-frame-top-center))

;; Projectile for project navigation
(use-package projectile
  :ensure t
  :config
  (projectile-mode +1)
  (setq projectile-switch-project-action 'treemacs-add-and-display-current-project-exclusively)
  (setq projectile-indexing-method 'native)
  (setq projectile-enable-caching t)
  (add-to-list 'projectile-globally-ignored-directories "node_modules")
  (add-to-list 'projectile-globally-ignored-directories "elpa")
  (add-to-list 'projectile-project-root-files "package.json")
  )

(use-package helm-projectile
  :ensure t
  :bind
  :config
  (helm-projectile-on)
  (define-key projectile-mode-map (kbd "s-F") 'helm-projectile-grep)
  (define-key projectile-mode-map [?\s-o] 'helm-projectile-switch-project)
  (define-key projectile-mode-map [?\s-p] 'helm-projectile-find-file)
  :after (projectile helm)
  )

;; Don't ask to kill when we have an open line number
(setq-default confirm-kill-processes nil)

;; Highlight indentation lines
(use-package highlight-indent-guides
  :ensure t
  :config
  (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
  (setq highlight-indent-guides-method 'character)
  )

;; Tree
(use-package treemacs
  :ensure t
  :config
  (add-hook 'treemacs-mode-hook treemacs-filewatch-mode)
  (add-hook 'treemacs-mode-hook treemacs-git-mode)
  )

(use-package treemacs-projectile
  :ensure t
  :after (treemacs projectile))

;; Line highlighting
(global-hl-line-mode 1)
(set-face-background 'hl-line "unspecified")
(set-face-attribute 'hl-line nil
                    :box '(:line-width -1
                           :color "gray90"
                           :style nil))


;; Git
(use-package git-gutter
  :ensure t
  :hook (prog-mode . git-gutter-mode)
  :config
  (setq git-gutter:update-interval 1)
  (setq git-gutter:window-width 1))

(use-package git-gutter-fringe
  :ensure t
  :config
  (define-fringe-bitmap 'git-gutter-fr:added [224] nil nil '(center repeated))
  (define-fringe-bitmap 'git-gutter-fr:modified [224] nil nil '(center repeated))
  (define-fringe-bitmap 'git-gutter-fr:deleted [128 192 224 240] nil nil 'bottom))

;; Emojis
(use-package emojify
  :ensure t
  :config
  (when (member "Segoe UI Emoji" (font-family-list))
    (set-fontset-font
     t 'symbol (font-spec :family "Segoe UI Emoji") nil 'prepend))
  (setq emojify-display-style 'unicode)
  (setq emojify-emoji-styles '(unicode))
  (bind-key* (kbd "C-c e") #'emojify-insert-emoji)) ; override binding in any mode

;; Global key binds
(require 'eglot)
(bind-key* (kbd "<f2>") #'eglot-rename)
(bind-key* (kbd "C-x C-f") 'helm-find-files)
;(bind-key* (kbd "C-s") 'helm-do-grep-ag)
(bind-key* (kbd "M-x") 'helm-M-x)
(bind-key* (kbd "M-.") 'xref-find-definitions)
(bind-key* (kbd "C-x k") 'kill-this-buffer)
(bind-key* (kbd "C-x b") 'electric-buffer-list)
(bind-key* (kbd "C-;") 'treemacs)

(defun my-create-file (filename)
  "Create a file and refresh neotree.  FILENAME File to create."
  (interactive (list (read-file-name "Enter your file name:  " nil nil nil (file-name-nondirectory ""))))
  (make-empty-file filename)
  (find-file filename))

(bind-key* (kbd "M-n") 'my-create-file)

(defun my-create-directory ()
  "Create a directory and refresh neotree."
  (interactive)
  (call-interactively #'make-directory)
  (other-window -1))
(bind-key* (kbd "M-N") 'my-create-directory)

(defun my-delete-file ()
  "Delete a file and refresh neotree."
  (interactive)
  (call-interactively #'delete-file))
(bind-key* (kbd "M-d") 'my-delete-file)

(defun my-delete-directory ()
  "Delete a file and refresh neotree."
  (interactive)
  (call-interactively #'delete-directory))
(bind-key* (kbd "M-D") 'my-delete-directory)

;; source: http://steve.yegge.googlepages.com/my-dot-emacs-file
(defun my-rename-file (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME."
  (interactive "sNew name: ")
  (let ((name (buffer-name))
        (filename (buffer-file-name)))
    (if (not filename)
        (message "Buffer '%s' is not visiting a file!" name)
      (if (get-buffer new-name)
          (message "A buffer named '%s' already exists!" new-name)
        (progn
          (rename-file filename new-name 1)
          (rename-buffer new-name)
          (set-visited-file-name new-name)
          (set-buffer-modified-p nil)
          ;(neotree-show)
          ;(neotree-refresh)
          (other-window -1))))))
(bind-key* (kbd "M-r") 'my-rename-file)

;; Company mode for code completion
(use-package company
  :ensure t
  :defer t
  :init (add-hook 'after-init-hook 'global-company-mode)
  :config
  (setq company-idle-delay              0.5
        company-minimum-prefix-length   2
        company-tooltip-limit           20
        company-backends                '((company-capf company-gtags company-elisp company-css company-dabbrev))
        )
  )

(use-package company-quickhelp
  :ensure t
  :defer t
  :init (company-quickhelp-mode 1)
  :config
  (setq company-quickhelp-delay 0
        )
  )

;; Eglot
(use-package eglot
  :custom
  (eglot-autoshutdown t)
  :ensure t)

(set-face-underline 'eglot-highlight-symbol-face t)

;; (use-package tree-sitter
;;   :ensure t
;;   :defer t
;;   :config
;;   ;; use treesitter when possible
;;   (global-tree-sitter-mode)
;;   ;; overwrite the default syntax-highlighting (from major modes)
;;   (add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode)
;;   :hook
;;   (prog-mode . tree-sitter-mode))

;; (use-package tree-sitter-langs
;;   :ensure t
;;   :defer t)

;; Highlight similar text
(use-package highlight-thing
  :ensure t
  :config
  (setq highlight-thing-what-thing  'region)
  (setq highlight-thing-what-thing 'word)
  (setq highlight-thing-exclude-thing-under-point t)
  (global-highlight-thing-mode)
  (setq highlight-thing-delay-seconds 1.0))

;; Vterm

(defun my-vterm-mode-set-colors()
	"Set the colors of vterm to match my personal taste."
	(setq-local global-hl-line-mode nil)
	;(turn-off-evil-mode)
	(display-line-numbers-mode -1)
	(setq left-fringe-width  0)
	(setq right-fringe-width  0)
	(set-window-fringes (selected-window) 0 0 nil)
	(face-remap-add-relative 'default '(:background "#232627"))
	(face-remap-add-relative 'default '(:foreground"#fcfcfc"))
	)

(use-package vterm
  :ensure t
  )
(add-hook 'vterm-mode-hook 'my-vterm-mode-set-colors)

(use-package vterm-toggle
  :ensure t
  :config
  (setq vterm-toggle-fullscreen-p nil)
  (add-to-list 'display-buffer-alist
               '((lambda (buffer-or-name _)
                   (let ((buffer (get-buffer buffer-or-name)))
                     (with-current-buffer buffer
                       (or (equal major-mode 'vterm-mode)
                           (string-prefix-p vterm-buffer-name (buffer-name buffer))))))
                 (display-buffer-reuse-window display-buffer-at-bottom)
                 ;;(display-buffer-reuse-window display-buffer-in-direction)
                 ;;display-buffer-in-direction/direction/dedicated is added in emacs27
                 ;;(direction . bottom)
                 ;;(dedicated . t) ;dedicated is supported in emacs27
                 (reusable-frames . visible)
                 (window-height . 0.2)))
  :after (vterm))
(bind-key* (kbd "M-t") 'vterm-toggle)

;; Line movement
(use-package drag-stuff
  :config
  (drag-stuff-global-mode)
  (drag-stuff-define-keys)
  )

;; Copy the entire buffer.
(defun my-copy-all ()
    "Copy entire buffer to clipboard."
    (interactive)
    (clipboard-kill-ring-save (point-min) (point-max)))

(use-package flycheck
  :ensure t
  :config
  (setq flycheck-check-syntax-automatically '(save mode-enable))
  '(flycheck-idle-change-delay 1))


(provide 'general)
;;; general.el ends here