init.el

;; Switch caps-lock and right ctrl
(global-set-key "\C-x\C-m" 'execute-extended-command)
(global-set-key "\C-c\C-m" 'execute-extended-command)
(global-set-key (kbd "C-c TAB") 'indent-buffer-fn)

;; Some quit shortcut keys
(global-set-key (kbd "C-M-g") 'keyboard-quit)
(global-set-key (kbd "C-x C-g") 'keyboard-quit)

;; Indent the buffer
;; http://stackoverflow.com/questions/4090793/emacs-reindenting-entire-c-buffer
(defun indent-buffer-fn ()
  "Indent an entire buffer using the default intenting scheme."
  (interactive)
  (save-excursion
    (delete-trailing-whitespace)
    (indent-region (point-min) (point-max) nil)
    (untabify (point-min) (point-max))))

;; [HACK]
;; Open init file for re-eval indent function.
;; Call at the end of init
(defun fix-indent-eval ()
  (find-file "~/.emacs.d/init.el")
  (goto-char 194)
  (end-of-line))

;; Set the default directory to work with
(setq default-directory "~/Projects") ;; Linux

;; Recentf
;; https://www.emacswiki.org/emacs/RecentFiles
;; I want to keep only latest only 50 items
(recentf-mode t)
(setq recentf-max-menu-items 50)
(setq recentf-max-saved-items 50)

;; Transient Mark Mode
;; https://www.emacswiki.org/emacs/TransientMarkMode
(transient-mark-mode t)

;; Line Numbers and Indentations
;; Turn line numbers on
(global-display-line-numbers-mode t)

;; 4 character and a space for line numbers
(setq linum-format "%4d ")
;; Always use 4 spaces to indentation
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)

;; Life is boring with backup files
(setq make-backup-files nil)

;; Search for strings
(setq search-highlight t)
(setq query-replace-highlight t)

;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Font-Lock.html
(setq font-lock-maximum-decoration t)

;;https://www.gnu.org/software/emacs/manual/html_node/emacs/Customize-Save.html
(setq require-final-newline t)

;; I want to have text-mode as default
;; https://www.gnu.org/software/emacs/manual/html_node/eintr/Text-and-Auto_002dfill.html
(setq major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; Turn on paren matching
;; https://www.emacswiki.org/emacs/ShowParenMode
;; https://emacs-fu.blogspot.com/2009/01/balancing-your-parentheses.html
(show-paren-mode t)
(setq show-paren-style 'expression)

;; Prompts and startups
;; https://www.masteringemacs.org/article/disabling-prompts-emacs
;; Get rid of the startup screen
(setq inhibit-startup-screen t)
(setq inhibit-startup-message t
      inhibit-startup-echo-area-message t)
(setq initial-scratch-message nil)
;; https://www.emacswiki.org/emacs/YesOrNoP
(fset 'yes-or-no-p 'y-or-n-p)

;; Get back font antialiasing
(setq font-lock-maximum-decoration t)

;; Sets a 80 character line width
;; http://mixandgo.com/blog/how-i-ve-convinced-emacs-to-dance-with-ruby
(setq-default fill-column 80)

;; Enable copy/past-ing from clipboard
(setq x-select-enable-clipboard t)

;; Always reload the file if it changed on disk
(global-auto-revert-mode 1)

;; A nice line height
(setq-default line-spacing 1)

;; Treat the CMD key like meta on OSX
(setq mac-command-modifier 'meta)

;; Turn off tool-bar and menu-bar
(tool-bar-mode 0)
(menu-bar-mode 1)

;; Set some defaults
(require 'package)
(add-to-list 'package-archives
             '("melpa" . "http://melpa.org/packages/") t)
(package-initialize)

;; Projectile
;; https://projectile.mx
(projectile-mode 1)
(global-set-key (kbd "C-c a") 'projectile-command-map)
(global-set-key (kbd "C-c f") 'projectile-find-file)
(global-set-key (kbd "C-c g") 'projectile-grep)

;; Ido Mode
;; https://www.masteringemacs.org/article/introduction-to-ido-mode
(setq ido-enable-flex-matching t)
(setq ido-everywhere t)
(ido-mode 1)

;; Company Mode
;; https://company-mode.github.io/
(add-hook 'after-init-hook 'global-company-mode)
;; Make company-mode fast to react
(setq company-minimum-prefix-length 2)
(setq company-show-numbers t)
(setq company-idle-delay
      (lambda () (if (company-in-string-or-comment) nil 0.3)))

;; Whitespace
;; limit line length
(setq whitespace-line-column 80)
(setq whitespace-style '(spaces tabs newline space-mark tab-mark newline-mark face lines-tail))
(setq whitespace-display-mappings
      ;; all numbers are Unicode codepoint in decimal. e.g. (insert-char 182 1)
      '(
        ;;(space-mark nil) ; 32 SPACE, 183 MIDDLE DOT
        ;;(newline-mark 10 [172 10]) ; 10 LINE FEED
        (tab-mark 9 [183 9] [92 9]) ; 9 TAB, MIDDLE DOT
        ))
(setq whitespace-global-modes '(not org-mode web-mode "Web" emacs-lisp-mode))
(global-whitespace-mode)
;; remove trailing whitespaces
(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; Narrow To Region Mode
(put 'narrow-to-region 'disabled nil)

;; Anzu
;; https://github.com/emacsorphanage/anzu
(use-package anzu
  :config
  (global-anzu-mode t)
  (global-set-key [remap query-replace] 'anzu-query-replace)
  (global-set-key [remap query-replace-regexp] 'anzu-query-replace-regexp))

;; Dashboard
;; https://github.com/emacs-dashboard/emacs-dashboard
(use-package dashboard
  :ensure t
  :config
  (dashboard-setup-startup-hook)
  (setq dashboard-banner-logo-title "It's coding time")
  (setq dashboard-startup-banner 'logo)
  (setq dashboard-center-content t)
  )

;; Start emacs and go to init tab function above
(fix-indent-eval)

;; Load Material theme
(load-theme 'material t)

;; Enable upcase and downcase
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)

;; Direx
;; https://github.com/emacsorphanage/direx
(use-package direx
  :bind (("C-x C-j" . direx:jump-to-directory)))

;; Enable highlight changes
;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Highlight-Interactively.html
(global-hi-lock-mode)

;; exec-path-from-shell
;; For merging emacs and user's $PATH
;; Note : Use ~/.bash_profile instead of ~/.bashrc
(use-package exec-path-from-shell
  :config (exec-path-from-shell-initialize))

;; beacon
;; https://github.com/Malabarba/beacon
(use-package beacon
  :config (beacon-mode 1))

;; yasnippet
;; https://github.com/joaotavora/yasnippet
;; Turn this per buffer basis
(use-package yasnippet
  :init
  (add-hook 'python-mode-hook 'yas-minor-mode)
  (add-hook 'web-mode-hook 'yas-minor-mode)
  (add-hook 'json-mode-hook 'yas-minor-mode)
  (add-hook 'js-mode-hook 'yas-minor-mode)
  (add-hook 'js2-mode-hook 'yas-minor-mode)
  (add-hook 'typescript-mode-hook 'yas-minor-mode))

;; Flymake
(add-hook 'python-mode-hook 'flymake-mode)
(add-hook 'web-mode-hook 'flymake-mode)
(add-hook 'json-mode-hook 'flymake-mode)
(add-hook 'js-mode-hook 'flymake-mode)
(add-hook 'js2-mode-hook 'flymake-mode)
(add-hook 'typescript-mode-hook 'flymake-mode)

;; paredit
(add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode)

;; jinx
;; https://github.com/minad/jinx
(use-package jinx
  :hook (emacs-startup . global-jinx-mode)
  :bind (("M-$" . jinx-correct)
         ("C-M-$" . jinx-languages)))

;; [PYTHON]
;; virtualenvwrapper
;; https://github.com/porterjamesj/virtualenvwrapper.el
(use-package virtualenvwrapper
  :init
  (setq venv-location "~/.pyenv/versions")
  :config
  (venv-initialize-interactive-shells)
  (venv-initialize-eshell))
;; blacken
;; https://github.com/pythonic-emacs/blacken
(use-package blacken
  :init
  (add-hook 'python-mode-hook 'blacken-mode))

;; [WEB]
;; web-mode
;; https://web-mode.org/
(use-package web-mode
  :init
  (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
  (add-to-list 'auto-mode-alist '("\\.svelte?\\'" . web-mode))
  (setq web-mode-markup-indent-offset 4)
  (setq web-mode-css-indent-offset 4)
  (setq web-mode-code-indent-offset 4))

;; [JAVASCRIPT]
;; js2-mode
;; https://github.com/mooz/js2-mode
(use-package js2-mode
  :init
  (add-hook 'js-mode-hook 'js2-minor-mode)
  (setq-default js4-basic-offset 4)
  (setq-default js-indent-level 4))

;; [JSON]
;; json-reformat
;; https://github.com/gongo/json-reformat
(use-package json-reformat
  :init
  (setq-default json-reformat:indent-width 4))

;; [TYPESCRIPT]
;; tide
;; https://github.com/ananthakumaran/tide
(defun setup-tide-mode ()
  (interactive)
  (tide-setup)
  (flycheck-mode +1)
  (setq flycheck-check-syntax-automatically '(save mode-enabled))
  (eldoc-mode +1)
  (tide-hl-identifier-mode +1)
  ;; company is an optional dependency. You have to
  ;; install it separately via package-install
  ;; `M-x package-install [ret] company`
  (company-mode +1))
;; aligns annotation to the right hand side
(setq company-tooltip-align-annotations t)
;; formats the buffer before saving
(add-hook 'before-save-hook 'tide-format-before-save)
;; if you use typescript-mode
(add-hook 'typescript-mode-hook #'setup-tide-mode)
(setq tide-format-options '(:insertSpaceAfterFunctionKeywordForAnonymousFunctions t :placeOpenBraceOnNewLineForFunctions nil))
(add-to-list 'auto-mode-alist '("\\.ts?\\'" . tide-mode))

;; [TYPESCRIPT]
;; typescript-mode. NOTE - stopped development
;; https://github.com/emacs-typescript/
(use-package typescript-mode
  :init
  (add-to-list 'auto-mode-alist '("\\.ts?\\'" . typescript-mode)))


;; [AI]
;; Tabnine
;; https://github.com/TommyX12/company-tabnine
;; (require 'company-tabnine)
(use-package company-tabnine :ensure t)
(add-to-list 'company-backends #'company-tabnine)
;; chatgpt-shell
(use-package chatgpt-shell
  :ensure t)
(require 'subr-x)
(with-temp-buffer
  (insert-file-contents "./openai-key.txt")
  (setq chatgpt-shell-openai-key (string-trim (buffer-string)))
  (setq dall-e-shell-openai-key (string-trim (buffer-string))))
(print "OpenAi key successfully loaded")


;; [TERRAFORM]
(use-package terraform-mode
  :custom (terraform-indent-level 4)
  )

;; [CLOJURE]


(print "Emacs initialized!!")