Minemacs

;; Minemacs helpers
;;

(defun minemacs-tangle-if-not-disabled (module)
  (let ((dest-file (file-name-concat (minemacs-modules-directory) module)))
    (if (member-ignore-case "disabled" (org-get-tags)) "no" dest-file)))

(defun minemacs-subdir (path)
  (file-name-concat user-emacs-directory path))

(defcustom minemacs-modules-directory "modules"
  "Namespace directory for minemacs modules."
  :type '(directory))

(defun minemacs-modules-directory ()
  (minemacs-subdir minemacs-modules-directory))

(defun minemacs-modules-load (&optional matcher)
  "Load all modules '*.el' files in 'minemacs-modules-directory'"
  (interactive)
  (if (file-readable-p (minemacs-modules-directory))
        (let ((matcher (format "%s\.el$" (or matcher "."))))
          (mapcar (lambda (file)
                    (load file 'noerror))
                  (directory-files (minemacs-modules-directory) t matcher)))))

(let* ((vendor (minemacs-subdir "vendor"))
         (default-directory vendor))
  (add-to-list 'load-path vendor)
  (and (file-readable-p vendor) (normal-top-level-add-subdirs-to-load-path)))

(require 'package)
(package-initialize)
(setq use-package-always-ensure t
        package-archives '(
                           ("melpa" . "https://melpa.org/packages/")
                           ("elpa" . "https://elpa.gnu.org/packages/")
                           ("nongnu" . "https://elpa.nongnu.org/nongnu/")
                           ))

(when (< emacs-major-version 29)
  (unless (package-installed-p 'use-package)
    (unless package-archive-contents
        (package-refresh-contents))
    (package-install 'use-package)))

(use-package emacs
  :ensure nil
  :defer
  :hook
  (after-init . toggle-frame-maximized)
  (dired-mode . dired-hide-details-mode)
  :custom
  (custom-file (file-name-concat user-emacs-directory "custom.el"))
  (dired-dwim-target t)
  (dired-listing-switches "-alth")
  (enable-recursive-minibuffers t)
  (initial-buffer-choice #'eshell)
  (make-backup-files nil)
  (shr-inhibit-images t)
  (tab-always-indent 'complete)
  (use-short-answers t)
  (ring-bell-function 'ignore)
  (visible-bell t)
  (completion-auto-help nil)
  :config
  (tool-bar-mode -1)
  (menu-bar-mode -1)
  (scroll-bar-mode -1)
  (savehist-mode 1)
  (recentf-mode 1)
  (ffap-bindings)
  (repeat-mode 1)
  (server-start 1)

  ;; Shared configuration
  (if (file-exists-p "~/Dropbox/minemacs/")
        (setq bookmark-file "~/Dropbox/minemacs/bookmarks"
              eshell-aliases-file "~/Dropbox/minemacs/eshell-aliases"))

  (global-set-key (kbd "s-0") (kbd "C-x 0"))
  (global-set-key (kbd "s-1") (kbd "C-x 1"))
  (global-set-key (kbd "s-2") (kbd "C-x 2"))
  (global-set-key (kbd "s-3") (kbd "C-x 3"))

  (define-key key-translation-map (kbd "s-k") (kbd "M-x"))
  (define-key key-translation-map (kbd "s-m") (kbd "C-x"))
  (define-key key-translation-map (kbd "s-M") (kbd "C-c"))

  (setq minemacs-map
    (let ((map (make-sparse-keymap)))
        (define-key map (kbd "a") #'org-agenda)
        (define-key map (kbd "k") #'org-capture)
        (define-key map (kbd "e") #'eshell)
        (define-key map (kbd "E")
                    (lambda (command)
                      (interactive "sEmacs eshell command: ")
                      (eshell-command command current-prefix-arg)))
        (define-key map (kbd "r") #'recentf)
        (define-key map (kbd "8") #'emoji-search)
        (define-key map (kbd "w j") #'webjump)
        (define-key map (kbd "w w") #'eww)
        map))

  :bind-keymap
  ("s-o" . minemacs-map)
  ("M-o" . minemacs-map)
  :bind
  ("s-n" . #'god-local-mode)
  ("s-w" . #'other-window)
  ("s-)" . #'kill-current-buffer)
  ("s-p" . #'project-switch-to-buffer)
  ("s-P" . #'project-find-file)
  ("s-[" . #'previous-buffer)
  ("s-]" . #'next-buffer)
  ("s-N" . #'dired-jump)
  ("s-e" . #'dabbrev-expand)
  ("s-r" . #'repeat)
  ("s-i" . #'imenu)
  ("s-b" . #'ibuffer)
  ("s-j" . #'switch-to-buffer)
  ("s-f" . #'find-name-dired)
  ("s-t" . #'rgrep)
  ("s--" . #'bookmark-jump)
  ("s-_" . #'bookmark-set)
  (:map isearch-mode-map
          ("C-p" . #'isearch-repeat-backward)
          ("C-n" . #'isearch-repeat-forward)
          ("<tab>" . #'isearch-repeat-forward)
          ("<S-tab>" . #'isearch-repeat-backward))
  (:map completion-list-mode-map
          ("e" . #'switch-to-minibuffer)))

(use-package orderless :custom (completion-styles '(orderless)))
(use-package vertico :config (vertico-mode 1))

(use-package corfu
  :hook
  (eshell-mode . (lambda ()
                     (setq-local corfu-auto nil)
                     (corfu-mode)))
  :custom
  (corfu-cycle t)
  :config
  (global-corfu-mode))

(use-package cape
  :init
  (add-hook 'completion-at-point-functions #'cape-file)
  (add-hook 'completion-at-point-functions #'cape-elisp-block)
  (add-hook 'completion-at-point-functions #'cape-elisp-symbol)
  (add-hook 'completion-at-point-functions #'cape-history)
  (add-hook 'completion-at-point-functions #'cape-line)
  (add-hook 'completion-at-point-functions #'cape-dabbrev))
  ;;(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)

(use-package embark
  :after god-mode
  :demand
  :config
  (add-to-list 'god-exempt-major-modes 'embark-mode)
  :bind*
  ("C-," . embark-act)
  (:map embark-general-map
          ("C-w" . browse-url))
  (:map embark-identifier-map
          ("R" . query-replace)
          ("O" . multi-occur-in-matching-buffers)
          ("c" . browse-url-chrome)
          ("f" . browse-url-firefox))
  (:map embark-url-map
          ("c" . browse-url-chrome)
          ("f" . browse-url-firefox))
  (:map  embark-file-map
           ("p" . project-find-file)
           ("b" . project-switch-to-buffer)
           ("," . append-to-previous-buffer)))

(load custom-file :no-error-if-file-is-missing)
(minemacs-modules-load)