path: root/emacs/init.el

;;; package --- init.el
;;; Comentary:

;; A new init.el

;;; Code:

(with-eval-after-load 'package
  (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t))

;; Automatic reread from disk if the underlying file changes
(setq auto-revert-interval 1)
(setq auto-revert-check-vc-info t)
(global-auto-revert-mode)

;; Move thourgh windows with Ctrl-<arrow keys>
(windmove-default-keybindings 'meta)

;; Fix archaic defaults
(setq sentence-end-double-space nil)

;; Make right click do something sensible
(when (display-graphic-p)
  (context-menu-mode))


;; Tramp - Faster than default scp
(setq tramp-default-method "ssh")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Interface enhancements/defaults
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Mode line information
(setq line-number-mode t)                        ; Show current line in modeline
(setq column-number-mode t)                      ; Show column as well

(setq x-underline-at-descent-line nil)           ; Prettier underlines
(setq switch-to-buffer-obey-display-actions t)   ; Make switching buffers more consistent

(setq-default show-trailing-whitespace nil)      ; By default, don't underline trailing spaces
(setq-default indicate-buffer-boundaries nil)    ; Show buffer top and bottom in the margin

;; Misc. UI tweaks
(blink-cursor-mode -1)                                ; Steady cursor
(pixel-scroll-precision-mode)                         ; Smooth scrolling

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Tab-bar configuration
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Show the tab-bar as soon as tab-bar functions are invoked
(setq tab-bar-show 0)

;; Add the time to the tab-bar, if visible
(add-to-list 'tab-bar-format 'tab-bar-format-align-right 'append)
(add-to-list 'tab-bar-format 'tab-bar-format-global 'append)
(setq display-time-format "%a %F %T")
(setq display-time-interval 1)
(display-time-mode)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Theme
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(use-package emacs
  :config
  (if (display-graphic-p)
      (progn
	(load-theme 'modus-operandi)
	(set-face-attribute 'default nil :font "Fantasque Sans Mono" :height 110)
	(set-face-attribute 'fixed-pitch nil :font "Input Mono" :height 100)
	(set-face-attribute 'variable-pitch nil :font "IBM Plex Sans" :height 110)
	(setq modus-themes-operandi-color-overrides
	      '((bg-main . "#fefcf4"))))
    (load-theme 'gruvbox-dark-hard)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Org
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq org-agenda-files (list "~/OrgRoam/agenda.org"
			     "/home/work/OrgRoam/20230808170239-code_reviews.org"
			     "/home/work/OrgRoam/20230808173230-tareas.org"))

(use-package org
  :hook ((org-mode . visual-line-mode)  ; wrap lines at word breaks
         (org-mode . flyspell-mode))    ; spell checking!

  :bind (:map global-map
              ("C-c l s" . org-store-link)          ; Mnemonic: link → store
              ("C-c l i" . org-insert-link-global)  ; Mnemonic: link → insert
	      ("C-c a" . org-agenda))
  :config
  (require 'org-tempo)			; Abbrv support for code blocks
  (add-to-list 'org-export-backends 'md)

  ;; Make org-open-at-point follow file links in the same window
  (setf (cdr (assoc 'file org-link-frame-setup)) 'find-file)

  ;; Make exporting quotes better
  (setq org-export-with-smart-quotes t)
  (setq org-confirm-babel-evaluate nil)	; Dont prompt for evaluation
  )
(add-hook 'org-mode-hook (lambda ()
			   (auto-fill-mode)
			   (variable-pitch-mode)
			   (bug-reference-mode)
			   (olivetti-mode)
			   (olivetti-set-width 100)))
(use-package org-roam
  :ensure t
  :defer t
  :init (setq org-roam-v2-ack t)
  :custom
  (org-roam-directory "~/OrgRoam")
  :bind (("C-c n l" . org-roam-buffer-toggle)
	 ("C-c n f" . org-roam-node-find)
	 ("C-c n i" . org-roam-node-insert))
  :config
  ;; (org-roam-setup) ;; One shot?
  (org-roam-db-autosync-mode)
  (setq org-roam-index-file "~/OrgRoam/index.org")
  (add-to-list 'display-buffer-alist
               '("\\*org-roam\\*"
                 (display-buffer-in-side-window)
                 (side . right)
                 (window-width . 0.4)
                 (window-height . fit-window-to-buffer))))

(use-package org-jira
  :config (setq jiralib-url "https://comprandoengrupo.atlassian.net"))

(use-package org-modern
  :ensure t
  :init (global-org-modern-mode))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Minibuffer and completion
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Vertico: better vertical completion for minibuffer commands
(use-package vertico
  :ensure t
  :init
  ;; You'll want to make sure that e.g. fido-mode isn't enabled
  (vertico-mode))

;; Marginalia: annotations for minibuffer
(use-package marginalia
  :ensure t
  :config
  (marginalia-mode))

(use-package corfu
  :ensure t
  :custom
  (corfu-cycle t)
  :bind
  (:map corfu-map
	("SPC" . corfu-insert-separator))
  :hook ((prog-mode . corfu-mode)
	 (shell-mode . corfu-mode)
	 (eshell-mode . corfu-mode))
  :init (global-corfu-mode))

;; Part of corfu
(use-package corfu-popupinfo
  :after corfu
  :hook (corfu-mode . corfu-popupinfo-mode)
  :custom
  (corfu-popupinfo-delay '(0.25 . 0.1))
  (corfu-popupinfo-hide nil)
  :config
  (corfu-popupinfo-mode))

;; Make corfu popup come up in terminal overlay
(use-package corfu-terminal
  :if (not (display-graphic-p))
  :ensure t
  :config
  (corfu-terminal-mode))

;; Pretty icons for corfu
(use-package kind-icon
  :if (display-graphic-p)
  :ensure t
  :after corfu
  :config
  (add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter))

;; Orderless: powerful completion style
(use-package orderless
  :ensure t
  :config
  (setq completion-styles '(orderless)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Packages
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Treesiter config

(use-package emacs
  :config
  ;; Treesitter config

  ;; Tell Emacs to prefer the treesitter mode
  ;; You'll want to run the command `M-x treesit-install-language-grammar' before editing.
  (setq major-mode-remap-alist
        '(;(yaml-mode . yaml-ts-mode)
          (bash-mode . bash-ts-mode)
          (js2-mode . js-ts-mode)
          (typescript-mode . typescript-ts-mode)
          (json-mode . json-ts-mode)
          (css-mode . css-ts-mode)
          (python-mode . python-ts-mode)))
  :hook
  ;; Auto parenthesis matching
  ((prog-mode . electric-pair-mode)))

;; Eglot
(use-package eglot
  ;; no :ensure t here because it's built-in

  ;; Configure hooks to automatically turn-on eglot for selected modes
  ; :hook
  ; (((python-mode ruby-mode elixir-mode) . eglot))

  :custom
  (eglot-send-changes-idle-time 0.1)

  :config
  (fset #'jsonrpc--log-event #'ignore)  ; massive perf boost---don't log every event
  ;; Sometimes you need to tell Eglot where to find the language server
  ; (add-to-list 'eglot-server-programs
  ;              '(haskell-mode . ("haskell-language-server-wrapper" "--lsp")))
  (add-to-list 'eglot-server-programs
	       '(python-ts-mode . ("pylsp" "--tcp" "--port" :autoport)))
  )

;; YAML
(use-package yaml-mode :ensure t)

;; JSON
(use-package json-mode :ensure t)
(add-hook 'js-json-mode-hook
	  (lambda ()
	    (define-key js-json-mode-map (kbd "<f5>") 'json-pretty-print-buffer)))

;; Lisp
(use-package slime :defer t :ensure t)
(setq inferior-lisp-program "sbcl")

;; Rest client
(use-package restclient :defer t :ensure t)

;; Magit
(use-package magit
  :ensure t
  :bind (("s-g" . magit-status)
	 ("C-c g" . magit-status)))

;; python-mode configuration

(use-package pyvenv
  :ensure t
  :config
  ;; Set correct Python interpreter
  (setq pyvenv-post-activate-hooks
	(list (lambda ()
		(setq python-shell-interpreter (concat pyvenv-virtual-env "bin/python3")))))
  (setq pyvenv-post-deactivate-hooks
	(list (lambda ()
		(setq python-shell-interpreter "python3")))))

(use-package python-pytest
  :defer t
  :ensure t
  :config
  (transient-append-suffix
    'python-pytest-dispatch
    "-v"
    '("--db" "Create db" "--create-db")))

(add-hook 'python-ts-mode-hook
	  (lambda ()
	    (define-key python-ts-mode-map (kbd "C-c p") 'python-pytest-dispatch)
	    (define-key python-ts-mode-map (kbd "C-c m p") 'ceg/pre-commit-run-current-file)))

;; Load path from shell environment
(use-package exec-path-from-shell :ensure t :defer t)

;; sh-mode configuration
(use-package flymake-shellcheck
  :commands flymake-shellcheck-load
  :init
  (add-hook 'sh-mode-hook 'flymake-shellcheck-load))


;; Moodline
(use-package mood-line :ensure t)
(mood-line-mode)

;; Fix for flycheck with eglot
;; https://gitlab.com/jessieh/mood-line/-/merge_requests/11
(require 'cl-lib)

(defun mood-line--checker-flymake-count-errors ()
  "Return alist with count of all current flymake diagnostic reports.

Counts will be returned in an alist as the cdr of the following keys:
`'note-count'    | All notes reported by checker
`'error-count'   | All errors reported by checker
`'warning-count' | All warnings reported by checkero
`'issue-count'   | All errors and warnings reported by checker
`'all-count'     | Everything reported by checker"
  (let ((error-count 0)
        (warning-count 0)
        (note-count 0))
    (progn
      (cl-loop
       with warning-level = (warning-numeric-level :warning)
       with note-level = (warning-numeric-level :debug)
       for state being the hash-values of flymake--state
       do (cl-loop
           with diags = (flymake--state-diags state)
           for diag in diags do
           (let ((severity (flymake--lookup-type-property (flymake--diag-type diag) 'severity
                                                          (warning-numeric-level :error))))
             (cond ((> severity warning-level) (cl-incf error-count))
                   ((> severity note-level)    (cl-incf warning-count))
                   (t                          (cl-incf note-count)))))))
    `((note-count . ,note-count)
      (error-count . ,error-count)
      (warning-count . ,warning-count)
      (issue-count . ,(+ warning-count
                         error-count))
      (all-count . ,(+ note-count
                       warning-count
                       error-count)))))

;; IMenu everywhere
(use-package imenu-anywhere
  :ensure t
  :bind (("C-." . imenu-anywhere)))

;; Projectile
(use-package projectile
  :init
  (setq projectile-use-git-grep t))
(projectile-mode +1)
(define-key projectile-mode-map (kbd "M-p") 'projectile-command-map)


(use-package projectile-rails
  :defer t :ensure t
  :init (projectile-rails-global-mode))
(define-key projectile-rails-mode-map (kbd "C-c r")
	    'projectile-rails-command-map)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Custom functions
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun ceg/pre-commit-run-current-file ()
  "Run pre-commit with the current file name"
  (interactive)
  (let ((full-command (concat "pre-commit run --file " buffer-file-name " | sed 's;^ceg/;;g'")))
    (compile full-command)))

(defun ceg/pre-commit-run ()
  "Run pre-commit with the current file name"
  (interactive)
  (let ((full-command (concat "pre-commit run | sed 's;^ceg/;;g'")))
    (compile full-command)))

(add-hook 'python-mode (lambda ()
			 (local-set-key ("C-c o")
					'ceg/pre-commit-run)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;   Global keybindigns
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define-key global-map (kbd "RET") 'newline-and-indent)
(global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "C-;") 'completion-at-point)
(global-set-key (kbd "C-x g") 'magit-status)
(global-set-key (kbd "M-z") 'zap-up-to-char)
(global-set-key (kbd "C-.") #'imenu-anywhere)
(global-set-key (kbd "M-o") 'other-window)
(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.
 '(custom-safe-themes
   '("919fabfc5cb6165ce07b9d8668f78fe75fe8bd08566006bc87513c29b4f34ade" "3770d0ae70172461ee0a02edcff71b7d480dc54066e8960d8de9367d12171efb" default))
 '(safe-local-variable-values
   '((python-pytest-executable . "pytest")
     (python-shell-interpreter-args . "/home/work/Workspace/ceg-intranet/ceg/manage.py shell_plus --plain"))))
(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.
 )