init.el

;;; -*- lexical-binding:t -*-

(require 'package)

(if (file-directory-p "~/.emacs.d/mirror-elpa")
    (setq package-archives '(("gnu"   . "~/.emacs.d/mirror-elpa/gnu/")
			     ("melpa" . "~/.emacs.d/mirror-elpa/melpa/")))
  (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
			   ("melpa" . "http://melpa.org/packages/"))))

(package-initialize)
(package-refresh-contents t)

(setq use-package-always-ensure t
      use-package-verbose t
      use-package-compute-statistics t
      use-package-minimum-reported-time 0.0001
      use-package-enable-imenu-support t)

(require 'use-package-ensure)

(use-package emacs
  :init
  (let ((height (if (eq system-type 'windows-nt) 115 173)))
    (set-face-attribute 'default nil :height height :family "InputMono"))
  (load-theme 'modus-vivendi t)
  (tool-bar-mode 0)
  (column-number-mode)

  (setq inhibit-compacting-font-caches t)
  (setq w32-grab-focus-on-raise nil)
  (delete-selection-mode)
  (fset 'yes-or-no-p 'y-or-n-p)
  (setq completion-ignore-case t)
  (defun always-yes (&rest args)
    (cl-letf (((symbol-function 'y-or-n-p) #'always))
      (funcall-interactively (car args) (cdr args))))
  (add-hook 'prog-mode-hook #'hs-minor-mode)

  (setq x-select-enable-clipboard-manager nil)

  (setq system-time-locale "C")
  (setq bookmark-default-file "~/Dropbox/Documents/bookmarks")

  ;; startup
  (setq initial-major-mode 'fundamental-mode
	initial-scratch-message nil
	inhibit-splash-screen t)

  (setq create-lockfiles nil)
  (prefer-coding-system 'utf-8)

  ;; pulse current line
  (defun ji/pulse-line (&rest _)
    (pulse-momentary-highlight-one-line (point)))
  (dolist (command '(recenter-top-bottom other-window ace-window))
    (advice-add command :after #'ji/pulse-line))

  ;; functions
  (defun ji/windows-alert (message)
    (let ((id (w32-notification-notify :title "Info" :body message :level 'info)))
      (run-with-timer 1 nil (lambda nil (w32-notification-close id)))))

  (defun ji/schedule-break ()
    (interactive)
    (run-at-time "20 min" nil 'ji/windows-alert "Take a break"))

  (defun ji/generate-uuid-guid ()
    (interactive)
    (let ((command
	   (cond
	    ((eq system-type 'windows-nt) "powershell.exe -Command [guid]::NewGuid().toString()")
	    ((eq system-type 'gnu/linux) "uuidgen"))))
      (kill-new (string-trim (shell-command-to-string command)))
      (message "UUID/GUID %s copied to kill ring" (car kill-ring))))

  ;; hydra to show help for seldomly used commands
  (defhydra hydra-help (:color pink :hint nil)
    "
^Mark^                  ^Operate^                                      ^View^                      ^Search^
^^^^^^^^----------------------------------------------------------------------------------------------------------
^ ^                     _C-x TAB_   : indent-rigidly                   ^ ^                         _M-s o_ : occur
^ ^                     _C-x RET c_ : universal-coding-system-argument
"
    ("C-x TAB" indent-rigedly)
    ("C-x RET c" universal-coding-system-argument)
    ("M-s o" occur)
    ("q" nil :color blue))
  :bind
  ("C-x k" . kill-this-buffer)
  ("C-x C-b" . ibuffer)
  ("M-SPC" . cycle-spacing)
  ("C-c h" . hydra-help/body))

(use-package winner
  :ensure nil
  :init
  (winner-mode 1))

(use-package files
  :ensure nil
  :init
  (setq make-backup-files nil
	large-file-warning-threshold nil
	confirm-kill-emacs 'yes-or-no-p)
  :hook (before-save . delete-trailing-whitespace))

(use-package paren
  :ensure nil
  :init
  (setq show-paren-delay 0)
  (show-paren-mode))

(use-package frame
  :ensure nil
  :init
  (toggle-frame-maximized)
  (blink-cursor-mode 0))

(use-package time
  :ensure nil
  :init
  (setq display-time-string-forms '((propertize (format-time-string "%d/%m/%Y %H:%M:%S" now)))
        display-time-interval 1)
  :config
  (display-time))

(use-package minions
  :hook (doom-modeline-mode))

(use-package doom-modeline
  :init (doom-modeline-mode 1)
  :custom
  (doom-modeline-minor-modes t))

(use-package proced
  :defer t
  :custom
  ((proced-tree-flag t)
   (proced-auto-update-flag t)
   (proced-format 'medium)
   (proced-auto-update-interval 1)))

(use-package nxml-mode
  :ensure nil
  :no-require t
  :defer t
  :init
  :mode ("\\.\\(xslt\\|targets\\|csproj\\|props\\)\\'" . nxml-mode)
  :config
  (setq nxml-child-indent 4)
  (setq nxml-attribute-indent 4)
  (setq-default indent-tabs-mode nil))

(use-package dash
  :config
  (global-dash-fontify-mode)
  (dash-register-info-lookup))

(use-package s)

(use-package elisp-def
  :hook (emacs-lisp-mode))

(use-package magit
  :bind
  ("C-x g" . magit-status)
  :init
  (defun ji/magit-status-advice (orig-fun &rest args)
    (delete-other-windows)
    (let ((window-width (window-total-width)))
      (apply orig-fun args)
      (enlarge-window-horizontally (/ window-width 6))))
  :config
  (advice-add 'magit-status :around #'ji/magit-status-advice)
  (setq magit-push-always-verify nil)
  (setq magit-diff-refine-hunk 'all))

(use-package ediff
  :init
  ;; restore previous window configuration when quitting ediff
  (defvar ji/ediff-previous-window-configuration)
  (defun ji/ediff-restore-window-configuration ()
    (set-window-configuration ji/ediff-previous-window-configuration)
    (remove-hook 'ediff-after-quit-hook-internal 'ji/ediff-restore-window-configuration))
  (defun ji/ediff-restore-window-configuration-advice (orig-fun &rest args)
    (setq ji/ediff-previous-window-configuration (current-window-configuration))
    (add-hook 'ediff-after-quit-hook-internal 'ji/ediff-restore-window-configuration)
    (apply orig-fun args))
    (dolist (command '(ediff ediff-files ediff-buffers))
    (advice-add command :around #'ji/ediff-restore-window-configuration-advice))

  (defun ji/ediff-quit-unconditionally ()
    (interactive)
    (always-yes #'ediff-quit))
  (defun ji/add-q-to-ediff-mode-map ()
    (define-key ediff-mode-map "q" 'ji/ediff-quit-unconditionally))
  :hook
  (ediff-keymap-setup . ji/add-q-to-ediff-mode-map)
  :bind
  ("M-<down>" . ediff-next-difference)
  ("M-<up>" . ediff-previous-difference)
  :config
  (setq ediff-window-setup-function 'ediff-setup-windows-plain)
  (setq ediff-split-window-function 'split-window-horizontally)
  (setq ediff-diff-options "--text")
  :custom-face
  (ediff-current-diff-A ((t (:extend t :background "#553333" :foreground "white"))))
  (ediff-current-diff-B ((t (:extend t :background "#335533" :foreground "white"))))
  (ediff-current-diff-C ((t (:extend t :background "#888833" :foreground "white")))))

(use-package logview
  :defer t
  :config
  (setq logview-additional-submodes '(("SLF4J-1" (format . "TIMESTAMP LEVEL [NAME] (THREAD)") (levels . "SLF4J"))("LOG4NET-1" (format . "TIMESTAMP [THREAD] LEVEL NAME (IGNORED)") (levels . "SLF4J")))))

(use-package powershell
  :defer t)

(use-package plantuml-mode
  :mode "\\.puml\\'"
  :bind (:map plantuml-mode-map ("C-c C-c" . (lambda () (interactive) (plantuml-preview 4)))))

(use-package calc
  :defer t
  :init
  (setq calc-algebraic-mode t))

(use-package rg
  :bind
  ("C-c s" . rg-menu))

(use-package avy
  :bind
  ("C-'" . avy-goto-char-timer)
  :config
  (setq avy-timeout-seconds 0.3))

(use-package ace-window
  :bind
  ("M-o" . ace-window))

(use-package paredit
  :hook (emacs-lisp-mode . enable-paredit-mode))

(use-package scala-mode
  :interpreter
  ("scala" . scala-mode))

(use-package js
  :defer t
  :config
  (setq js-indent-level 2))

(use-package tree-sitter)

(use-package tree-sitter-indent)

(use-package tree-sitter-langs)

(use-package lsp-mode
  :init
  (setq lsp-keymap-prefix "C-c l")
  :hook (csharp-tree-sitter-mode . lsp)
  :commands lsp)

(use-package lsp-ui
  :custom
  (lsp-ui-doc-enable nil)
  (lsp-ui-doc-position 'at-point)
  (lsp-ui-sideline-enable nil)
  :commands lsp-ui-mode)

(use-package company
  :after lsp-mode
  :hook (lsp-mode)
  :bind
  (:map company-active-map
        ("<tab>" . company-complete-selection))
  (:map lsp-mode-map
        ("<tab>" . company-indent-or-complete-common))
  :custom
  (company-minimum-prefix-length 1)
  (company-idle-delay 0.0))

(use-package company-box
  :hook (company-mode-box)
  :config
  (setq company-box-backends-colors '((company-capf :all "white" :selected (:background "grey" :foreground "white")))))

(use-package markdown-mode
  :defer t)

(use-package dockerfile-mode
  :defer t)

(use-package docker
  :bind ("C-c d" . docker))

(use-package terraform-mode
  :defer t)

(use-package yaml-mode
  :defer t)

(use-package rust-mode
  :defer t
  :config
  (add-hook 'rust-mode-hook (lambda () (setq indent-tabs-mode nil))))

(use-package haskell-mode
  :bind
  (:map haskell-mode-map
	("C-c C-c" . haskell-compile)))

(use-package groovy-mode
  :defer t)

(use-package whole-line-or-region
  :init
  (whole-line-or-region-global-mode t))

(use-package vertico
  :init
  (vertico-mode)
  :custom
  (vertico-cycle t))

(use-package vertico-directory
  :after vertico
  :ensure nil
  :bind
  (:map vertico-map
        ("RET" . vertico-directory-enter)
        ("DEL" . vertico-directory-delete-char)
        ("M-DEL" . vertico-directory-delete-word))
  :hook
  (rfn-eshadow-update-overlay . vertico-directory-tidy))

(use-package marginalia
  :bind
  (:map minibuffer-local-map ("M-A" . marginalia-cycle))
  :init
  (marginalia-mode))

(use-package orderless
  :init
  (setq completion-styles '(orderless basic)
        completion-category-defaults nil))

(use-package consult
  :bind
  ("C-x b" . consult-buffer)
  ("C-x 4 b" . consult-buffer-other-window)
  ("C-x 5 b" . consult-buffer-other-frame)
  ("C-x t b" . consult-buffer-other-tab)
  ("M-y" . consult-yank-pop))

(use-package auto-package-update
  :demand
  :config
  (setq auto-package-update-delete-old-versions t)
  (auto-package-update-maybe)
  (setq auto-package-update-interval 1)
  (auto-package-update-at-time "05:00"))

(use-package openwith
  :config
  (setq openwith-associations
        (list
         (list (openwith-make-extension-regexp
                '("mpg" "mpeg" "mp4" "avi" "wmv" "mov" "flv" "mkv" "m4v" "webm" "dav"))
               "mpv"
               '("--fullscreen" file))
         (list (openwith-make-extension-regexp
                '("xbm" "pbm" "pgm" "ppm" "pnm" "png" "gif" "bmp" "tif" "jpg" "jpeg" "cr2"))
               "feh"
               '("--fullscreen" "--start-at" file))))
  (openwith-mode 1))

(use-package nerd-icons)

(use-package nerd-icons-dired
  :hook
  (dired-mode))

(use-package nerd-icons-ibuffer
  :hook
  (ibuffer-mode))

(use-package nerd-icons-completion
  :after marginalia
  :config
  (nerd-icons-completion-mode)
  (add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup))

(use-package org
  :bind
  ("C-c a" . org-agenda)
  ("C-c c" . org-capture)
  :config
  (setq org-agenda-files '("~/Dropbox/Documents")
	org-default-notes-file "~/Dropbox/Documents/tasks.org"
	org-tags-column 0
	org-src-window-setup 'current-window
	org-confirm-shell-link-function nil
	org-habit-graph-column 50
	org-habit-show-all-today t
	org-habit-preceding-days 28
	org-log-into-drawer t
	org-hide-leading-stars t
	org-startup-folded t
	org-image-actual-width nil
	org-file-apps-gnu (append '((t . "setsid -w xdg-open %s")) org-file-apps-gnu)
	org-capture-templates '(("t" "Task" entry (file org-default-notes-file) "* TODO %?\n  :PROPERTIES:\n  :CAPTURED: %U\n  :END:")))
  (add-to-list 'org-modules 'org-habit)
  (plist-put org-calc-default-modes 'calc-float-format '(float 12))
  (org-babel-do-load-languages
   'org-babel-load-languages
   '((emacs-lisp . t) (shell . t))))

(use-package org-habit-stats
  :defer t
  :hook (org-agenda-mode . (lambda () (local-set-key (kbd "h") 'org-habit-stats-view-habit-at-point-agenda))))

(use-package valign
  :hook (org-mode))

(use-package hydra)

(use-package org-superstar
  :after org
  :hook (org-mode))

(use-package org-present
  :after org
  :init
  (defun ji/org-present-mode-hook ()
    (face-remap-set-base 'default '(:height 1.5) 'variable-pitch 'default)
    (face-remap-set-base 'org-document-title '(:height 3.0) 'org-document-title)
    (face-remap-set-base 'org-level-1 '(:height 2.0) 'org-level-1)
    (org-present-hide-cursor)
    (org-present-read-only)
    (org-display-inline-images))
  (defun ji/org-present-mode-quit-hook ()
    (face-remap-reset-base 'default)
    (face-remap-reset-base 'org-document-title)
    (face-remap-reset-base 'org-level-1)
    (org-present-show-cursor)
    (org-present-read-write)
    (org-remove-inline-images))
  :hook
  ((org-present-mode . ji/org-present-mode-hook)
   (org-present-mode-quit . ji/org-present-mode-quit-hook)))

(use-package multiple-cursors
  :bind
  ("C-c C-SPC" . mc/edit-lines))

(use-package helpful
  :bind
  ("C-h f" . helpful-callable)
  ("C-h v" . helpful-variable)
  ("C-h k" . helpful-key))

(use-package which-key
  :config
  (which-key-mode))

(use-package dired
  :ensure nil
  :hook
  (dired-mode . dired-hide-details-mode)
  (dired-mode . hl-line-mode)
  (dired-mode . auto-revert-mode)
  :config
  (setq dired-listing-switches "-agho --group-directories-first --time-style=long-iso")
  (setq ls-lisp-use-insert-directory-program t)
  (setq auto-revert-verbose nil)
  (setq auto-revert-interval 1)
  (setq dired-dwim-target t)
  (setq dired-recursive-deletes 'always)
  (setq dired-recursive-copies 'always)
  ;; Ensure jumping to beginning and end of buffer stays within file list
  (defun ji/dired-jump-to-first-entry ()
    (interactive)
    (beginning-of-buffer)
    (dired-goto-next-nontrivial-file))
  (defun ji/dired-jump-to-last-entry ()
    (interactive)
    (end-of-buffer)
    (dired-next-line -1))

  ;; Add possibility to force open a file in an external application
  (defun ji/dired-open-file-in-external-app ()
    (interactive)
    (cond ((eq system-type 'gnu/linux)
	   (let* ((file (dired-get-filename nil t))) (call-process "xdg-open" nil 0 nil file)))
	  ((eq system-type 'windows-nt)
	   (w32-shell-execute "open" (replace-regexp-in-string "/" "\\" (dired-get-filename) t t)))))

  (defun ji/dired-get-size ()
    (interactive)
    (let ((files (dired-get-marked-files)))
      (with-temp-buffer
	(apply 'call-process "du" nil t nil "-ach" files)
	(message "Number of files and directories: %s Total size: %s"
		 (- (count-lines (point-min) (point-max)) 1)
		 (progn
                   (re-search-backward "\\(^[0-9.,]+[A-Za-z]+\\).*total$")
                   (match-string 1))))))

  (defun ji/ediff-marked-pair ()
    (interactive)
    (let* ((marked-files (dired-get-marked-files nil nil))
           (other-win (get-window-with-predicate
                       (lambda (window)
			 (with-current-buffer (window-buffer window)
                           (and (not (eq window (selected-window)))
				(eq major-mode 'dired-mode))))))
           (other-marked-files (and other-win
                                    (with-current-buffer (window-buffer other-win)
                                      (dired-get-marked-files nil)))))
      (cond ((= (length marked-files) 2)
             (ediff-files (nth 0 marked-files) (nth 1 marked-files)))
            ((and (= (length marked-files) 1) (= (length other-marked-files) 1))
             (ediff-files (nth 0 marked-files) (nth 0 other-marked-files)))
            (t (error "Please mark exactly 2 files, at least one locally")))))

  (defun ji/dired-duplicate-this-file ()
    (interactive)
    (let* ((this  (dired-get-filename t))
           (ctr   1)
           (new   (format "%s[%d].%s" (file-name-sans-extension this) ctr (file-name-extension this))))
      (while (file-exists-p new)
	(setq ctr  (1+ ctr)
              new  (format "%s[%d].%s" (file-name-sans-extension this) ctr (file-name-extension this))))
      (dired-copy-file this new nil)))

  (defhydra hydra-dired (:color pink :hint nil)
    "
^Mark^                  ^Operate^                       ^View^                                ^Search^
^^^^^^^^---------------------------------------------------------------------------------------------------------------
_m_   : mark            _C_       : copy                _g_       : refresh                   _M-s M-d_ : find files
_% m_ : mark regexp     _% C_     : copy regexp         _C-0 s_   : refresh using switches    _A_       : find in files
_% g_ : mark containing _R_       : rename/move         _C-n_     : narrow
_u_   : unmark          _% R_     : rename/move regexp  _s_       : toggle sorting
_U_   : unmark all      _D_       : delete              _v_       : view file
_t_   : toogle marks    _Z_       : compress/uncompress _M-s M-s_ : show total size and count
^ ^                     _c_       : compress to         _o_       : open in other window
^ ^                     _=_       : ediff marked pair   _w_       : copy file name
^ ^                     _C-x C-q_ : toggle read-only    _C-0 w_   : copy absolute file name
^ ^                     _M-s M-c_ : duplicate file      _(_       : toggle details
"
    ("m" dired-mark)
    ("% m" dired-mark-files-regexp)
    ("% g" dired-mark-files-containing-regexp)
    ("u" dired-unmark)
    ("U" dired-unmark-all-marks)
    ("t" dired-toggle-marks)
    ("C" dired-do-copy)
    ("% C" dired-do-copy-regexp)
    ("R" dired-do-rename)
    ("% R" dired-do-rename-regexp)
    ("D" dired-do-delete)
    ("Z" dired-do-compress)
    ("c" dired-do-compress-to)
    ("g" revert-buffer)
    ("C-0 s" (lambda () (interactive) (let ((current-prefix-arg 0)) (call-interactively #'dired-sort-toggle-or-edit))))
    ("C-n" dired-narrow)
    ("s" dired-sort-toggle-or-edit)
    ("v" dired-view-file)
    ("M-s M-s" dired-get-size)
    ("o" dired-find-file-other-window)
    ("=" ji/ediff-marked-pair)
    ("C-x C-q" dired-toggle-read-only)
    ("w" dired-copy-filename-as-kill)
    ("C-0 w" (lambda () (interactive) (let ((current-prefix-arg 0)) (call-interactively #'dired-copy-filename-as-kill))))
    ("(" dired-hide-details-mode)
    ("M-s M-d" find-name-dired)
    ("M-s M-c" ji/dired-duplicate-this-file)
    ("A" dired-do-find-regexp)
    ("q" quit-window "quit" :color blue)
    ("?" nil :color blue))
  :bind (:map dired-mode-map
	      ([remap beginning-of-buffer] . 'ji/dired-jump-to-first-entry)
	      ([remap end-of-buffer] . 'ji/dired-jump-to-last-entry)
	      ("M-RET" . 'ji/dired-open-file-in-external-app)
	      ("M-s M-s" . 'ji/dired-get-size)
	      ("M-s M-d" . 'find-name-dired)
	      ("M-s M-c" . 'ji/dired-duplicate-this-file)
	      ("=" . 'ji/ediff-marked-pair)
	      ("?" . 'hydra-dired/body)))

(use-package dired-narrow
  :after dired
  :bind (:map dired-mode-map ("C-n" . dired-narrow)))