(use-package emacs
  :init
  ;; package management
  (require 'package)
  (add-to-list 'package-archives
	       '("melpa" . "https://melpa.org/packages/") t)
  (unless (package-installed-p 'quelpa)
    (with-temp-buffer
      (url-insert-file-contents
       "https://raw.githubusercontent.com/quelpa/quelpa/master/quelpa.el")
      (eval-buffer)
      (quelpa-self-upgrade)))
  (quelpa
   '(quelpa-use-package
     :fetcher git
     :url "https://github.com/quelpa/quelpa-use-package.git"))
  (require 'quelpa-use-package)

  ;; basic cfg
  (tool-bar-mode -1)
  (require 'server)
  (unless (server-running-p) (server-start))
  (setq gc-cons-threshold 100000000
	read-process-output-max (* 1024 1024)
	custom-file (concat user-emacs-directory "custom.el")
	create-lockfiles nil
	tab-always-indent 'complete
	mac-command-modifier 'super
	backup-directory-alist `((".*" .
				  ,(concat user-emacs-directory "backup")))
	delete-old-versions t
	kept-new-versions 20
	kept-old-versions 2
	version-control t
	delete-old-versions t
	backup-by-copying t
	focus-follows-mouse t
	mouse-autoselect-window t
	enable-recursive-minibuffers t
	warning-minimum-level :emergency
	inhibit-startup-screen t
	completion-cycle-threshold 3
	text-mode-ispell-word-completion nil
	lsp-file-watch-threshold 3000
	read-extended-command-predicate #'command-completion-default-include-p
	minibuffer-prompt-properties '(read-only t cursor-intangible t face minibuffer-prompt))
  (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
  (when (file-exists-p custom-file)
    (load custom-file))
  (load-theme 'acme)
  (add-hook 'eshell-mode-hook
	    (lambda ()
	      (setq-local corfu-auto nil)
	      (corfu-mode)))
  (with-eval-after-load 'lsp-mode
    (add-hook 'lsp-mode-hook #'lsp-enable-which-key-integration)
    (add-to-list 'lsp-file-watch-ignored-directories "[/\\\\]plz-out\\'"))
  (add-to-list 'auto-mode-alist
	       '("BUILD\\'" . python-mode)) 
  (global-set-key (kbd "C-c C-r") 'replace-regexp)
  (global-set-key (kbd "C-c C-R") 'replace-string)
  (global-set-key (kbd "C-`") 'vterm-toggle)
  (global-set-key (kbd "C-<f12>") 'speedbar))

(use-package async :ensure t)
(use-package async-status :ensure t)
(use-package dash :ensure t)
(use-package nlinum :ensure t :defer t
  :init (global-nlinum-mode 1))
(use-package multiple-cursors :ensure t :defer t
  :init (multiple-cursors-mode 1)
  :bind (("C-S-c C-S-c" . 'mc/edit-lines)
	 ("C->" . 'mc/mark-next-like-this)
	 ("C-<" . 'mc/mark-previous-like-this)
	 ("C-c C->" . 'mc/mark-all-like-this)))

;; minibuffer
;; ===
(use-package embark :ensure t :defer t)
(use-package vertico :ensure t :defer t
  :init (vertico-mode))
(use-package which-key :ensure t :defer t
  :init (which-key-mode))


;; mass editing
;; ===
(use-package multifiles :ensure t)
(use-package wgrep :ensure t)

;; devil
;; ===
(use-package devil :ensure t
  :init (global-devil-mode 1))



;; eye candy
;; ===

(use-package acme-theme :ensure t :defer t)
(use-package zenburn-theme :ensure t :defer t)
(use-package doom-modeline :ensure t
  :init (doom-modeline-mode 1))
(use-package doom-themes :ensure t
  :config
  (progn
	(setq doom-themes-enable-bold t
          doom-themes-enable-italic t)
	(doom-themes-visual-bell-config)
	(setq doom-themes-treemacs-theme "doom-atom")
	(doom-themes-treemacs-config)
	(doom-themes-org-config)))
(use-package plan9-theme :ensure t :defer t)
(use-package nerd-icons :ensure t :defer t)
(use-package nerd-icons-corfu :ensure t :defer t)
(use-package nerd-icons-dired :ensure t :defer t
  :hook (dired-mode . nerd-icons-dired-mode))
(use-package nerd-icons-completion :ensure t :defer t)
(use-package nerd-icons-ibuffer :ensure t :defer t)
(use-package ligature :ensure t :defer t
  :init (global-ligature-mode 1))
(use-package emojify :ensure t :defer t)
(use-package unicode-fonts :ensure t)

;; scratch buffers
;; ===
(use-package persistent-scratch :ensure t :defer t
  :init
  (progn
	(persistent-scratch-setup-default)
	(persistent-scratch-autosave-mode 1)))
(use-package scratch :ensure t :defer t
  :bind ("C-x ~" . 'scratch))
(use-package go-scratch :ensure t :defer t)


;; multimedia
;; ===
(use-package mingus :ensure t :defer t)


;; terminal / shell
;; ===
(use-package multishell :ensure t :defer t)
(use-package vterm-toggle :ensure t
  :bind (("C-x ! t v" . #'vterm-toggle)))
(use-package eshell-toggle :ensure t
  :bind (("C-x ! t e" . #'eshell-toggle)))
(use-package eshell-vterm :ensure t :defer t
  :init (eshell-vterm-mode 1))


;; org-mode
;; ===

(use-package org :ensure t 
  :mode (("\\.org$" . org-mode))
  :bind (("C-c o a" . org-agenda)
	 ("C-c o c" . org-capture))
  :config
  (defun my/notes-refile-targets ()
    (directory-files "~/notes" t ".*\\.org$"))
  (setq org-startup-indented t)
  (setq org-archive-location "%s_archive::datetree/")
  (setq org-src-tab-acts-natively t)
  (setq org-stuck-projects
        '("+proj-done-hold-maybe/-DONE"
	  ("STRT" "TODO") nil
	  "SCHEDULED:\\|DEADLINE:"))
  (setq org-capture-templates
	'(("t" "TODO" entry
	   (file+headline "~/notes/inbox.org" "Tasks")
	   "* TODO %?\n%i\n%a")
	  ("n" "Note"
	   entry (file+headline "~/notes/inbox.org" "Notes")
	   "* %?\n%i\n%a")
	  ("j" "Journal"
	   entry (file+datetree "~/notes/journal.org")
	   "* %?\nEntered on %U\n")
	  ("w" "Waiting For"
	   entry (file "~/org/waitingfor.org")
	   "* %? :@wait:\nEntered on %U\n")
	  ("c" "Calendar"
	   entry (file+headline "~/org/calendar.org" "Calendar")
	   "* %?\n")))
  (setq org-agenda-files
	'("~/org/TODO.org"
	  "~/org/projects.org"
	  "~/org/calendar.org"
	  "~/org/waitingfor.org"))
  (add-to-list 'org-refile-targets
	       '(my/notes-refile-targets :maxlevel . 3))
  (add-to-list 'org-refile-targets
	       '(org-agenda-files :maxlevel . 2))
  (setq org-refile-use-outline-path 'file)
  (setq org-tags-exclude-from-inheritance '("proj"))
  (setq org-outline-path-complete-in-steps nil)
  (setq org-agenda-custom-commands
	'(("w" "@work" tags "@work")
	  ("h" "@home" tags "@home")
	  ("W" "Waiting For" tags "@wait")))
  (setq org-todo-keywords
        '((sequence "TODO(t)" "|" "DONE(d)")))
  (setq org-agenda-todo-keywords
        '((sequence "TODO(t)" "|" "DONE(d)")))
  (setq org-hide-leading-stars nil
        org-startup-indented t)
  (setq org-mouse-1-follows-link nil))

(use-package ob-go :ensure t :defer t)

(use-package org-dashboard :ensure t :defer t
  :after (:all org))

(use-package org-context :ensure t :defer t
  :after (:all org))

;; knowledge management
;; ===

(use-package deft :ensure t
  :bind (("C-c n d" . #'deft)
		 ("C-c n f" . #'deft-find-file))
  :config
  (setq deft-directory "~/notes")
  (setq deft-recursive t)
  (setq deft-extensions '("org" "txt" "tex" "md"))
  (setq deft-text-mode 'org-mode))
(use-package zetteldeft :ensure t)



;; email
;; ===

(use-package notmuch :ensure t :defer t)
(setq mu4e-change-filenames-when-moving t) ;; for mbsync


;; projects
;; ===

(use-package projectile :ensure t :defer t
  :bind (:map projectile-mode-map
	      ("C-c p" . projectile-command-map)
	      ("C-c p f" . #'projectile-find-file)
	      ("C-c p p" . #'projectile-switch-project)
	      ("C-c p /" . #'projectile-ripgrep)
	      ("C-c p b" . #'projectile-switch-to-buffer)
	      ("C-c p 4 b" . #'projectile-switch-to-buffer-other-window)
	      ("C-c p 5 b" . #'projectile-switch-to-buffer-other-frame)
	      ("C-c p d" . #'projectile-dired)
	      ("C-c p 4 d" . #'projectile-dired-other-window)
	      ("C-c p 4 d" . #'projectile-dired-other-frame))
  :diminish projectile-mode
  :init (projectile-mode))
	
	

(use-package go-projectile :ensure t :defer t)
(use-package projectile-ripgrep :ensure t :defer t
  :after (projectile))
(use-package project-explorer :ensure t :defer t)

;; version control
;; ===
(use-package magit :ensure t :defer t
  :bind ("C-c g" . magit-status)
  :commands (magit-status-here magit-get-current-branch)
  :custom (magit-display-buffer-function
		   #'magit-display-buffer-same-window-except-diff-v1))
(use-package dired-git :ensure t :defer t)
(use-package dired-git-info :ensure t :defer t)
(use-package git-link :ensure t :defer t)
(use-package git-lens :ensure t :defer t)

;; auto completion
;; ===


(use-package corfu :ensure t :defer t
  :bind (:map corfu-map
	      ("C-n" . corfu-next)
	      ("C-p" . corfu-previous)
	      ("SPC" . corfu-insert-separator))
  :custom
  (corfu-cycle t)
  (corfu-auto nil)
  (corfu-separator ?\s)
  (corfu-preselect 'prompt)
  (corfu-quit-at-boundary t)
  (corfu-quit-no-match 'separator)
  (corfu-scroll-margin 5)
  :hook ((prog-mode . corfu-mode)
         (shell-mode . corfu-mode)
         (eshell-mode . corfu-mode))
  :init (global-corfu-mode)
  :config
  (defun corfu-send-shell (&rest _)
    "Send completion candidate when inside comint/eshell."
    (cond
     ((and (derived-mode-p 'eshell-mode)
	   (fboundp 'eshell-send-input))
      (eshell-send-input))
     ((and (derived-mode-p 'comint-mode)
	   (fboundp 'comint-send-input))
      (comint-send-input))))
  (advice-add #'corfu-insert
	      :after #'corfu-send-shell)
  (global-set-key [remap dabbrev-expand]
		  'hippie-expand)
  (add-to-list 'corfu-margin-formatters
	       #'nerd-icons-corfu-formatter))

(use-package dabbrev :ensure t :defer t
  :bind (("M-/" . dabbrev-completion)
         ("C-M-/" . dabbrev-expand))
  :config
  (add-to-list 'dabbrev-ignored-buffer-regexps "\\` ")
  (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode)
  (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode)
  (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode))

(use-package orderless :ensure t :defer t
  :init
  (setq completion-styles '(orderless partial-completion basic)
        completion-category-defaults nil
        completion-category-overrides nil))

(setq text-mode-ispell-word-completion nil)
(setq read-extended-command-predicate
      #'command-completion-default-include-p)
(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)
(setq read-extended-command-predicate
	  #'command-completion-default-include-p)


;; Add extensions
(use-package cape :ensure t :defer t
  ;; Bind dedicated completion commands
  ;; Alternative prefix keys: C-c p, M-p, M-+, ...
  :bind (("C-c / p" . completion-at-point) ;; capf
         ("C-c / t" . complete-tag)        ;; etags
         ("C-c / d" . cape-dabbrev)        ;; or dabbrev-completion
         ("C-c / h" . cape-history)
         ("C-c / f" . cape-file)
         ("C-c / k" . cape-keyword)
         ("C-c / s" . cape-elisp-symbol)
         ("C-c / e" . cape-elisp-block)
         ("C-c / a" . cape-abbrev)
         ("C-c / l" . cape-line)
         ("C-c / w" . cape-dict)
         ("C-c / :" . cape-emoji)
         ("C-c / \\" . cape-tex)
         ("C-c / _" . cape-tex)
         ("C-c / ^" . cape-tex)
         ("C-c / &" . cape-sgml)
         ("C-c / r" . cape-rfc1345))
  :init
  ;; Add to the global default value of `completion-at-point-functions' which is
  ;; used by `completion-at-point'.  The order of the functions matters, the
  ;; first function returning a result wins.  Note that the list of buffer-local
  ;; completion functions takes precedence over the global list.
  (add-hook 'completion-at-point-functions #'cape-dabbrev)
  (add-hook 'completion-at-point-functions #'cape-file)
  (add-hook 'completion-at-point-functions #'cape-elisp-block)
  (add-hook 'completion-at-point-functions #'cape-history)
  (add-hook 'completion-at-point-functions #'cape-keyword))
  ;;(add-hook 'completion-at-point-functions #'cape-tex)
  ;;(add-hook 'completion-at-point-functions #'cape-sgml)
  ;;(add-hook 'completion-at-point-functions #'cape-rfc1345)
  ;;(add-hook 'completion-at-point-functions #'cape-abbrev)
  ;;(add-hook 'completion-at-point-functions #'cape-dict)
  ;;(add-hook 'completion-at-point-functions #'cape-elisp-symbol)
  ;;(add-hook 'completion-at-point-functions #'cape-line))

;; coding
;; ===
(use-package fic-mode :ensure t :defer t)
(use-package lsp-mode :ensure t
  :commands lsp
  :custom
  (lsp-completion-provider :none) ;; we use Corfu!
  :init
  (defun my/lsp-mode-setup-completion ()
	(lsp-enable-which-key-integration)
    (setf
     (alist-get 'styles
		(alist-get 'lsp-capf completion-category-defaults))
     '(orderless)))
  :config
  (setq lsp-prefer-flymake nil)
  :hook
  (lsp-completion-mode . my/lsp-mode-setup-completion))

(use-package flycheck :ensure t :defer t)
(use-package go-mode :ensure t :defer t
  :mode (("\\.go$" . go-mode))
  :hook ((go-mode . lsp-deferred)
	 (before-save . lsp-format-buffer)
	 (before-save . lsp-organize-imports)))
(use-package yaml-mode :ensure t :defer t
  :mode (("\\.yml$" . yaml-mode)))
(use-package json-mode :ensure t :defer t
  :mode (("\\.json$" . json-mode)))
(use-package php-mode :ensure t :defer t
  :mode (("\\.php$" . php-mode)))
(use-package mmm-mode :ensure t :defer t)
(use-package multi-web-mode :ensure t :defer t)
(use-package graphviz-dot-mode :ensure t :defer t)
(use-package protobuf-mode :ensure t :defer t)
(use-package rego-mode :ensure t :defer t)
(use-package plantuml-mode :ensure t 
  :config
  (setq plantuml-default-exec-mode 'jar
		plantuml-jar-path "/usr/share/plantuml/plantuml.jar"
		org-plantuml-jar-path (expand-file-name "/usr/share/plantuml/plantuml.jar"))
  (org-babel-do-load-languages '((plantuml . t))))
(use-package kotlin-mode :ensure t :defer t)
(use-package flycheck-projectile :ensure t)



;; search & narrow
;; ===
(use-package prescient :ensure t :defer t)
(use-package fzf :ensure t :defer t
  :bind
  ;; TODO
  :config
  (setq fzf/args "-x --color bw --print-query --margin=1,0 --no-hscroll"
	fzf/executable "fzf"
	fzf/git-grep-args "-i --line-number %s"
	fzf/grep-command "rg --no-heading -nH"
	fzf/position-bottom t
	fzf/window-height 15))


;; frame & window management
;; ===
(use-package switch-window :ensure t :defer t)
(require 'switch-window)
(global-set-key (kbd "C-x C-o") 'switch-window)
(global-set-key (kbd "C-x C-1") 'switch-window-then-maximize)
(global-set-key (kbd "C-x C-2") 'switch-window-then-split-below)
(global-set-key (kbd "C-x C-3") 'switch-window-then-split-right)
(global-set-key (kbd "C-x C-0") 'switch-window-then-delete)

;; navigation
;; ===
(use-package ace-jump-mode :ensure t :defer t
  :bind (("C-c SPC" . 'ace-jump-mode)
	 ("C-x SPC" . 'ace-jump-mode-pop-mark)))

;; antisocial
;; ===

;; (use-package mastodon :ensure t :defer t)
;; (setq mastodon-instance-url "https://mastodon.sdf.org"
;;	  mastodon-active-user "me@lkn.uber.space")

(with-eval-after-load 'org
  (org-babel-do-load-languages 'org-babel-load-languages
							   '((go . t)
								 (dot . t)
								 (plantuml . t)
)))