flake/config/emacs/init.el

;;; init.el --- Emacs Config -*- lexical-binding:
;; Author: Zonsopkomst
;; Type: Configuration
;; Created: 2023-09-17
;;
;;; Commentary:
;;
;; A copy and paste job with hopefully some thought, by Zonsopkomst
;;
;;; Code:



;; (message (system-name))


;; TODO
[[https://www.linuxjournal.com/content/org-mode-latex-exporter-latex-non-texers]]
[[https://config.daviwil.com/emacs]]
[[https://www.reddit.com/r/emacs/comments/6r32q4/orgmode_whats_your_html_export_look_like/]]
[[https://blog.aaronbieber.com/2016/09/24/an-agenda-for-life-with-org-mode.html][Agenda]]
[[https://orgmode.org/worg/org-tutorials/orgtutorial_dto.html][Agenda]]

"Straight - Package Manager"
"straight.el: next-generation, purely functional package manager for the Emacs hacker."
[[https://github.com/radian-software/straight.el]]
;; Disable package.el in favor of straight.el
(setq package-enable-at-startup nil)

(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 6))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

;; Integration with use-package
(straight-use-package 'use-package)

;; Configure use-package to use straight.el by default
(use-package straight
  :custom
  (straight-use-package-by-default t))



"CUSTOM"


"transparent windows"
 ;;(set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
 ;;(set-frame-parameter (selected-frame) 'alpha <both>)
   ;; (set-frame-parameter (selected-frame) 'alpha '(95 . 50))
   ;; (add-to-list 'default-frame-alist '(alpha . (95 . 50)))

 (defun toggle-transparency ()
   (interactive)
   (let ((alpha (frame-parameter nil 'alpha)))
     (set-frame-parameter
      nil 'alpha
      (if (eql (cond ((numberp alpha) alpha)
                     ((numberp (cdr alpha)) (cdr alpha))
                     ;; Also handle undocumented (<active> <inactive>) form.
                     ((numberp (cadr alpha)) (cadr alpha)))
               100)
          '(85 . 50) '(100 . 100)))))
(global-set-key (kbd "C-c t") 'toggle-transparency)



"Garbage Collection"
"The default is 800 kilobytes.  Measured in bytes."
(setq gc-cons-threshold (* 50 1000 1000))



"Profile emacs startup"
(add-hook 'emacs-startup-hook
          (lambda ()
            (message "*** Emacs loaded in %s seconds with %d garbage collections."
                     (emacs-init-time "%.2f")
                     gcs-done)))



"Removes *scratch* from buffer after the mode has been set."
(defun remove-scratch-buffer ()
  (if (get-buffer "*scratch*")
    (kill-buffer "*scratch*")))
(add-hook 'after-change-major-mode-hook 'remove-scratch-buffer)



"No more typing the whole yes or no. Just y or n will do."
;;(fset 'yes-or-no-p 'y-or-n-p)
(setq use-short-answers t)



"Remove confirmation if a file or buffer does not exist when you use C-x C-f or C-x b"
(setq confirm-nonexistent-file-or-buffer nil)



"Stop emacs from closing when hitting ESC"
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)



"Add proper word wrapping"
(global-visual-line-mode t)



"Visual Appearance"
;; (menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)
(context-menu-mode 1)



"Column Numbers"
;; column-number-mode
(column-number-mode)


"Line Numbers"
(global-display-line-numbers-mode 1)
(setq display-line-numbers-type 'relative)



"Copy / Paste Defaults"
(cua-mode t)
(setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands
(transient-mark-mode 1) ;; No region when it is not highlighted
(setq cua-keep-region-after-copy t) ;; Standard Windows behaviour
  ;;(cua-selection-mode t) ;; cua goodness without copy/paste etc.



"Delete Other Windows"
(add-hook 'emacs-startup-hook
          (lambda () (delete-other-windows)) t)



"CUSTOM-SET-VARIABLES"

(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
   '("f25f174e4e3dbccfcb468b8123454b3c61ba94a7ae0a870905141b050ad94b8f" default))
 '(package-selected-packages
   '(helm outline-magic neotree minimap nix-mode org-roam org-bullets json-mode smartparens prettier-js which-key magit dracula-theme use-package rainbow-delimiters paredit markdown-mode all-the-icons)))
(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.
 

;; Default Locale Coding System

(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)



;; Allow access from emacsclient
(add-hook 'after-init-hook
          (lambda ()
            (require 'server)
            (unless (server-running-p)
              (server-start))))




"CENTRALIZE BACKUP FILES"

(setq backup-directory-alist '(("." . "~/.emacs.d/backup"))
  backup-by-copying t    ; Don't delink hardlinks
  version-control t      ; Use version numbers on backups
  delete-old-versions t  ; Automatically delete excess backups
  kept-new-versions 20   ; how many of the newest versions to keep
  kept-old-versions 5)    ; and how many of the old



"THEME"


;;(use-package doom-themes
;;  :config
;;  ;; Global settings (defaults)
;;  (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
;;        doom-themes-enable-italic t) ; if nil, italics is universally disabled
;;  (load-theme 'doom-wilmersdorf t)
;;
;;  ;; Enable flashing mode-line on errors
;;  (doom-themes-visual-bell-config)
;;  ;; Enable custom neotree theme (all-the-icons must be installed!)
;;  (doom-themes-neotree-config)
;;  ;; or for treemacs users
;;  (setq doom-themes-treemacs-theme "doom-atom") ; use "doom-colors" for less minimal icon theme
;;  (doom-themes-treemacs-config)
;;  ;; Corrects (and improves) org-mode's native fontification.
;;  (doom-themes-org-config))
;;  ;; Icons for treemacs
;;  (setq doom-themes-treemacs-theme "doom-colors")

"dracula-theme"
[[https://github.com/dracula/emacs]]
;;(use-package dracula-theme
;;  :config
;;  (load-theme 'dracula t))



"monokai theme"
[[https://github.com/oneKelvinSmith/monokai-emacs]]
(use-package monokai-theme
  :config
  (load-theme 'monokai t))



"font"
(set-face-attribute 'default nil :family "SpaceMono Nerd Font" :weight 'regular :height 120)
(set-face-attribute 'fixed-pitch nil :font "SpaceMono Nerd Font" :weight 'bold :height 190)
(set-face-attribute 'variable-pitch nil :font "SpaceMono Nerd Font" :weight 'bold :height 1.3)



"Add frame borders and window dividers"
(modify-all-frames-parameters
 '((right-divider-width . 10)
   (internal-border-width . 10)))
(dolist (face '(window-divider
                window-divider-first-pixel
                window-divider-last-pixel))
  (face-spec-reset-face face)
  (set-face-foreground face (face-attribute 'default :background)))
(set-face-background 'fringe (face-attribute 'default :background))



"LANGUAGES / MODES"

"json"
[[https://github.com/json-emacs/json-mode]]
(use-package json-mode)


"nix-mode"
"Nix mode for editing nix expressions"
[[https://github.com/NixOS/nix-mode]]
(use-package nix-mode
  :mode "\\.nix\\'")



"lsp-mode"
"lsp mode for expressions"
[[https://github.com/emacs-lsp/lsp-mode]]
(use-package lsp-mode
  :defer t
  :init
  (setq lsp-keymap-prefix "C-c l")
  :config
  (setq lsp-headerline-breadcrumb-enable nil))

(use-package dap-mode
  :after lsp-mode
  :ensure t
  :defer t)

(use-package lsp-ui
  :commands lsp-ui-mode
  :config
  (setq lsp-ui-doc-enable nil)
  (setq lsp-ui-doc-header t)
  (setq lsp-ui-doc-include-signature t)
  (setq lsp-ui-doc-border (face-foreground 'default))
  (setq lsp-ui-sideline-show-code-actions t)
  (setq lsp-ui-sideline-delay 0.05))



"PACKAGES"
;; In Alphabetical Order



"ace-window"
[[https://github.com/abo-abo/ace-window]]
(use-package ace-window)
(global-set-key (kbd "M-o") 'ace-window)
(setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
(defvar aw-dispatch-alist
  '((?x aw-delete-window "Delete Window"
    (?m aw-swap-window "Swap Windows")
    (?M aw-move-window "Move Window")
    (?c aw-copy-window "Copy Window")
    (?j aw-switch-buffer-in-window "Select Buffer")
    (?n aw-flip-window)
    (?u aw-switch-buffer-other-window "Switch Buffer Other Window")
    (?c aw-split-window-fair "Split Fair Window")
    (?v aw-split-window-vert "Split Vert Window")
    (?b aw-split-window-horz "Split Horz Window")
    (?o delete-other-windows "Delete Other Windows")
    (?? aw-show-dispatch-help)))
  "List of actions for `aw-dispatch-default'.")


"all-the-icons"
[[https://github.com/domtronn/all-the-icons.el]]
(use-package all-the-icons
  :if (display-graphic-p))



"avy"
"Jump to other windows"
[[https://github.com/abo-abo/avy]]
(use-package avy)
(global-set-key (kbd "C-:") 'avy-goto-char)
(avy-setup-default)
(global-set-key (kbd "C-c C-j") 'avy-resume)



"auto-package-update"
[[https://github.com/rranelli/auto-package-update.el]]
(use-package auto-package-update)
(auto-package-update-maybe)



"async"
"Emacs looks less often."
(use-package async
  :defer t
  :init
  (dired-async-mode 1))

(use-package savehist
  :defer 2
  :init (savehist-mode t))

(use-package repeat
  :defer 10
  :init
  (repeat-mode +1))



"beacon"
"highlight cursor"
[[https://github.com/Malabarba/beacon]]
(use-package beacon)
(beacon-mode 1)
(setq beacon-push-mark 35)
(setq beacon-color "#666600")



"centaur-tabs"
"Emacs tabs"
[[https://github.com/ema2159/centaur-tabs]]
(use-package centaur-tabs
  :if window-system
  :demand
  :init
  ;; Set the style to alternate with icons
  (setq centaur-tabs-style "alternate")
  (setq centaur-tabs-set-icons t)

  :config
  ;; Enable centaur-tabs
  (centaur-tabs-mode t)
  (centaur-tabs-headline-match)
  (setq centaur-tabs-set-bar 'over)
  (setq centaur-tabs-modified-marker "◌"))
(setq centaur-tabs-height 36
      centaur-tabs-set-icons t
      centaur-tabs-modified-marker "●"
      centaur-tabs-close-button "⊗"
      centaur-tabs-gray-out-icons 'buffer)
(setq x-underline-at-descent-line t)
(centaur-tabs-change-fonts "JetBrains Mono" 160)



"corfu"
"In-buffer Completion (with tab)"
[[https://github.com/minad/corfu]]
(use-package corfu
  ;; Optional customizations
  ;; :custom
  ;; (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
  ;; (corfu-auto t)                 ;; Enable auto completion
  ;; (corfu-separator ?\s)          ;; Orderless field separator
  ;; (corfu-quit-at-boundary nil)   ;; Never quit at completion boundary
  ;; (corfu-quit-no-match nil)      ;; Never quit, even if there is no match
  ;; (corfu-preview-current nil)    ;; Disable current candidate preview
  ;; (corfu-preselect 'prompt)      ;; Preselect the prompt
  ;; (corfu-on-exact-match nil)     ;; Configure handling of exact matches
  ;; (corfu-scroll-margin 5)        ;; Use scroll margin

  ;; Enable Corfu only for certain modes.
  ;; :hook ((prog-mode . corfu-mode)
  ;;        (shell-mode . corfu-mode)
  ;;        (eshell-mode . corfu-mode))

  ;; Recommended: Enable Corfu globally.
  ;; This is recommended since Dabbrev can be used globally (M-/).
  ;; See also `global-corfu-modes'.
  :init
  (global-corfu-mode))

;; A few more useful configurations...
(use-package emacs
  :init
  ;; TAB cycle if there are only few candidates
  (setq completion-cycle-threshold 3)

  ;; Emacs 28: Hide commands in M-x which do not apply to the current mode.
  ;; Corfu commands are hidden, since they are not supposed to be used via M-x.
  ;; (setq read-extended-command-predicate
  ;;       #'command-completion-default-include-p)

  ;; Enable indentation+completion using the TAB key.
  ;; `completion-at-point' is often bound to M-TAB.
  (setq tab-always-indent 'complete))



"dashboard"
"A dashboard for Emacs"
[[https://github.com/emacs-dashboard/emacs-dashboard]]
(use-package dashboard
  :config
  (dashboard-setup-startup-hook))
;; Set the title
(setq dashboard-banner-logo-title "Zonsemacs | C-x C-f Open a file | C-x k Kill Buffer | C-h f TERM  RET ")
;; Set the banner
;;(setq dashboard-startup-banner 'logo)
(setq dashboard-startup-banner
      (pcase (system-name)
        ("weda" "~/.emacs.d/00 assets/ac273182b3bbd00f9e72223861d3938b.png")
        ("tyr" "~/.emacs.d/00 assets/ac273182b3bbd00f9e72223861d3938b.png")
        ("DESKTOP-FIS3P5B" "c:/Users/Church/AppData/Roaming/.emacs.d/00 assets/ac273182b3bbd00f9e72223861d3938b.png")))  
;; Value can be
;; - nil to display no banner
;; - 'official which displays the official emacs logo
;; - 'logo which displays an alternative emacs logo
;; - 1, 2 or 3 which displays one of the text banners
;; - "path/to/your/image.gif", "path/to/your/image.png" or "path/to/your/text.txt" which displays whatever gif/image/text you would prefer
;; - a cons of '("path/to/your/image.png" . "path/to/your/text.txt")

;; Content is not centered by default. To center, set
(setq dashboard-center-content t)

;; To disable shortcut "jump" indicators for each section, set
(setq dashboard-show-shortcuts nil)

(setq dashboard-items '((recents  . 5)
                        (bookmarks . 5)
                        (projects . 5)
                        (agenda . 5)
                        (registers . 5)))

(setq dashboard-set-navigator t)
(setq dashboard-set-init-info t)

(setq dashboard-projects-switch-function 'counsel-projectile-switch-project-by-name)
(setq dashboard-projects-switch-function 'projectile-persp-switch-project)

(add-to-list 'dashboard-items '(agenda) t)
(setq dashboard-week-agenda t)



"dired+"
[[https://www.emacswiki.org/emacs/DiredPlus]]
;; Open dired folders in same buffer
;; (put 'dired-find-alternate-file 'disabled nil)

;; (setq dired-guess-shell-alist-user `(("\\.png\\'" "gimp")
;;                                      ("\\.jpe?g\\'" "gimp")
;;                                      ("\\.mp4\\'" "vlc")))

(use-package dired+
;; nil
;;  :commands
;;  (dired dired-jump)
  :custom
  (dired-listing-switches
   "-goah --group-directories-first --time-style=long-iso")
  (dired-dwim-target t)
  (delete-by-moving-to-trash t))
  

;; Hide hidden files
(use-package dired-hide-dotfiles
  :hook
  (dired-mode . dired-hide-dotfiles-mode)
  :bind
  (:map dired-mode-map ("." . dired-hide-dotfiles-mode)))

;; Keep folders clean (create new directory when not yet existing)
;;(make-directory (expand-file-name "backups/" user-emacs-directory) t)
(setq-default backup-directory-alist
              `(("." . ,(expand-file-name "backups/" user-emacs-directory)))
              create-lockfiles nil)  ; No lock files

;;; Configure outline minor modes
;; Less crazy key bindings for outline-minor-mode
(setq outline-minor-mode-prefix "\C-c\C-o")
;; load outline-magic along with outline-minor-mode
(add-hook 'outline-minor-mode-hook 
      (lambda ()
        (require 'outline-magic)
        (define-key outline-minor-mode-map "\C-c\C-o\t" 'outline-cycle)
       (define-key outline-minor-mode-map (kbd "<backtab>") 'outline-cycle)))

;; revert dired and other buffers
(setq global-auto-revert-non-file-buffers t)


(use-package doom-modeline
  :init (doom-modeline-mode 1))
;; If non-nil, cause imenu to see `doom-modeline' declarations.
;; This is done by adjusting `lisp-imenu-generic-expression' to
;; include support for finding `doom-modeline-def-*' forms.
;; Must be set before loading doom-modeline.
(setq doom-modeline-support-imenu t)

;; How tall the mode-line should be. It's only respected in GUI.
;; If the actual char height is larger, it respects the actual height.
(setq doom-modeline-height 25)

;; How wide the mode-line bar should be. It's only respected in GUI.
(setq doom-modeline-bar-width 4)

;; Whether to use hud instead of default bar. It's only respected in GUI.
(setq doom-modeline-hud nil)

;; The limit of the window width.
;; If `window-width' is smaller than the limit, some information won't be
;; displayed. It can be an integer or a float number. `nil' means no limit."
(setq doom-modeline-window-width-limit 85)

;; How to detect the project root.
;; nil means to use `default-directory'.
;; The project management packages have some issues on detecting project root.
;; e.g. `projectile' doesn't handle symlink folders well, while `project' is unable
;; to hanle sub-projects.
;; You can specify one if you encounter the issue.
(setq doom-modeline-project-detection 'auto)

;; Determines the style used by `doom-modeline-buffer-file-name'.
;;
;; Given ~/Projects/FOSS/emacs/lisp/comint.el
;;   auto => emacs/l/comint.el (in a project) or comint.el
;;   truncate-upto-project => ~/P/F/emacs/lisp/comint.el
;;   truncate-from-project => ~/Projects/FOSS/emacs/l/comint.el
;;   truncate-with-project => emacs/l/comint.el
;;   truncate-except-project => ~/P/F/emacs/l/comint.el
;;   truncate-upto-root => ~/P/F/e/lisp/comint.el
;;   truncate-all => ~/P/F/e/l/comint.el
;;   truncate-nil => ~/Projects/FOSS/emacs/lisp/comint.el
;;   relative-from-project => emacs/lisp/comint.el
;;   relative-to-project => lisp/comint.el
;;   file-name => comint.el
;;   buffer-name => comint.el<2> (uniquify buffer name)
;;
;; If you are experiencing the laggy issue, especially while editing remote files
;; with tramp, please try `file-name' style.
;; Please refer to https://github.com/bbatsov/projectile/issues/657.
(setq doom-modeline-buffer-file-name-style 'auto)

;; Whether display icons in the mode-line.
;; While using the server mode in GUI, should set the value explicitly.
(setq doom-modeline-icon t)

;; Whether display the icon for `major-mode'. It respects `doom-modeline-icon'.
(setq doom-modeline-major-mode-icon t)

;; Whether display the colorful icon for `major-mode'.
;; It respects `nerd-icons-color-icons'.
(setq doom-modeline-major-mode-color-icon t)

;; Whether display the icon for the buffer state. It respects `doom-modeline-icon'.
(setq doom-modeline-buffer-state-icon t)

;; Whether display the modification icon for the buffer.
;; It respects `doom-modeline-icon' and `doom-modeline-buffer-state-icon'.
(setq doom-modeline-buffer-modification-icon t)

;; Whether display the time icon. It respects variable `doom-modeline-icon'.
(setq doom-modeline-time-icon t)

;; Whether to use unicode as a fallback (instead of ASCII) when not using icons.
(setq doom-modeline-unicode-fallback nil)

;; Whether display the buffer name.
(setq doom-modeline-buffer-name t)

;; Whether highlight the modified buffer name.
(setq doom-modeline-highlight-modified-buffer-name t)

;; When non-nil, mode line displays column numbers zero-based.
;; See `column-number-indicator-zero-based'.
(setq doom-modeline-column-zero-based t)

;; Specification of \"percentage offset\" of window through buffer.
;; See `mode-line-percent-position'.
(setq doom-modeline-percent-position '(-3 "%p"))

;; Format used to display line numbers in the mode line.
;; See `mode-line-position-line-format'.
(setq doom-modeline-position-line-format '("L%l"))

;; Format used to display column numbers in the mode line.
;; See `mode-line-position-column-format'.
(setq doom-modeline-position-column-format '("C%c"))

;; Format used to display combined line/column numbers in the mode line. See `mode-line-position-column-line-format'.
(setq doom-modeline-position-column-line-format '("%l:%c"))

;; Whether display the minor modes in the mode-line.
(setq doom-modeline-minor-modes nil)

;; If non-nil, a word count will be added to the selection-info modeline segment.
(setq doom-modeline-enable-word-count nil)

;; Major modes in which to display word count continuously.
;; Also applies to any derived modes. Respects `doom-modeline-enable-word-count'.
;; If it brings the sluggish issue, disable `doom-modeline-enable-word-count' or
;; remove the modes from `doom-modeline-continuous-word-count-modes'.
(setq doom-modeline-continuous-word-count-modes '(markdown-mode gfm-mode org-mode))

;; Whether display the buffer encoding.
(setq doom-modeline-buffer-encoding t)

;; Whether display the indentation information.
(setq doom-modeline-indent-info nil)

;; Whether display the total line number。
(setq doom-modeline-total-line-number nil)

;; If non-nil, only display one number for checker information if applicable.
(setq doom-modeline-checker-simple-format t)

;; The maximum number displayed for notifications.
(setq doom-modeline-number-limit 99)

;; The maximum displayed length of the branch name of version control.
(setq doom-modeline-vcs-max-length 12)

;; Whether display the workspace name. Non-nil to display in the mode-line.
(setq doom-modeline-workspace-name t)

;; Whether display the perspective name. Non-nil to display in the mode-line.
(setq doom-modeline-persp-name t)

;; If non nil the default perspective name is displayed in the mode-line.
(setq doom-modeline-display-default-persp-name nil)

;; If non nil the perspective name is displayed alongside a folder icon.
(setq doom-modeline-persp-icon t)

;; Whether display the `lsp' state. Non-nil to display in the mode-line.
(setq doom-modeline-lsp t)

;; Whether display the GitHub notifications. It requires `ghub' package.
(setq doom-modeline-github nil)

;; The interval of checking GitHub.
(setq doom-modeline-github-interval (* 30 60))

;; Whether display the modal state.
;; Including `evil', `overwrite', `god', `ryo' and `xah-fly-keys', etc.
(setq doom-modeline-modal t)

;; Whether display the modal state icon.
;; Including `evil', `overwrite', `god', `ryo' and `xah-fly-keys', etc.
(setq doom-modeline-modal-icon t)

;; Whether display the modern icons for modals.
(setq doom-modeline-modal-modern-icon t)

;; When non-nil, always show the register name when recording an evil macro.
(setq doom-modeline-always-show-macro-register nil)

;; Whether display the mu4e notifications. It requires `mu4e-alert' package.
;;(setq doom-modeline-mu4e nil)
;; also enable the start of mu4e-alert
;;(mu4e-alert-enable-mode-line-display)

;; Whether display the gnus notifications.
(setq doom-modeline-gnus t)

;; Whether gnus should automatically be updated and how often (set to 0 or smaller than 0 to disable)
(setq doom-modeline-gnus-timer 2)

;; Wheter groups should be excludede when gnus automatically being updated.
(setq doom-modeline-gnus-excluded-groups '("dummy.group"))

;; Whether display the IRC notifications. It requires `circe' or `erc' package.
(setq doom-modeline-irc t)

;; Function to stylize the irc buffer names.
(setq doom-modeline-irc-stylize 'identity)

;; Whether display the battery status. It respects `display-battery-mode'.
(setq doom-modeline-battery t)

;; Whether display the time. It respects `display-time-mode'.
(setq doom-modeline-time t)

;; Whether display the misc segment on all mode lines.
;; If nil, display only if the mode line is active.
(setq doom-modeline-display-misc-in-all-mode-lines t)

;; Whether display the environment version.
(setq doom-modeline-env-version t)
;; Or for individual languages
(setq doom-modeline-env-enable-python t)
(setq doom-modeline-env-enable-ruby t)
(setq doom-modeline-env-enable-perl t)
(setq doom-modeline-env-enable-go t)
(setq doom-modeline-env-enable-elixir t)
(setq doom-modeline-env-enable-rust t)

;; Change the executables to use for the language version string
(setq doom-modeline-env-python-executable "python") ; or `python-shell-interpreter'
(setq doom-modeline-env-ruby-executable "ruby")
(setq doom-modeline-env-perl-executable "perl")
(setq doom-modeline-env-go-executable "go")
(setq doom-modeline-env-elixir-executable "iex")
(setq doom-modeline-env-rust-executable "rustc")

;; What to display as the version while a new one is being loaded
(setq doom-modeline-env-load-string "...")

;; By default, almost all segments are displayed only in the active window. To
;; display such segments in all windows, specify e.g.
;;(setq doom-modeline-always-visible-segments '(mu4e irc))

;; Hooks that run before/after the modeline version string is updated
(setq doom-modeline-before-update-env-hook nil)
(setq doom-modeline-after-update-env-hook nil)



"emojify"
[[https://github.com/iqbalansari/emacs-emojify]]
(use-package emojify
  :hook (after-init . global-emojify-mode))
(add-hook 'after-init-hook #'global-emojify-mode)



"expand region"
[[https://github.com/magnars/expand-region.el]]
(use-package expand-region)
  (require 'expand-region)
  (global-set-key (kbd "C-=") 'er/expand-region)



"flycheck"
"Syntax checking"
[[https://www.flycheck.org/en/latest/user/quickstart.html]]
(use-package flycheck
  :init (global-flycheck-mode))
  (add-hook 'after-init-hook #'global-flycheck-mode)


"format-all"
"Format code"
[[https://github.com/lassik/emacs-format-all-the-code]]
(use-package format-all)



"highlight todo"
[[https://github.com/tarsius/hl-todo]]
;;(use-package hl-todo)
;;(setq hl-todo-keyword-faces
  ;;    '(("TODO"   . "#FF0000")
    ;;    ("WAIT"  . "#FF0000")
      ;;  ("HOLD"  . "#A020F0")
       ;; ("SCHD"   . "#1E90FF")))



"highligh indent guide"
[[https://github.com/DarthFennec/highlight-indent-guides]]
(use-package highlight-indent-guides
  :defer t
  :hook (prog-mode . highlight-indent-guides-mode)
  :config
  (setq highlight-indent-guides-method 'character)
  (setq highlight-indent-guides-character ?\|)
  (setq highlight-indent-guides-responsive 'top))



"ialign"
"Emacs package that provides visual version of align-regexp command."
[[https://github.com/mkcms/interactive-align]]
(use-package ialign)
(require 'ialign)
(global-set-key (kbd "C-x l") #'ialign)



"iedit"
"Edit multiple occurrences in the same way simultaneously"
[[https://github.com/victorhge/iedit]]
(use-package iedit)
(require 'iedit)
(defun iedit-dwim (arg)
  "Starts iedit but uses \\[narrow-to-defun] to limit its scope."
  (interactive "P")
  (if arg
      (iedit-mode)
    (save-excursion
      (save-restriction
        (widen)
        ;; this function determines the scope of `iedit-start'.
        (if iedit-mode
            (iedit-done)
          ;; `current-word' can of course be replaced by other
          ;; functions.
          (narrow-to-defun)
          (iedit-start (current-word) (point-min) (point-max)))))))
(global-set-key (kbd "C-;") 'iedit-dwim)


"indent guide"
[[https://github.com/zk-phi/indent-guide]]
(use-package indent-guide)
  (require 'indent-guide)
  (indent-guide-global-mode)
  (set-face-background 'indent-guide-face "dimgray")

  ;; You may also change the character for guides.
  (setq indent-guide-char ":")



"magit"
[[https://github.com/magit/magit]]
(use-package magit)
;; Install package `delta`
;; Windows: `choco install delta`
;; Nix: `delta`
(use-package magit-delta
  :hook (magit-mode . magit-delta-mode))
(use-package git-timemachine)
(use-package magit-section)



"marginalia"
(use-package marginalia
  :config
  (marginalia-mode))

  ;; Bind `marginalia-cycle' locally in the minibuffer.  To make the binding
  ;; available in the *Completions* buffer, add it to the
  ;; `completion-list-mode-map'.
 ;; :bind (:map minibuffer-local-map
 ;;             ("M-A" . marginalia-cycle))

(use-package embark
  :bind
  (("C-." . embark-act)         ;; pick some comfortable binding
   ("C-;" . embark-dwim)        ;; good alternative: M-.
   ("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
  :init

  ;; Optionally replace the key help with a completing-read interface
  (setq prefix-help-command #'embark-prefix-help-command)

  ;; Show the Embark target at point via Eldoc.  You may adjust the Eldoc
  ;; strategy, if you want to see the documentation from multiple providers.
  (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
  ;; (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
  :config

  ;; Hide the mode line of the Embark live/completions buffers
  (add-to-list 'display-buffer-alist
           '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
             nil
             (window-parameters (mode-line-format . none)))))

;; Consult users will also want the embark-consult package.
(use-package embark-consult
  :hook
  (embark-collect-mode . consult-preview-at-point-mode))



"minimap"
[[https://github.com/dengste/minimap]]
(use-package minimap)
(minimap-create)
(setq minimap-window-location 'right)
(custom-set-faces
  '(minimap-active-region-background
    ((((background dark)) (:background "#551a8b"))
     (t (:background "#D3D3D3222222")))
    "Face for the active region in the minimap.
By default, this is only a different background color."
    :group 'minimap))



"move-text"
[[https://github.com/emacsfodder/move-texts]]
(use-package move-text)
(move-text-default-bindings)
(defun indent-region-advice (&rest ignored)
  (let ((deactivate deactivate-mark))
    (if (region-active-p)
        (indent-region (region-beginning) (region-end))
      (indent-region (line-beginning-position) (line-end-position)))
    (setq deactivate-mark deactivate)))

(advice-add 'move-text-up :after 'indent-region-advice)
(advice-add 'move-text-down :after 'indent-region-advice)



"multiple-cursors"
[[https://github.com/magnars/multiple-cursors.el]]
(use-package multiple-cursors)
(require 'multiple-cursors)
(global-set-key (kbd "C-|") 'mc/edit-lines)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
(global-set-key (kbd "C-S-<mouse-1>") 'mc/add-cursor-on-click)
(define-key mc/keymap (kbd "<return>") nil)



"mw-thesaurus"
[[https://github.com/agzam/mw-thesaurus.el]]
(use-package mw-thesaurus
  :defer t
  :commands mw-thesaurus-lookup-dwim
  :hook (mw-thesaurus-mode . variable-pitch-mode)
  :config
  (map! :map mw-thesaurus-mode-map [remap evil-record-macro] #'mw-thesaurus--quit)

  ;; window on the right side
  (add-to-list
   'display-buffer-alist
   `(,mw-thesaurus-buffer-name
     (display-buffer-reuse-window
      display-buffer-in-direction)
     (direction . right)
     (window . root)
     (window-width . 0.3))))


"olivetti"
"Distraction-free writing"
  (defun ews-distraction-free ()
    "Distraction-free writing environment using Olivetti package."
    (interactive)
    (if (equal olivetti-mode nil)
        (progn
          (window-configuration-to-register 1)
          (delete-other-windows)
          (text-scale-set 2)
          (olivetti-mode t))
      (progn
        (if (eq (length (window-list)) 1)
            (jump-to-register 1))
        (olivetti-mode 0)
        (text-scale-set 0))))

  (use-package olivetti
    :demand t
    :bind
    (("<f9>" . ews-distraction-free)))



"orderless"
(use-package orderless
  :init
  ;; Configure a custom style dispatcher (see the Consult wiki)
  ;; (setq orderless-style-dispatchers '(+orderless-dispatch)
  ;;       orderless-component-separator #'orderless-escapable-split-on-space)
  (setq completion-styles '(orderless basic)
        completion-category-defaults nil
        completion-category-overrides '((file (styles partial-completion)))))



"org-mode"
"Org Mode is an authoring tool and a TODO lists manager for GNU Emacs. It relies on a lightweight plain-text markup language used in files with the ‘.org’ extension."
(use-package org :demand t) 


"org-agenda"
;;(setq org-agenda-files 
;;  (cond ((string-equal (system-name) "weda")
;;	 (setq org-roam-directory "~/Syncthing/org-roam/stpaul's/00 org/todo.org"))
;;       ((string-equal (system-name) "tyr")
;;	 (setq org-roam-directory "~/Syncthing/org-roam/stpaul's/00 org/todo.org"))
;;        ((string-equal (system-name) "DESKTOP-FIS3P5B")
;;	 (setq org-roam-directory "c:/Users/Church/Documents/Syncthing/org-roam/stpaul's/00 org/stpaul's.org"))))
;;


;; set the default export scope to subtree
;;(setf org-export-initial-scope 'subtree)



(setq org-html-head "<meta http-equiv='X-UA-Compatible' content='IE=edge'><meta content='width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no' name='viewport'><style>html{touch-action:manipulation;-webkit-text-size-adjust:100%}body{padding:0;margin:0;background:#f2f6fa;color:#3c495a;font-weight:normal;font-size:15px;font-family:'San Francisco','Roboto','Arial',sans-serif}h2,h3,h4,h5,h6{font-family:'Trebuchet MS',Verdana,sans-serif;color:#586b82;padding:0;margin:20px 0 10px 0;font-size:1.1em}h2{margin:30px 0 10px 0;font-size:1.2em}a{color:#3fa7ba;text-decoration:none}p{margin:6px 0;text-align:justify}ul,ol{margin:0;text-align:justify}ul>li>code{color:#586b82}pre{white-space:pre-wrap}#content{width:96%;max-width:1000px;margin:2% auto 6% auto;background:white;border-radius:2px;border-right:1px solid #e2e9f0;border-bottom:2px solid #e2e9f0;padding:0 115px 150px 115px;box-sizing:border-box}#postamble{display:none}h1.title{background-color:#343C44;color:#fff;margin:0 -115px;padding:60px 0;font-weight:normal;font-size:2em;border-top-left-radius:2px;border-top-right-radius:2px}@media (max-width: 1050px){#content{padding:0 70px 100px 70px}h1.title{margin:0 -70px}}@media (max-width: 800px){#content{width:100%;margin-top:0;margin-bottom:0;padding:0 4% 60px 4%}h1.title{margin:0 -5%;padding:40px 5%}}pre,.verse{box-shadow:none;background-color:#f9fbfd;border:1px solid #e2e9f0;color:#586b82;padding:10px;font-family:monospace;overflow:auto;margin:6px 0}#table-of-contents{margin-bottom:50px;margin-top:50px}#table-of-contents h2{margin-bottom:5px}#text-table-of-contents ul{padding-left:15px}#text-table-of-contents>ul{padding-left:0}#text-table-of-contents li{list-style-type:none}#text-table-of-contents a{color:#7c8ca1;font-size:0.95em;text-decoration:none}table{border-color:#586b82;font-size:0.95em}table thead{color:#586b82}table tbody tr:nth-child(even){background:#f9f9f9}table tbody tr:hover{background:#586b82!important;color:white}table .left{text-align:left}table .right{text-align:right}.todo{font-family:inherit;color:inherit}.done{color:inherit}.tag{background:initial}.tag>span{background-color:#eee;font-family:monospace;padding-left:7px;padding-right:7px;border-radius:2px;float:right;margin-left:5px}#text-table-of-contents .tag>span{float:none;margin-left:0}.timestamp{color:#7c8ca1}@media print{@page{margin-bottom:3cm;margin-top:3cm;margin-left:2cm;margin-right:2cm;font-size:10px}#content{border:none}}</style>")



"Export to Markdown"
(eval-after-load "org"
  '(require 'ox-md nil t))



(setq org-todo-keywords
      '((sequence "TODO(t)"  "HOLD(h)" "SCHD(s)" "|" "DONE(d)" "FAIL(f)")))



  (use-package org-appear
    :hook
    (org-mode . org-appear-mode))
    (org-toggle-inline-images 1)


;;(use-package org-bullets)
;;(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))

"org-modern"
[[https://github.com/minad/org-modern]]
  (use-package org-modern
    :hook
    (org-mode . global-org-modern-mode)
    :custom
    (org-modern-keyword nil)
    (org-modern-checkbox nil)
    (org-modern-table nil))

 

(require 'org-mouse)

(global-set-key (kbd "C-c l") #'org-store-link)
(global-set-key (kbd "C-c a") #'org-agenda)
(global-set-key (kbd "C-c c") #'org-capture)





  (add-hook 'org-mode-hook 'visual-line-mode)



"Automatically mark parent as done when subtasks are completed"
(defun org-summary-todo (n-done n-not-done)
  "Switch entry to DONE when all subentries are done, to TODO otherwise."
  (let (org-log-done org-log-states)   ; turn off logging
    (org-todo (if (= n-not-done 0) "DONE" "TODO"))))

(add-hook 'org-after-todo-statistics-hook #'org-summary-todo)



(setq org-log-done 'time)
(setq org-log-done 'note)



"Improve org mode looks"
[[https://lucidmanager.org/productivity/ricing-org-mode/]]
    (setq-default org-startup-indented t
                  org-pretty-entities t
                  org-use-sub-superscripts "{}"
                  org-hide-emphasis-markers t
                  org-startup-with-inline-images t
                  org-tags-column 0
		  org-catch-invisible-edits 'show-and-error
                  org-special-ctrl-a/e t
                  org-insert-heading-respect-content t
		  org-image-actual-width '(300))

  ;; Increase line spacing
  (setq-default line-spacing 2)



;;"LaTeX previews"
;;  (use-package org-fragtog
;;    :after org
;;    :custom
;;    (org-startup-with-latex-preview t)
;;    :hook
;;    (org-mode . org-fragtog-mode)
;;    :custom
;;    (org-format-latex-options
;;     (plist-put org-format-latex-options :scale 2)
;;     (plist-put org-format-latex-options :foreground 'auto)
;;     (plist-put org-format-latex-options :background 'auto)))


"org-inlinetask"
"Including code for a better return"
(require 'org-inlinetask)

;;(defun scimax/org-return (&optional ignore)
;;  "Add new list item, heading or table row with RET.
;;A double return on an empty element deletes it.
;;Use a prefix arg to get regular RET. "
;;  (interactive "P")
;;  (if ignore
;;      (org-return)
;;    (cond
;;
;;     ((eq 'line-break (car (org-element-context)))
;;      (org-return-indent))
;;
;;     ;; Open links like usual, unless point is at the end of a line.
;;     ;; and if at beginning of line, just press enter.
;;     ((or (and (eq 'link (car (org-element-context))) (not (eolp)))
;;          (bolp))
;;      (org-return))
;;
;;     ;; It doesn't make sense to add headings in inline tasks. Thanks Anders
;;     ;; Johansson!
;;     ((org-inlinetask-in-task-p)
;;      (org-return))
;;
;;     ;; checkboxes too
;;     ((org-at-item-checkbox-p)
;;      (org-insert-todo-heading nil))
;;
;;     ;; lists end with two blank lines, so we need to make sure we are also not
;;     ;; at the beginning of a line to avoid a loop where a new entry gets
;;     ;; created with only one blank line.
;;     ((org-in-item-p)
;;      (if (save-excursion (beginning-of-line) (org-element-property :contents-begin (org-element-context)))
;;          (org-insert-heading)
;;        (beginning-of-line)
;;        (delete-region (line-beginning-position) (line-end-position))
;;        (org-return)))
;;
;;     ;; org-heading
;;     ((org-at-heading-p)
;;      (if (not (string= "" (org-element-property :title (org-element-context))))
;;          (progn (org-end-of-meta-data)
;;                 (org-insert-heading-respect-content)
;;                 (outline-show-entry))
;;        (beginning-of-line)
;;        (setf (buffer-substring
;;               (line-beginning-position) (line-end-position)) "")))
;;
;;     ;; tables
;;     ((org-at-table-p)
;;      (if (-any?
;;           (lambda (x) (not (string= "" x)))
;;           (nth
;;            (- (org-table-current-dline) 1)
;;            (org-table-to-lisp)))
;;          (org-return)
;;        ;; empty row
;;        (beginning-of-line)
;;        (setf (buffer-substring
;;               (line-beginning-position) (line-end-position)) "")
;;        (org-return)))
;;
;;     ;; fall-through case
;;     (t
;;      (org-return)))))
;;
;;
;;(define-key org-mode-map (kbd "RET")
;;  'scimax/org-return)
;;


"org-roam"
"Org-roam is a plain-text knowledge management system. It brings some of Roam's more powerful features into the Org-mode ecosystem."
[[https://github.com/org-roam/org-roam]]
(use-package org-roam
  :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)
         :map org-mode-map
         ("C-M-i" . completion-at-point))
  :custom 
  (setq org-roam-complete-everywhere t)

  :config
;; Change path for PC

;;  (setq org-roam-directory
;;      (pcase (system-name)
;;        ("weda" "~/Syncthing/org-roam/")
;;        ("tyr" "~/Syncthing/org-roam/")
;;        ("DESKTOP-FIS3P5B" "c:/Users/Church/Documents/Syncthing/org-roam/")))  

;;  (setq org-roam-db-location
;;      (pcase (system-name)
;;        ("weda" "~/Syncthing/org-roam/org-roam.db")
;;        ("tyr" "~/Syncthing/org-roam/org-roam.db")
;;        ("DESKTOP-FIS3P5B" "c:/Users/Church/Documents/Syncthing/org-roam/org-roam.db"))))  

  (cond ((string-equal (system-name) "weda")
	 (setq org-roam-directory "~/Syncthing/org-roam/"))
        ((string-equal (system-name) "tyr")
	 (setq org-roam-directory "~/Syncthing/org-roam/"))
        ((string-equal (system-name) "DESKTOP-FIS3P5B")
	 (setq org-roam-directory "c:/Users/Church/Documents/Syncthing/org-roam/"))) 

  (cond ((string-equal (system-name) "weda")
	 (setq org-roam-db-location "~/Syncthing/org-roam/org-roam.db"))
        ((string-equal (system-name) "tyr")
	 (setq org-roam-db-location "~/Syncthing/org-roam/org-roam.db"))
        ((string-equal (system-name) "DESKTOP-FIS3P5B")
	 (setq org-roam-db-location "c:/Users/Church/Documents/Syncthing/org-roam/org-roam.db"))) 

  (setq org-roam-capture-templates 
      '( 
          ("d" "default" plain "%?" 
          :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
	  "#+title: ${title}\n")
	  :unnarrowed t)
	  
          ("b" "baptism" plain
	  "\n* Source\n\nAuthor: %^{Author}\nTitle: ${title}\nDate: %^{%T}\n\n* Summary\n\n%?"
	  :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
	  :unnarrowed t)

          ("e" "expense report" plain
	   "\n#+Author: Eric Wagner\n#+tags:\n#+OPTIONS: num:nil author:nil toc:nil\n* Expense Report\n#+ATTR_HTML: :border 2 :rules all :frame border\n|Field|Value|\n|---|---|\n|**Request for Check**|AMOUNT|\n|**Date**|%t|\n|**Reference**|${title}|\n|**Payable to**|PAYABLE_TO|\n|**Street Address**|n/a|\n|**Vendor(s)**|VENDOR|\n|**Reason**|REASON|\n|**Requested by**|NAME|\n|**Account Number**|ACT|" 
          :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
	  "#+title: ${title}\n")
	  :unnarrowed t)

          ("f" "flower order" plain
	   "\n#+Author: Eric Wagner\n#+tags:\n#+OPTIONS: num:nil author:nil toc:nil\n* Flower Order\n#+ATTR_HTML: :border 2 :rules all :frame border\n|Field|Value|\n|---|---|\n|**Total Due**|AMOUNT|\n|**Date Entered**|%t|\n|**Date Scheduled**|xxxxxx\n|**Reference**|${title}|\n|**Type**|FLOWER_TYPE|\n|**Bulletin Message**|The TYPE are given by NAME |\n|**Arrangment Instructions**|INSTRUCTIONS|\n|**Pickup Time**|TIME|\n|**Requested by**|NAME|\n|\n * [ ] Add to Prayer Chain?" 
          :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
	  "#+title: ${title}\n")
	  :unnarrowed t)
	  
       ) 
  )

  (setq org-html-validation-link nil)

  (setq org-roam-node-display-template
        (concat "${title:*} "
                (propertize "${tags:10}" 'face 'org-tag)))
  
  (org-roam-setup))

;;"Set Backlinks"
;;[[https://www.orgroam.com/manual.html#Configuring-what-is-displayed-in-the-buffer]]
;;(setq org-roam-mode-sections
;;      '((org-roam-backlinks-section :unique t)
;;        org-roam-reflinks-section))

;;  (org-roam-autosync-mode)



(use-package org-roam-ui
;;  :straight
;;    (:host github :repo "org-roam/org-roam-ui" :branch "main" :files ("*.el" "out"))
    :after org-roam
;;         normally we'd recommend hooking orui after org-roam, but since org-roam does not have
;;         a hookable mode anymore, you're advised to pick something yourself
;;         if you don't care about startup time, use
;;  :hook (after-init . org-roam-ui-mode)
;;    :config
    (setq org-roam-ui-sync-theme t
          org-roam-ui-follow t
          org-roam-ui-update-on-save t
          org-roam-ui-open-on-start f
    )
)



"page-break-lines"
"Display form feed characters as tidy horizontal lines"
[[https://github.com/purcell/page-break-lines]]
(use-package page-break-lines)
  (page-break-lines-mode)



"popper"
"Designate any buffer to “popup” status, and it will stay out of your way"
[[https://github.com/karthink/popper]]
(use-package popper
  :bind (("C-`"   . popper-toggle)
         ("M-`"   . popper-cycle)
         ("C-M-`" . popper-toggle-type))
  :init
  (setq popper-reference-buffers
        '("\\*Messages\\*"
          "Output\\*$"
          "\\*Async Shell Command\\*"
          help-mode
          compilation-mode))
  (popper-mode +1)
  (popper-echo-mode +1))                ; For echo area hints



"prettier-js"
"Format the current buffer using prettier"
[[https://github.com/prettier/prettier-emacs]]
(use-package prettier-js
  :config
  (setq prettier-js-args '(
                           "--trailing-comma" "es5"
                           "--single-quote" "true"
                           "--print-width" "120"
                           "--tab-width" "4"
                           "--use-tabs" "false"
                           "--jsx-bracket-same-line" "false"
                           "--stylelint-integration" "true")))



"projectile"
"Project tool (find / switch / etc)"
[[https://github.com/bbatsov/projectile]]
(use-package projectile
  :defer t
  :config
  ;; Enable Projectile globally
  (setq projectile-completion-system 'ido)
  (setq ido-enable-flex-matching t)
  (projectile-mode 1))



"rainbow-delimiters"
"Rainbow parentheses"
[[https://github.com/Fanael/rainbow-delimiters]]
(use-package rainbow-delimiters)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)



"restart-emacs"
[[https://github.com/iqbalansari/restart-emacs]]
(use-package restart-emacs)


"smartparens"
"Smart parenthesis"
[[https://github.com/Fuco1/smartparens]]
(use-package smartparens
  :init
  (smartparens-global-mode))



"smex"
"M-x enhancement"
[[https://github.com/nonsequitur/smex]]
(use-package smex
  :init (smex-initialize)
  :bind
  ("M-x" . smex))



"spell-fu"
"Highlight mispelled words"
[[https://github.com/emacsmirror/spell-fu]]
(use-package spell-fu)

;; (add-hook 'org-mode-hook
;;   (lambda ()
;;     (setq spell-fu-faces-exclude
;;      '(org-block-begin-line
;;        org-block-end-line
;;        org-code
;;        org-date
;;        org-drawer org-document-info-keyword
;;        org-ellipsis
;;        org-link
;;        org-meta-line
;;        org-properties
;;        org-properties-value
;;        org-special-keyword
;;        org-src
;;        org-tag
;;        org-verbatim))
;;     (spell-fu-mode)))

;;(add-hook 'emacs-lisp-mode-hook
;;  (lambda ()
;;    (spell-fu-mode)))



"svg-tag-mode"
"TODO rendorer for tags for certain keywords"
(use-package svg-tag-mode)
(setq svg-tag-tags
      '((":TODO:" . ((lambda (tag) (svg-tag-make "TODO"))))))
  (defun org-agenda-show-svg ()
    (let* ((case-fold-search nil)
           (keywords (mapcar #'svg-tag--build-keywords svg-tag--active-tags))
           (keyword (car keywords)))
      (while keyword
        (save-excursion
          (while (re-search-forward (nth 0 keyword) nil t)
            (overlay-put (make-overlay
                          (match-beginning 0) (match-end 0))
                         'display  (nth 3 (eval (nth 2 keyword)))) ))
        (pop keywords)
        (setq keyword (car keywords)))))
  (add-hook 'org-agenda-finalize-hook #'org-agenda-show-svg)



"swiper"
"Minibuffer completion tool"
[[https://github.com/abo-abo/swiper]]
(use-package swiper
  :bind (("M-s" . counsel-grep-or-swiper)))



"treemacs"
[[https://github.com/Alexander-Miller/treemacs]]
(use-package treemacs
  :defer t
  :init
  (with-eval-after-load 'winum
    (define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
  :config
  (progn
    (setq treemacs-collapse-dirs                  (if treemacs-python-executable 3 0)
          treemacs-deferred-git-apply-delay        0.5
          treemacs-directory-name-transformer      #'identity
          treemacs-display-in-side-window          t
          treemacs-display-current-project-exclusively  t ;;
          treemacs-eldoc-display                   'simple
          treemacs-file-event-delay                2000
          treemacs-file-extension-regex            treemacs-last-period-regex-value
          treemacs-file-follow-delay               0.2
          treemacs-file-name-transformer           #'identity
          treemacs-follow-after-init               t
          treemacs-expand-after-init               t
          treemacs-find-workspace-method           'find-for-file-or-pick-first
          treemacs-git-command-pipe                ""
          treemacs-goto-tag-strategy               'refetch-index
          treemacs-header-scroll-indicators        '(nil . "^^^^^^")
          treemacs-hide-dot-git-directory          t
          treemacs-indentation                     2
          treemacs-indentation-string              " "
          treemacs-is-never-other-window           nil
          treemacs-max-git-entries                 5000
          treemacs-missing-project-action          'ask
          treemacs-move-forward-on-expand          nil
          treemacs-no-png-images                   nil
          treemacs-no-delete-other-windows         t
          treemacs-project-follow-cleanup          nil
          treemacs-project-follow-mode             t ;; 
          treemacs-persist-file                    (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
          treemacs-position                        'left
          treemacs-read-string-input               'from-child-frame
          treemacs-recenter-distance               0.1
          treemacs-recenter-after-file-follow      nil
          treemacs-recenter-after-tag-follow       nil
          treemacs-recenter-after-project-jump     'always
          treemacs-recenter-after-project-expand   'on-distance
          treemacs-litter-directories              '("/node_modules" "/.venv" "/.cask")
          treemacs-project-follow-into-home        nil
          treemacs-show-cursor                     nil
          treemacs-show-hidden-files               t
          treemacs-silent-filewatch                nil
          treemacs-silent-refresh                  nil
          treemacs-sorting                         'alphabetic-asc
          treemacs-select-when-already-in-treemacs 'move-back
          treemacs-space-between-root-nodes        t
          treemacs-tag-follow-cleanup              t
          treemacs-tag-follow-delay                1.5
          treemacs-text-scale                      nil
          treemacs-user-mode-line-format           nil
          treemacs-user-header-line-format         nil
          treemacs-wide-toggle-width               70
          treemacs-width                           35
          treemacs-width-increment                 1
          treemacs-width-is-initially-locked       t
          treemacs-workspace-switch-cleanup        nil)

    ;; The default width and height of the icons is 22 pixels. If you are
    ;; using a Hi-DPI display, uncomment this to double the icon size.
    ;;(treemacs-resize-icons 44)

    (treemacs-follow-mode t)
    (treemacs-filewatch-mode t)
    (treemacs-fringe-indicator-mode 'always)
    ;;(when treemacs-python-executable
    ;;  (treemacs-git-commit-diff-mode t))

    (pcase (cons (not (null (executable-find "git")))
                 (not (null treemacs-python-executable)))
      (`(t . t)
       (treemacs-git-mode 'deferred))
      (`(t . _)
       (treemacs-git-mode 'simple)))

    (treemacs-hide-gitignored-files-mode nil))
  :bind
  (:map global-map
        ("M-0"       . treemacs-select-window)
        ("C-x t 1"   . treemacs-delete-other-windows)
        ("C-x t t"   . treemacs)
        ("C-x t d"   . treemacs-select-directory)
        ("C-x t B"   . treemacs-bookmark)
        ("C-x t C-t" . treemacs-find-file)
        ("C-x t M-t" . treemacs-find-tag)))

(with-eval-after-load 'treemacs
  (define-key treemacs-mode-map [mouse-1] #'treemacs-single-click-expand-action))

(add-hook 'emacs-startup-hook 'treemacs)

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

(use-package treemacs-icons-dired
  :hook (dired-mode . treemacs-icons-dired-enable-once))

(use-package treemacs-magit
  :after (treemacs magit))

(use-package treemacs-persp ;;treemacs-perspective if you use perspective.el vs. persp-mode
  :after (treemacs persp-mode) ;;or perspective vs. persp-mode
  :config (treemacs-set-scope-type 'Perspectives))

(use-package treemacs-tab-bar ;;treemacs-tab-bar if you use tab-bar-mode
  :after (treemacs)
  :config (treemacs-set-scope-type 'Tabs));;



"undo-fu-session"
"Save & recover undo steps between Emacs sessions."
[[https://github.com/emacsmirror/undo-fu-session]]
(use-package undo-fu-session ; Persistant undo history
  :ensure t
  :demand t
  :bind (("C-x u"   . undo-only)
         ("C-/" . undo-only)
         ("C-?" . undo-redo)
         ("C-z"     . undo-only)
         ("C-S-z"   . undo-redo))
  :config (global-undo-fu-session-mode))



"vertico"
"Vertical completion UI"
[[https://github.com/minad/vertico]]
(use-package vertico
  :init
  (vertico-mode))

  ;; Different scroll margin
  ;; (setq vertico-scroll-margin 0)

  ;; Show more candidates
  ;; (setq vertico-count 20)

  ;; Grow and shrink the Vertico minibuffer
  ;; (setq vertico-resize t)

  ;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
  ;; (setq vertico-cycle t)

;; Persist history over Emacs restarts. Vertico sorts by history position.
(use-package savehist
  :init
  (savehist-mode))

;; A few more useful configurations...
(use-package emacs
  :init
  ;; Add prompt indicator to `completing-read-multiple'.
  ;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma.
  (defun crm-indicator (args)
    (cons (format "[CRM%s] %s"
                  (replace-regexp-in-string
                   "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
                   crm-separator)
                  (car args))
          (cdr args)))
  (advice-add #'completing-read-multiple :filter-args #'crm-indicator)

  ;; Do not allow the cursor in the minibuffer prompt
  (setq minibuffer-prompt-properties
        '(read-only t cursor-intangible t face minibuffer-prompt))
  (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)

  ;; Emacs 28: Hide commands in M-x which do not work in the current mode.
  ;; Vertico commands are hidden in normal buffers.
  ;; (setq read-extended-command-predicate
  ;;       #'command-completion-default-include-p)

  ;; Enable recursive minibuffers
  (setq enable-recursive-minibuffers t))



"vimish-fold"
"VIM like folding"
[[https://github.com/matsievskiysv/vimish-fold]]
;;(use-package vimish-fold)
;;  (require 'vimish-fold)
;;   (vimish-fold-global-mode 1)



"which-key"
"Displays keybindings for incomplete command"
[[https://github.com/justbur/emacs-which-key]]
(use-package which-key
  :config
  (which-key-mode))



"xeft"
"Note searching interface"
"https://github.com/casouri/xeft"
(use-package xeft)



"yafolding"
"Folding code blocks based on indentation"
[[https://github.com/emacsorphanage/yafolding]]
(use-package yafolding)

(defvar yafolding-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map (kbd "<C-S-return>") #'yafolding-hide-parent-element)
    (define-key map (kbd "<C-M-return>") #'yafolding-toggle-all)
    (define-key map (kbd "<C-return>") #'yafolding-toggle-element)
    map))
  
(global-set-key (kbd "s-d y") 'yafolding-discover)
  
(add-hook 'prog-mode-hook
          (lambda () (yafolding-mode)))
  
(require 'yafolding)
(define-key yafolding-mode-map (kbd "<C-S-return>") nil)
(define-key yafolding-mode-map (kbd "<C-M-return>") nil)
(define-key yafolding-mode-map (kbd "<C-return>") nil)
(define-key yafolding-mode-map (kbd "C-c <C-M-return>") 'yafolding-toggle-all)
(define-key yafolding-mode-map (kbd "C-c <C-S-return>") 'yafolding-hide-parent-element)
(define-key yafolding-mode-map (kbd "C-c <C-return>") 'yafolding-toggle-element)



"yasnippet"
"Yet another snippet extension for Emacs"
"Creating the snippet
To create the snippet file execute the command `yas-new-snippet` (C-c & C-n), yasnippets internally expands the snippet-writing snippet.
A new buffer will open with the base model to define the new snippet in the snippet-mode major mode."
[[https://github.com/joaotavora/yasnippet]]
(use-package yasnippet
  :hook ((text-mode
          prog-mode
          conf-mode
          snippet-mode) . yas-minor-mode-on)
  :init
  ;;(setq yas-snippet-dir "~/.emacs.d/snippets")
    (setq yas-snippet-dir "~/Documents/Syncthing/org-roam/stpaul's/snippets"))



;;; init.el ends here