;;------------------------------------------------------------------------------
;;; Constants: Colors
;;------------------------------------------------------------------------------

(mapc (lambda (x)
        (let ((color (caddr x))
              (value (cadddr x)))
          (when (> (length color) 0)
            (set (intern color) value))))
      (cdr data))

;; -*- mode: emacs-lisp; lexical-binding: t; no-byte-compile: t -*-
;;==============================================================================
;;; early-init.el
;;
;;; Early Emacs Initialization File
;;
;; Author: Kyle W T Sherman
;;
;; This file was generated from init-emacs.org and should not be edited
;; manually.
;;
;; init-emacs.org => early-init.el
;;==============================================================================

;; macro combining `setq' and `setq-default'
;; FIXME
;;(defmacro setq-customize (

;; disable default emacs package handling (needed for straight)
(setq package-enable-at-startup nil)

;; do not shrink frame to match font size
(setq frame-resize-pixelwise t)

;; suppress display compilation warnings
(setq warning-suppress-types '((comp)))

;;==============================================================================
;;; early-init.el ends here
;;==============================================================================

;; -*- mode: emacs-lisp; lexical-binding: t; no-byte-compile: t -*-
;;==============================================================================
;;; init.el
;;
;;; Bootstrap Emacs Initialization File
;;
;; Author: Kyle W T Sherman
;;
;; This file was generated from init-emacs.org and should not be edited
;; manually.
;;
;; init-emacs.org => init.el
;;==============================================================================

;;------------------------------------------------------------------------------
;;; Org/Babel Bootstrap: Custom Tangle
;;------------------------------------------------------------------------------

;; (defun org-babel-generate-elisp-file (file &optional byte-compile force)
;;   "Generate an emacs-lisp file from an org-babel FILE.

;; Additionally, byte compile the file if BYTE-COMPILE is
;; non-nil.

;; Process file even if timestamp is not newer than target if FORCE
;; is non-nil."
;;   (let* ((case-fold-search t)
;;          (file-base (concat (file-name-directory user-init-file) "init-emacs"))
;;          (file-org (file-truename (concat file-base ".org")))
;;          (file-elisp (file-truename (concat file-base ".el")))
;;          (file-comp (file-truename (concat file-base ".elc")))
;;          (heading-regexp "^\*+ ")
;;          (heading-comment-regexp "^\*+ COMMENT ")
;;          (begin-regexp "^[ \t]*#\\+BEGIN_SRC emacs-lisp")
;;          (begin-tangle-regexp "^[ \t]*#\\+BEGIN_SRC .*:tangle ")
;;          (end-regexp "^[ \t]*#\\+END_SRC")
;;          (indent-regexp "^  "))
;;     ;; generate elisp file if needed
;;     (when (or force
;;               (not (file-exists-p file-elisp))
;;               (file-newer-than-file-p file-org file-elisp))
;;       (message "Writing %s..." file-elisp)
;;       (with-temp-file file-elisp
;;         (insert-file-contents file)
;;         (goto-char (point-min))
;;         (let (code
;;               headings-counts
;;               (level 1)
;;               (comment-level 0)
;;               (end-comment ""))
;;           (while (not (eobp))
;;             (cond
;;              ;; comment heading
;;              ((let ((case-fold-search nil))
;;                 (looking-at heading-comment-regexp))
;;               (setq level (/ (- (match-end 0) (line-beginning-position) 8) 2))
;;               (when (or (zerop comment-level)
;;                         (< level comment-level))
;;                 (setq comment-level level))
;;               (delete-region (line-beginning-position) (progn (forward-line 1) (point))))
;;              ;; normal heading
;;              ((looking-at heading-regexp)
;;               (setq level (/ (- (match-end 0) (line-beginning-position)) 2))
;;               (when (or (zerop comment-level)
;;                         (<= level comment-level))
;;                 (setq comment-level 0)
;;                 (if (assoc level headings-counts)
;;                     (setf (cdr (assoc level headings-counts))
;;                           (cons (buffer-substring-no-properties (match-end 0) (line-end-position)) 1))
;;                   (setq headings-counts (append headings-counts (list (cons level (cons "No heading" 1)))))))
;;               (delete-region (line-beginning-position) (progn (forward-line 1) (point))))
;;              ;; start of tangled source block
;;              ((and (looking-at begin-regexp)
;;                    (zerop comment-level)
;;                    (not (looking-at begin-tangle-regexp))) ; skip blocks with their own tangle directive
;;               (let* ((heading-count (cdr (assoc level headings-counts)))
;;                      (heading (car heading-count))
;;                      (count (cdr heading-count)))
;;                 (delete-region (line-beginning-position) (progn (forward-line 1) (point)))
;;                 (unless (bobp)
;;                   (newline))
;;                 (when (fboundp 'org-link-escape)
;;                   (insert (format ";; [[file:%s::*%s][%s:%s]]\n" file-org (org-link-escape heading) heading count))
;;                   (setq end-comment (format ";; %s:%s ends here\n" heading count))
;;                   (cl-incf (cddr (assoc level headings-counts))))
;;                 (setq code t)))
;;              ;; end of tangled source block
;;              ((and code
;;                    (looking-at end-regexp))
;;               (delete-region (line-beginning-position) (progn (forward-line 1) (point)))
;;               (insert end-comment)
;;               (setq code nil
;;                     end-comment ""))
;;              ;; inside tangled source block
;;              (code
;;               (when (looking-at indent-regexp)
;;                 (delete-char (if (boundp 'org-edit-src-content-indentation)
;;                                  org-edit-src-content-indentation
;;                                2)))
;;               (forward-line 1))
;;              ;; outside tangled source block
;;              (t
;;               (delete-region (line-beginning-position) (progn (forward-line 1) (point))))))
;;           (time-stamp))
;;         (message "Wrote %s..." file-elisp)))
;;     ;; byte compile elisp file if needed
;;     (when (and byte-compile
;;                (or (not (file-exists-p file-comp))
;;                    (file-newer-than-file-p file-elisp file-comp)))
;;       (byte-compile-file file-elisp))))

;; ;; generate and load main init file
;; (let* ((file-base (concat (file-name-directory user-init-file) "init-emacs"))
;;        (file-org (file-truename (concat file-base ".org")))
;;        (file-elisp (file-truename (concat file-base ".el")))
;;        (file-comp (file-truename (concat file-base ".elc"))))
;;   ;; do not try to byte compile the generated file as it will fail since our environment is not setup
;;   (org-babel-generate-elisp-file file-org)
;;   ;; delete any existing byte compiled init file to prevent an outdated version from loading
;;   (when (file-exists-p file-comp)
;;     (delete-file file-comp))
;;   (if (file-exists-p file-elisp)
;;       (load file-elisp)
;;     (message "Error loading %s" file-elisp)))

;;------------------------------------------------------------------------------
;;; Org/Babel Bootstrap: Normal Tangle
;;------------------------------------------------------------------------------

(require 'ob-tangle)
(setq vc-follow-symlinks t)

;; generate (if needed) and load main init file
(let* ((file-base (concat (file-name-directory user-init-file) "init-emacs"))
       (file-org (file-truename (concat file-base ".org")))
       (file-elisp (file-truename (concat file-base ".el")))
       (file-comp (file-truename (concat file-base ".elc"))))
  ;; do not try to byte compile the generated file as it will fail since our environment is not setup
  (when (file-newer-than-file-p file-org file-elisp)
    (org-babel-tangle-file file-org))
  ;; delete any existing byte compiled init file to prevent an outdated version from loading
  (when (file-exists-p file-comp)
    (delete-file file-comp))
  (if (file-exists-p file-elisp)
      (load file-elisp)
    (message "Error loading %s" file-elisp)))

;;==============================================================================
;;; init.el ends here
;;==============================================================================

;; -*- mode: emacs-lisp; lexical-binding: t; no-byte-compile: t -*-
;;==============================================================================
;;; init-windows.el
;;
;;; Bootstrap Emacs Initialization File for Windows
;;
;; Author: Kyle W T Sherman
;;
;; This file was generated from init-emacs.org and should not be edited
;; manually.
;;
;; init-emacs.org => init-windows.el
;;
;; On Windows machines copy this file to: %APPDATA%\init.el
;;==============================================================================

;;------------------------------------------------------------------------------
;;; Load Real Init File
;;------------------------------------------------------------------------------

(let ((home "C:\\msys64\\home\\kyle.sherman"))
  (setenv "HOME" home)
  (load (expand-file-name ".emacs.d\\init.el" home)))

;;==============================================================================
;;; init-windows.el ends here
;;==============================================================================

;; -*- mode: emacs-lisp; lexical-binding: t; no-byte-compile: t -*-
;;==============================================================================
;;; init-emacs.el
;;
;;; Main Emacs Settings File
;;
;; Author: Kyle W T Sherman
;;
;; This file was generated from init-emacs.org and should not be edited
;; manually.
;;
;; init-emacs.org => init-emacs.el
;;==============================================================================

;;==============================================================================
;;; Start
;;==============================================================================

;;------------------------------------------------------------------------------
;;; Start: Status Messages
;;------------------------------------------------------------------------------

;; add timestamps to *Messages* buffer
(defun message--with-timestamp (format-string &rest args)
  "Add timestamps to `*Messages*' buffer."
  (when (and (> (length format-string) 0)
             (not (string= format-string " ")))
    (let ((deactivate-mark nil))
      (save-mark-and-excursion
        (with-current-buffer "*Messages*"
          (let ((inhibit-read-only t))
            (goto-char (point-max))
            (unless (bolp) (newline))
            (insert (format-time-string "[%T] " (current-time)))))))))
;; advise `message'
(advice-add 'message :before #'message--with-timestamp)

;; keep track of load times
(defvar init-message-timestamp nil
  "Timestamp used to track time between `init-message' calls.")
(setq init-message-timestamp (current-time))

;; load time message
(defun init-message (level format-string &rest args)
  "Custom version of `message' to log messages during Emacs initialization.

LEVEL is the indentation level."
  (let ((file (file-name-sans-extension
               (file-name-nondirectory
                (or load-file-name buffer-file-name (buffer-name)))))
        (time (* (float-time (time-subtract (current-time) init-message-timestamp))
                 1000.0)))
    (message (concat (format "[%4d] " time)
                     file " "
                     (make-string (* 2 level) ?-) "> "
                     (format format-string args) " "))
    (setq init-message-timestamp (current-time))))

(init-message 2 "Start: Status Messages")

;; display load time after startup
(defun emacs-startup-hook--message-startup-time ()
  "Message the Emacs startup time and number of garbage collections."
  (message "Emacs startup time: %.2f seconds"
           (float-time (time-subtract after-init-time before-init-time)))
  (message "Emacs startup garbage collections: %d" gcs-done))
(add-hook 'emacs-startup-hook #'emacs-startup-hook--message-startup-time)

;;------------------------------------------------------------------------------
;;; Start: Set Emacs Lisp Garbage Collection Threshold
;;------------------------------------------------------------------------------

;; reduce frequency of garbage collections
(setq gc-cons-threshold (* 8 1024 1024)) ; default: 800000

;;------------------------------------------------------------------------------
;;; Start: Ignore Errors Advice Wrapper
;;------------------------------------------------------------------------------

;; generic advice wrapper function to ignore all errors
(defun advice--ignore-all-errors (orig-fun &rest args)
  "Ignore errors when calling ORIG-FUN with ARGS."
  (ignore-errors
    (apply orig-fun args)))

;; generic advice wrapper function to ignore interactive errors
(defun advice--ignore-interactive-errors (orig-fun &rest args)
  "Ignore errors when interactively calling ORIG-FUN with ARGS."
  (condition-case err
      (apply orig-fun args)
    ('error
     (if (called-interactively-p 'any)
         (message "%s" err)
       (error err)))))

;;------------------------------------------------------------------------------
;;; Start: Lock-File Macro Wrapper
;;------------------------------------------------------------------------------

;; lock-file wrapper macro to evaluate code blocks only once per emacs session
(defmacro when-lock-file-acquired (lock-file &rest body)
  "Evaluate BODY unless another running Emacs instance has done so.

LOCK-FILE is a file name to be used as a lock for this BODY code.

Skips checks if run on Windows or Mac."
  (declare (indent 1))
  (let ((procdir (gensym "procdir")))
    `(let ((,procdir (format "/proc/%d" (emacs-pid))))
       (unless (or (string= system-type "windows-nt")
                   (string= system-type "darwin")
                   (file-exists-p ,lock-file))
         (make-symbolic-link ,procdir ,lock-file t))
       (when (or (string= system-type "windows-nt")
                 (string= system-type "darwin")
                 (file-equal-p ,lock-file ,procdir))
         ,@body))))

;;==============================================================================
;;; Package Manager
;;==============================================================================

(init-message 1 "Package Manager")

;;------------------------------------------------------------------------------
;;; Package Manager: Straight
;;------------------------------------------------------------------------------

(init-message 2 "Package Manager: Straight")

;; initialize package system
(require 'package)
;; (setq package-archives '(("melpa" . "https://melpa.org/packages/")
;;                          ("elpa" . "https://elpa.gnu.org/packages/"))
(setq package-archives '(("elpa" . "https://elpa.gnu.org/packages/")
                         ("nongnu" . "https://elpa.nongnu.org/nongnu/"))
      native-comp-async-report-warnings-errors nil)

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

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

;; ;; configure `use-package' to use straight by default
;; (use-package straight
;;   :custom
;;   (straight-use-package-by-default t))

;; turn off package file modification check at startup
(setq straight-check-for-modifications '(find-when-checking check-on-save))

;; update recipe repositories
;;(straight-pull-recipe-repositories)

;; ;;------------------------------------------------------------------------------
;; ;;; Package Manager: Quelpa
;; ;;------------------------------------------------------------------------------

;; (init-message 2 "Package Manager: Quelpa")

;; ;; set package archives (no ELPA)
;; (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
;;                          ("melpa" . "http://melpa.org/packages/")))

;; ;; initialize package
;; (package-initialize)

;; ;; load package archive, if needed
;; (unless package-archive-contents
;;   (package-refresh-contents))

;; ;; initialize `quelpa' to fetch and build packages
;; (unless (package-installed-p 'quelpa)
;;   (with-temp-buffer
;;     (url-insert-file-contents "https://github.com/quelpa/quelpa/raw/master/quelpa.el")
;;     (eval-buffer)
;;     (quelpa-self-upgrade)))

;; ;; do not update Quelpa or MELPA repo on initialization as it slows down launch time
;; (setq quelpa-upgrade-p nil
;;       quelpa-update-melpa-p nil)

;; ;; install quelpa version of `use-package' to install and load packages
;; (quelpa '(quelpa-use-package :fetcher github :repo "quelpa/quelpa-use-package"))
;; (setq use-package-expand-minimally t)
;; (require 'quelpa-use-package)
;; (setq use-package-always-ensure t)      ; always fetch missing packages

;; ;;------------------------------------------------------------------------------
;; ;;; Package Manager: ELPA (Emacs Lisp Package Archive)
;; ;;------------------------------------------------------------------------------

;; (init-message 2 "Package Manager: ELPA (Emacs Lisp Package Archive)")

;; ;; elpa (emacs lisp package archive)
;; (defconst emacs-package-dir
;;   (file-truename (expand-file-name "elpa" user-emacs-directory))
;;   "ELPA (Emacs Lisp Package Archive) packages directory.")
;; (add-to-list 'load-path emacs-package-dir t)

;; ;; if package is not installed, install it
;; (unless (require 'package nil :no-error)
;;   (let ((buffer (url-retrieve-synchronously "http://tromey.com/elpa/package-install.el")))
;;     (with-current-buffer buffer
;;       (goto-char (point-min))
;;       (re-search-forward "^$" nil 'move)
;;       (eval-region (point) (point-max))
;;       (kill-buffer (current-buffer))))
;;   ;; remove code that gets added to ~/.emacs.d/init.el
;;   (let ((buffer (find-file-noselect (file-truename (expand-file-name "~/.emacs.d/init.el")))))
;;     (with-current-buffer buffer
;;       (when (re-search-forward ";;; init.el ends here" nil :noerror)
;;         (forward-line 0)
;;         (forward-line 1)
;;         (kill-region (point) (point-max))
;;         (save-buffer)
;;         (kill-buffer (current-buffer))))))

;; ;; initialize package system
;; (require 'package)
;; (setq package-enable-at-startup nil
;;       ;; package-archives '(("org" . "http://orgmode.org/elpa/")
;;       ;;                    ("gnu" . "http://elpa.gnu.org/packages/")
;;       ;;                    ("melpa" . "http://melpa.org/packages/"))
;;       package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
;;                          ("melpa" . "http://melpa.org/packages/"))
;;       package-user-dir emacs-package-dir)
;; (package-initialize)

;; ;; refresh package archive contents if empty
;; (unless package-archive-contents
;;   (package-refresh-contents))

;; ;; install `use-package' to load packages
;; (unless (package-installed-p 'use-package)
;;   (package-refresh-contents)
;;   (package-install 'use-package))
;; (setq use-package-expand-minimally t)

;; ;; install `bind-key' to help with binding keys in `use-package' blocks
;; (unless (package-installed-p 'bind-key)
;;   (package-install 'bind-key))

;; ;; install `diminish' to diminish package names on the mode-line in `use-package' blocks
;; (unless (package-installed-p 'diminish)
;;   (package-install 'diminish))

;; ;; require above packages
;; (require 'use-package)
;; (use-package diminish)
;; (use-package bind-key)

;; ;; verbose `use-package' reporting when byte compiling
;; (eval-when-compile
;;   (setq use-package-verbose t))

;; ;;------------------------------------------------------------------------------
;; ;;; Package Manager: Paradox
;; ;;------------------------------------------------------------------------------

;; (init-message 2 "Package Manager: Paradox")

;; (use-package paradox
;;   :commands (paradox-enable)
;;   :config
;;   ;; always run package commands asynchronously
;;   (setq paradox-execute-asynchronously t)

;;   ;; enable paradox
;;   (paradox-enable))

;;==============================================================================
;;; Environment
;;==============================================================================

(init-message 1 "Environment")

;; ;;------------------------------------------------------------------------------
;; ;;; Environment Settings: Debugging
;; ;;------------------------------------------------------------------------------

;; (init-message 2 "Environment: Debugging")

;; ;; turn debugging on when errors occur
;; (setq debug-on-error t)

;; ;; (defun after-init-hook--debug-on-error ()
;; ;;   "Hook to turn debugging on after init completes."
;; ;;   (setq debug-on-error t))
;; ;; (add-hook 'after-init-hook #'after-init-hook--debug-on-error)

;;------------------------------------------------------------------------------
;;; Environment: Init Packages
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Init Packages")

;; load packages that are used for initialization
(use-package async
  :straight t)
(use-package bind-key
  :straight t
  :custom
  ;; extract docstrings from lambdas, closures and keymaps if possible
  (bind-key-describe-special-forms t))
(use-package cl-generic
  :straight (:type built-in))
(use-package cl-macs
  :straight (:type built-in))
(use-package dash
  :straight t
  :demand t)
(use-package diminish
  :straight (diminish
             :type git
             :host github
             :repo "myrjola/diminish.el"))
(use-package f
  :straight t
  :demand t)
(use-package s
  :straight t
  :demand t)
(use-package seq
  :straight (:type built-in))
(use-package subr-x
  :straight (:type built-in))
(use-package org
  :straight (:type built-in))
(use-package org-table
  :straight (:type built-in))
(use-package ob-tangle
  :straight (:type built-in))
(use-package ox
  :straight (:type built-in))

;;------------------------------------------------------------------------------
;;; Environment: Environment
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Environment")

;; set coding system to UTF-8
(prefer-coding-system 'utf-8)
(set-language-environment 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)

;; set timezone to CST
;;(setenv "TZ" "CDT+6")
(setenv "TZ" "America/Chicago")

;; determine if running on a MS-Windows display
(defconst window-system-windows
  ;;(memq system-type '(emx win32 w32 mswindows ms-dos windows-nt))
  (string= window-system "w32")
  "Non-nil if running on a MS-Windows display.")

;; determine if running on a macintosh gnustep or cocoa display
(defconst window-system-mac
  (string= window-system "ns")
  "Non-nil if running on a Macintosh GNUstep or Cocoa display.")

;; determine if running on a Linux X display
(defconst window-system-linux
  (string= window-system "x")
  "Non-nil if running on a Linux X display.")

;; determine if running on a work system
(defconst work-system
  (file-exists-p "~/.work")
  "Non-nil if running on a work system.")

;; cd to home
(cd "~")

;; shell environment
(setq shell-file-name (or (getenv "SHELL") "/bin/bash")
      shell-command-switch "-c"
      explicit-shell-file-name shell-file-name
      explicit-sh-args '("-login" "-i"))

;; quote arguments on windows
(when window-system-windows
  (defvar w32-quote-process-args ?\"
    "Windows quote arguments."))

;; add /usr/local to path on mac
(when window-system-mac
  (add-to-list 'exec-path "/usr/local/sbin")
  (add-to-list 'exec-path "/usr/local/bin"))

;; set object print depth (do not abbreviate printed objects)
(setq print-length nil
      print-level nil
      eval-expression-print-length nil
      eval-expression-print-level nil)

;; ;; turn off print header
;; (setq ps-print-header nil)

;;------------------------------------------------------------------------------
;;; Environment: Global Variables
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Global Variables")

;; set emacs home directory
(defconst emacs-home-dir
  (file-truename (expand-file-name "~/.emacs.d"))
  "Emacs configuration home directory.")

(defmacro emacs-home-sub-dir (dir)
  "Return expanded directory name of DIR if found as a
sub-directory of `emacs-home-dir', or just `emacs-home-dir'
otherwise."
  `(let ((file (expand-file-name ,dir emacs-home-dir)))
     (if (file-exists-p file)
         (file-truename file)
       emacs-home-dir)))

;; set emacs modules directory
(defconst emacs-modules-dir
  (emacs-home-sub-dir "modules")
  "Emacs modules directory.")

;; ;; set local init directory
;; (defconst local-init-dir
;;   (emacs-home-sub-dir "local-init")
;;   "Emacs local initialization directory.")

;; set local modules directory
(defconst local-modules-dir
  (emacs-home-sub-dir "local-modules")
  "Emacs local modules directory.")

;; set local work modules directory
(defconst local-work-modules-dir
  (emacs-home-sub-dir "local-work-modules")
  "Emacs local work modules directory.")

;; set customization file
(defconst customization-file
  (file-truename (expand-file-name "customization.el" emacs-home-dir))
  "Emacs customization file.")
(setq custom-file customization-file)

;; set init-emacs.org true file name
(defconst init-emacs-true-file-name
  (file-truename (expand-file-name "init-emacs.org" emacs-home-dir))
  "The true file name of this buffer.")

;; set user name
(defconst user-name "kyle")
(defconst user-full-name "Kyle W T Sherman")
(defconst user-short-name "Kyle Sherman")
(defconst user-first-name "Kyle")
(defconst user-last-name "Sherman")

;; set email address
(defconst user-mail-address
  (if (getenv "EMAIL")
      (getenv "EMAIL")
    (concat "kyle" "w" "sherman" "@" "gmail" "." "com"))
  "User email address.")

;; set no-spam email address
(defconst user-mail-address-nospam
  (replace-regexp-in-string "\\." " dot "
                            (replace-regexp-in-string "@" " at " user-mail-address))
  "Slightly obfuscated user email address.")

(defun signature (&optional fortune)
  "Return a signature.

A fortune is added if FORTUNE is non-nil."
  (let ((name (or user-short-name user-full-name))
        (mail user-mail-address))
    (let ((sig (if (and name mail)
                   (concat name " <" mail ">")
                 (if name
                     name
                   mail))))
      (concat (if sig sig "")
              (if (and sig fortune) "\n\n" "")
              (if fortune
                  (shell-command-to-string
                   (concat "fortune -a "
                           (shell-quote-argument (expand-file-name "~/quotes"))
                           " | xargs echo -n"))
                "")))))

(init-message 2 "Environment: Load Path")

;; add paths to the head of `load-path' in reverse order.

;; personal elisp projects
(when (file-exists-p local-modules-dir)
  (add-to-list 'load-path local-modules-dir))

;; ;; personal emacs initialization scripts
;; (when (file-exists-p local-init-dir)
;;   (add-to-list 'load-path local-init-dir))

;; ;; emacs home directory
;; (when (file-exists-p emacs-home-dir)
;;   (add-to-list 'load-path emacs-home-dir))

;; emacs modules directory
(when (file-exists-p emacs-modules-dir)
  (add-to-list 'load-path emacs-modules-dir))

;; ;; org-mode directory
;; (when (file-exists-p (expand-file-name "org-mode/contrib/lisp" emacs-modules-dir))
;;   (add-to-list 'load-path (file-truename (expand-file-name "org-mode/contrib/lisp" emacs-modules-dir))))
;; (when (file-exists-p (expand-file-name "org-mode/lisp" emacs-modules-dir))
;;   (add-to-list 'load-path (file-truename (expand-file-name "org-mode/lisp" emacs-modules-dir))))

(when window-system

;;------------------------------------------------------------------------------
;;;; Environment: GUI: General
;;------------------------------------------------------------------------------

(init-message 3 "Environment: GUI: General")

;; support for emacs version < 25.1
(unless (fboundp 'gui-selection-value)
  (defalias 'gui-selection-value 'x-cut-buffer-or-selection-value))

;; clipboard
(when (string= window-system "x")
  (setq select-enable-clipboard t                                      ; cutting and pasting uses clipboard
        select-enable-primary t                                        ; cutting and pasting uses primary selection
        x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING) ; data-type request for X selection
        save-interprogram-paste-before-kill t                          ; save clipboard strings into kill ring before replacing them
        mouse-yank-at-point t                                          ; mouse yank commands yank at point
        interprogram-paste-function 'gui-selection-value)              ; function to call to get text cut from other programs
  (setq-default select-enable-clipboard select-enable-clipboard
                select-enable-primary select-enable-primary
                x-select-request-type x-select-request-type
                save-interprogram-paste-before-kill save-interprogram-paste-before-kill
                mouse-yank-at-point mouse-yank-at-point))

;; inverse video on
(setq inverse-video t)
(setq-default inverse-video inverse-video)

;; visible bell
(setq visible-bell t)
(setq-default visible-bell visible-bell)

;; turn off bell
(setq ring-bell-function 'ignore)

;; turn off cursor blinking
(blink-cursor-mode 0)

;; stretch cursor to glyph width
(setq x-stretch-cursor t)

;; ;; scroll bar on right
;; (setq scroll-bar-mode 'right)
;; (scroll-bar-mode -1)
;; (scroll-bar-mode 1)

;; turn off scroll bar
(when (fboundp 'scroll-bar-mode)
  (scroll-bar-mode -1))

;; turn off toolbar
(when (and (fboundp 'tool-bar-mode)
           tool-bar-mode)
  (tool-bar-mode -1))

;; make default frame size fullscreen
;;(add-to-list 'default-frame-alist '(fullscreen . maximized))

;; do not shrink frame to match font size
(setq frame-resize-pixelwise t)

;; put current buffer name in title bar
(setq frame-title-format "%b")

;; mouse button one drags the scroll bar
(bind-keys* ([vertical-scroll-bar down-mouse-1] . scroll-bar-drag))

;; scroll mouse settings
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1))
      mouse-wheel-progressive-speed t)

;;------------------------------------------------------------------------------
;;;; Environment: GUI: Font
;;------------------------------------------------------------------------------

(init-message 3 "Environment: GUI: Font")

;; set default font
(cl-labels
    ((set-font (font)
               (set-face-attribute 'default nil :font font)
               (set-face-attribute 'fixed-pitch nil :font font)
               (set-face-attribute 'variable-pitch nil :font font)))
  (cl-case window-system
    (x
     (condition-case nil
         (set-font
          (cond
           ;; "8x13"
           ;; "9x15"
           ;; "Ubuntu Mono-13"
           ;; "Inconsolata-15"
           ;; "BitstreamVeraSansMono Nerd Font Mono-14"
           ((x-list-fonts "MesloLGS Nerd Font") "MesloLGS Nerd Font Mono-14")
           ((x-list-fonts "Dejavu Sans") "Dejavu Sans Mono-14")
           ((x-list-fonts "Hack Nerd Font") "Hack Nerd Font Mono-14")
           ((x-list-fonts "DroidSansMono Nerd Font") "DroidSansMono Nerd Font Mono-14")
           ((x-list-fonts "Fira Code") "Fira Code Mono-14")
           (t
            "9x15" nil)))
       ('error
        (set-font "9x15"))))
    (w32
     (condition-case nil
         (set-font "Hack Nerd Font Mono-14")
       ('error
        nil)))
    (ns
     (condition-case nil
         ;;(set-font "BitstreamVeraSansMono Nerd Font Mono-14")
         ;;(set-font "DroidSansMono Nerd Font Mono-14")
         (set-font "Hack Nerd Font Mono-14")
       ('error
        (set-font "Menlo"))))))

;;------------------------------------------------------------------------------
;;;; Environment: GUI: Faces
;;------------------------------------------------------------------------------

(init-message 3 "Environment: GUI: Faces")

;; ;; set faces
;; ;; white foreground on black background with yellow cursor
;; (custom-set-faces
;;  `(default ((t (:foreground ,color-foreground :background ,color-background))))
;;  `(cursor ((t (:foreground ,color-background :background ,color-cursor)))))

;; ;; set faces
;; ;; green foreground on black background with yellow cursor
;; (custom-set-faces
;;  `(default ((t (:foreground ,color-foreground :background ,color-background)))) ; green
;;  `(cursor ((t (:foreground ,color-background :background ,color-cursor))))) ; yellow

;; transparant background (not on Macs)
(defvar background-alpha
  100
  "Background transparency alpha percentage.

Common values:

  100 = none
  90  = 10% transparency
  85  = 15% transparency
  80  = 20% transparency")
(setq background-alpha (if (or window-system-mac window-system-windows)
                           100        ; 0% transparency
                         85))         ; 10% transparency
(set-frame-parameter (selected-frame) 'alpha background-alpha)
(add-to-list 'default-frame-alist (cons 'alpha background-alpha))

;; set mouse color
(set-mouse-color color-mouse)

;; ;;------------------------------------------------------------------------------
;; ;;;; Environment Settings: GUI: Theme
;; ;;------------------------------------------------------------------------------

;; (init-message 3 "Environment: GUI: Theme")

;; ;; flatland theme
;; ;; https://github.com/gchp/flatland-emacs
;; (use-package flatland-theme
;;   :straight t
;;   :init (load-theme 'flatland :no-error))

;; ;; ;; darcula theme
;; ;; ;; https://github.com/ianyepan/jetbrains-darcula-emacs-theme
;; ;; (use-package jetbrains-darcula-theme
;; ;;   :straight t
;; ;;   :init (load-theme 'jetbrains-darcula :no-error))

;; ;; ;; gruber-darker theme
;; ;; ;; https://github.com/rexim/gruber-darker-theme
;; ;; (use-package gruber-darker-theme
;; ;;   :straight t
;; ;;   :init (load-theme 'gruber-darker :no-error))

;; ;; ;; dracula theme
;; ;; ;; https://draculatheme.com/emacs/
;; ;; (use-package dracula-theme
;; ;;   :straight t
;; ;;   :init (load-theme 'dracula :no-error))

;; ;; ;; material theme
;; ;; ;; https://github.com/cpaulik/emacs-material-theme
;; ;; (use-package material-theme
;; ;;   :straight t
;; ;;   :init (load-theme 'material :no-error))

;; ;; material theme
;; ;; https://github.com/cpaulik/emacs-material-theme
;; ;; (use-package material-theme
;; ;;   :load-path (lambda () (file-truename (expand-file-name "material-theme.el" local-modules-dir)))
;; ;;   :init (load-theme 'material :no-error))

;; ;; ;; zenburn theme
;; ;; ;; https://github.com/bbatsov/zenburn-emacs
;; ;; (use-package zenburn-theme
;; ;;   :straight t
;; ;;   :init
;; ;;   (setq zenburn-override-colors-alist   ; default values
;; ;;         '(("zenburn-bg+05" . "#181818") ; #383838
;; ;;           ("zenburn-bg+1"  . "#1f1f1f") ; #4f4f4f
;; ;;           ("zenburn-bg+2"  . "#2f2f2f") ; #5f5f5f
;; ;;           ("zenburn-bg+3"  . "#3f3f3f"))) ; #6f6f6f
;; ;;   (load-theme 'zenburn :no-error))

;; ;; ;; color-theme-sanityinc-tomorrow theme
;; ;; ;; https://github.com/purcell/color-theme-sanityinc-tomorrow
;; ;; (use-package color-theme-sanityinc-tomorrow
;; ;;   :straight t
;; ;;   :init (load-theme 'sanityinc-tomorrow-night :no-error))

;; ;; ;; spacemacs-theme
;; ;; ;; https://github.com/nashamri/spacemacs-theme
;; ;; (use-package spacemacs-theme
;; ;;   :straight t
;; ;;   :init (load-theme 'spacemacs-dark :no-error))

;; ;; ;; solarized theme
;; ;; ;; https://github.com/bbatsov/solarized-emacs
;; ;; (use-package solarized-theme
;; ;;   :straight t
;; ;;   :init
;; ;;   ;; make the fringe stand out from the background
;; ;;   ;;(setq solarized-distinct-fringe-background t)
;; ;;   ;; do not change the font for some headings and titles
;; ;;   (setq solarized-use-variable-pitch nil)
;; ;;   ;; make the modeline high contrast
;; ;;   ;;(setq solarized-high-contrast-mode-line t)
;; ;;   ;; use less bolding
;; ;;   (setq solarized-use-less-bold t)
;; ;;   ;; use more italics
;; ;;   ;;(setq solarized-use-more-italic t)
;; ;;   ;; use less colors for indicators such as git:gutter, flycheck and similar
;; ;;   ;;(setq solarized-emphasize-indicators nil)
;; ;;   ;; do not change size of org-mode headlines (but keep other size-changes)
;; ;;   (setq solarized-scale-org-headlines nil)
;; ;;   ;; avoid all font-size changes
;; ;;   (setq solarized-height-minus-1 1.0)
;; ;;   (setq solarized-height-plus-1 1.0)
;; ;;   (setq solarized-height-plus-2 1.0)
;; ;;   (setq solarized-height-plus-3 1.0)
;; ;;   (setq solarized-height-plus-4 1.0)
;; ;;   ;; load theme
;; ;;   (load-theme 'solarized-dark :no-error))

;; ;; ;; doom themes
;; ;; (use-package doom-themes
;; ;;   :straight t
;; ;;   :custom
;; ;;   (doom-themes-enable-bold t)      ; if nil, bold is universally disabled
;; ;;   (doom-themes-enable-italic t)    ; if nil, italics is universally disabled
;; ;;   (doom-themes-treemacs-theme "doom-atom") ; use "doom-colors" for less minimal icon theme
;; ;;   :config
;; ;;   (load-theme 'doom-one :no-error)
;; ;;   ;;(load-theme 'doom-dracula :no-error)
;; ;;   ;; 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
;; ;;   (doom-themes-treemacs-config)
;; ;;   ;; correct (and improve) org-mode's native fontification
;; ;;   (doom-themes-org-config))

;;------------------------------------------------------------------------------
;;;; Environment: GUI: Modus Themes
;;------------------------------------------------------------------------------

(init-message 3 "Environment: GUI: Modus Themes")

;; modus themes
;; https://github.com/protesilaos/modus-themes/
(use-package modus-themes
  :straight (:type built-in)
  :demand t
  :bind ("<f2>" . modus-themes-toggle)
  :init
  ;; add customizations before loading
  (setq modus-themes-italic-constructs t
        modus-themes-bold-constructs nil
        modus-themes-mixed-fonts nil
        modus-themes-subtle-line-numbers nil
        modus-themes-intense-mouseovers nil
        modus-themes-deuteranopia t
        modus-themes-tabs-accented t
        modus-themes-variable-pitch-ui nil
        modus-themes-inhibit-reload t ; only applies to `customize-set-variable' and related
        modus-themes-fringes nil ; {nil,'subtle,'intense}

        ;; Options for `modus-themes-lang-checkers' are either nil (the
        ;; default), or a list of properties that may include any of those
        ;; symbols: `straight-underline', `text-also', `background',
        ;; `intense' OR `faint'.
        modus-themes-lang-checkers nil

        ;; Options for `modus-themes-mode-line' are either nil, or a list
        ;; that can combine any of `3d' OR `moody', `borderless',
        ;; `accented', a natural number for extra padding (or a cons cell
        ;; of padding and NATNUM), and a floating point for the height of
        ;; the text relative to the base font size (or a cons cell of
        ;; height and FLOAT)
        modus-themes-mode-line '(accented borderless (padding . 4) (height . 0.9))

        ;; Same as above:
        ;; modus-themes-mode-line '(accented borderless 4 0.9)

        ;; Options for `modus-themes-markup' are either nil, or a list
        ;; that can combine any of `bold', `italic', `background',
        ;; `intense'.
        modus-themes-markup '(background italic)

        ;; Options for `modus-themes-syntax' are either nil (the default),
        ;; or a list of properties that may include any of those symbols:
        ;; `faint', `yellow-comments', `green-strings', `alt-syntax'
        ;;modus-themes-syntax nil
        modus-themes-syntax '(alt-syntax faint green-strings yellow-comments)

        ;; Options for `modus-themes-hl-line' are either nil (the default),
        ;; or a list of properties that may include any of those symbols:
        ;; `accented', `underline', `intense'
        ;;modus-themes-hl-line '(underline accented)
        modus-themes-hl-line '(intense)

        ;; Options for `modus-themes-paren-match' are either nil (the
        ;; default), or a list of properties that may include any of those
        ;; symbols: `bold', `intense', `underline'
        modus-themes-paren-match '(bold intense)

        ;; Options for `modus-themes-links' are either nil (the default),
        ;; or a list of properties that may include any of those symbols:
        ;; `neutral-underline' OR `no-underline', `faint' OR `no-color',
        ;; `bold', `italic', `background'
        modus-themes-links '(neutral-underline background)

        ;; Options for `modus-themes-box-buttons' are either nil (the
        ;; default), or a list that can combine any of `flat', `accented',
        ;; `faint', `variable-pitch', `underline', `all-buttons', the
        ;; symbol of any font weight as listed in `modus-themes-weights',
        ;; and a floating point number (e.g. 0.9) for the height of the
        ;; button's text.
        modus-themes-box-buttons '(variable-pitch flat faint 0.9)

        ;; Options for `modus-themes-prompts' are either nil (the
        ;; default), or a list of properties that may include any of those
        ;; symbols: `background', `bold', `gray', `intense', `italic'
        modus-themes-prompts '(intense bold)

        ;; The `modus-themes-completions' is an alist that reads three
        ;; keys: `matches', `selection', `popup'.  Each accepts a nil
        ;; value (or empty list) or a list of properties that can include
        ;; any of the following (for WEIGHT read further below):
        ;;
        ;; `matches' - `background', `intense', `underline', `italic', WEIGHT
        ;; `selection' - `accented', `intense', `underline', `italic', `text-also' WEIGHT
        ;; `popup' - same as `selected'
        ;; `t' - applies to any key not explicitly referenced (check docs)
        ;;
        ;; WEIGHT is a symbol such as `semibold', `light', or anything
        ;; covered in `modus-themes-weights'.  Bold is used in the absence
        ;; of an explicit WEIGHT.
        modus-themes-completions '((matches . (extrabold))
                                   (selection . (semibold accented))
                                   (popup . (accented intense)))

        modus-themes-mail-citations nil ; {nil,'intense,'faint,'monochrome}

        ;; Options for `modus-themes-region' are either nil (the default),
        ;; or a list of properties that may include any of those symbols:
        ;; `no-extend', `bg-only', `accented'
        ;;modus-themes-region '(bg-only no-extend)
        modus-themes-region nil

        ;; Options for `modus-themes-diffs': nil, 'desaturated, 'bg-only
        modus-themes-diffs 'desaturated

        ;;modus-themes-org-blocks 'gray-background ; {nil,'gray-background,'tinted-background}
        modus-themes-org-blocks nil ; {nil,'gray-background,'tinted-background}

        modus-themes-org-agenda ; this is an alist: read the manual or its doc string
        '((header-block . (variable-pitch 1.3))
          (header-date . (grayscale workaholic bold-today 1.1))
          (event . (accented varied))
          (scheduled . uniform)
          (habit . traffic-light))

        modus-themes-headings ; this is an alist: read the manual or its doc string
        ;; '((1 . (overline background variable-pitch 1.3))
        ;;   (2 . (rainbow overline 1.1))
        ;;   (t . (semibold)))
        ;;'((t . (rainbow)))
        '((t . ()))

        modus-themes-vivendi-color-overrides ; override some main colors
        `((bg-main . ,color-background)
          (fg-main . ,color-foreground)))

  ;; load theme files before enabling
  ;;(modus-themes-load-themes)
  ;;(load-theme 'modus-operandi :no-error)
  (load-theme 'modus-vivendi :no-error)
  :config
  ;;(modus-themes-load-operandi)
  (modus-themes-load-vivendi))

)

;;------------------------------------------------------------------------------
;;; Environment: General
;;------------------------------------------------------------------------------

(init-message 2 "Environment: General")

;; disable splash screen
(setq inhibit-startup-screen t)

;; prefer newer el files over elc
(setq load-prefer-newer t)

;; hide menu-bar (use C-M-z to activate)
(when (and (fboundp 'menu-bar-mode)
           menu-bar-mode)
  (menu-bar-mode -1))

;; ;; set default buffer mode to `text-mode'
;; (setq initial-major-mode 'text-mode)

;; set default buffer mode to `org-mode'
(setq initial-major-mode 'org-mode)

;; clear scratch buffer
(setq initial-scratch-message nil)

;; ;; set scratch buffer mode to `emacs-lisp-mode'
;; (setq initial-major-mode 'emacs-lisp-mode)

;; make baskspace key work
(normal-erase-is-backspace-mode 1)

;; add underscore to word boundaries
(modify-syntax-entry ?_ "w")

;; add dash to word boundaries
(modify-syntax-entry ?- "w")

;; add camel-case words to word boundaries
(global-subword-mode 1)

;; beginning of defun is outermost level open-paren
(setq open-paren-in-column-0-is-defun-start nil
      defun-prompt-regexp nil)

;; do not parse comments in sexp's
(setq parse-sexp-ignore-comments t)
(setq-default parse-sexp-ignore-comments parse-sexp-ignore-comments)

;; ;; wrap lines
;; (setq truncate-lines nil)

;; turn off line wrapping
(setq truncate-lines t)
(setq-default truncate-lines truncate-lines)
(toggle-truncate-lines 1)

;; ;; longlines (auto-wrap and show hard newlines)
;; (setq longlines-auto-wrap t
;;       longlines-show-hard-newlines t)

;; do not automatically break lines by inserting newlines
(turn-off-auto-fill)

;; ;; visually break lines that are longer than the screen width
;; (global-visual-line-mode 1)

;; ;; (defun buffer-menu-mode-hook--visual-line-mode()
;; ;;   "Hook to turn on `visual-line-mode' in most buffers."
;; ;;   (unless (string= (substring (buffer-name) 0 1) "*")
;; ;;     (visual-line-mode 1)))
;; ;; (add-hook 'buffer-menu-mode-hook #'buffer-menu-mode-hook--visual-line-mode)

;; ;; use curly arrows to indicate a visual line wrap
;; (setq visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))

;; do not visually break lines that are longer than the screen width
(global-visual-line-mode -1)

;; (defun buffer-menu-mode-hook--visual-line-mode()
;;   "Hook to turn off `visual-line-mode' in most buffers."
;;   (unless (string= (substring (buffer-name) 0 1) "*")
;;     (visual-line-mode -1)))
;; (add-hook 'buffer-menu-mode-hook #'buffer-menu-mode-hook--visual-line-mode)

;; use curly arrows to indicate a visual line wrap
(setq visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))

;; when `display-line-numbers-mode' is on use relative numbering
(setq display-line-numbers-type 'relative)

;; stop cursor at the end of the file
(setq next-line-add-newlines nil)

;; keep screen position when using page-up and page-down
(setq scroll-preserve-screen-position 'keep)

;; scroll one line at a time
(setq scroll-step 1)
;; scroll fewer lines
(setq scroll-conservatively 101)
;; scroll before reaching window edge
(setq scroll-margin 2)
;; turn off vertical auto-scroll
(setq auto-window-vscroll nil)

;; make searches case-insensitive
(setq case-fold-search t)

;; ;; highlight search matches
;; (setq search-highlight t
;;       query-replace-highlight t)

;; highlight search matches
(setq search-highlight nil
      query-replace-highlight nil)

;; make current selection visible
(transient-mark-mode 1)
(setq-default transient-mark-mode transient-mark-mode)

;; set tab indentation, width, and convert tabs to spaces
(setq indent-tabs-mode nil              ; do not insert tab characters
      tab-width 4                       ; default tab width is four spaces
      standard-indent 4                 ; default margin-changing functions indent
      tab-always-indent 'complete       ; tab key will try to auto-complete after auto-tabbing line
      tab-stop-list (number-sequence 4 180 4)) ; tab stops set to every 4 spaces
(setq-default indent-tabs-mode indent-tabs-mode
              tab-width tab-width
              standard-indent standard-indent
              tab-always-indent tab-always-indent
              tab-stop-list tab-stop-list)

;; custom fill-column value
(defconst custom-fill-column 78
  "Custom `fill-column' value.")

;; set default fill column for `auto-fill-mode' mode and `fill-paragraph'
(setq fill-column custom-fill-column)
(setq-default fill-column fill-column)

;; display fill column indictator in programming modes
(add-hook 'prog-mode-hook #'display-fill-column-indicator-mode)

;; set default comment column for in-line comments
(setq comment-column 40)
(setq-default comment-column comment-column)
;; set default comment fill column for in-line comments
(setq comment-fill-column nil)
(setq-default comment-fill-column comment-fill-column)

;; turn on goal column support
(put 'set-goal-column 'disabled nil)

;; insert one space after a sentence when filling text
(setq sentence-end-double-space nil)
;; insert one space after a colon when filling text
(setq colon-double-space nil)

;; ;; insert two spaces after a sentence when filling text
;; (setq sentence-end-double-space t)
;; ;; insert two spaces after a colon when filling text
;; (setq colon-double-space t)

;; highlight matching parenthesis
(show-paren-mode 1)
(set-face-foreground 'show-paren-match color-paren)
(set-face-attribute 'show-paren-match nil :weight 'extra-bold)

;; highlight tabs
(setq highlight-tabs t)
(setq-default highlight-tabs highlight-tabs)

;; ;; highlight trailing white spaces
;; (setq show-trailing-whitespace t)
;; (setq-default show-trailing-whitespace show-trailing-whitespace)

;; highlight tabs and trailing white spaces
(setq whitespace-style '(face trailing tab-mark))
(custom-set-faces `(whitespace-tab ((t (:foreground ,color-foreground :background ,color-background)))))
(setq whitespace-display-mappings
      '((space-mark 32 [183] [46]) ; 32 space ' ', 183 middle dot '·', 46 full stop '.'
        (newline-mark 10 [182 10]) ; 10 linefeed '\n', 182 ??? '¶'
        (tab-mark 9 [9655 9] [92 9])))    ; 9 tab '\t', 9655 '▷', 92 backslash '\'
(global-whitespace-mode 1)              ; enable whitespace mode everywhere

;; highlight current line
(hl-line-mode 1)
(global-hl-line-mode 1)

;; turn on global font lock mode and syntax highlighting
(global-font-lock-mode 1)
(setq font-lock-maximum-decoration t)

;; replace highlighted text with typed text
(delete-selection-mode 1)

;; ;; set comment start (default) and padding
;; (setq comment-start "#"
;;       comment-padding " ")
;; set comment style
(setq comment-style 'indent)

(setq enable-recursive-minibuffers t)
(minibuffer-depth-indicate-mode 1)

;; ;; set current buffer's file name, and full path in title bar
;; (setq frame-title-format '("%b" (buffer-file-name ": %f")))

;; make apropos command search all symbols
(setq apropos-do-all t)

;; make apropos command list results by relevance
(setq apropos-sort-by-scores t
      apropos-documentation-sort-by-scores t)

;; display customize menu entries and tag names as symbols
(setq custom-unlispify-menu-entries nil
      custom-unlispify-tag-names nil)
(setq-default custom-unlispify-menu-entries custom-unlispify-menu-entries
              custom-unlispify-tag-names custom-unlispify-tag-names)

;; set grep command
(setq grep-command "grep -n -H -i -r -e ")

;; email settings
(setq mail-sources `((pop :server "pop.gmail.com" :port 995
                          :user ,user-mail-address
                          :connection ssl :leave t)))

;; set default browser
;;(setq browse-url-browser-function #'browse-url-default-browser)
;;(setq browse-url-generic-program "x-www-browser")
;;(setq browse-url-generic-program "w3m")
;;(setq browse-url-generic-program "mozilla")
;;(setq browse-url-browser-function #'browse-url-generic)
;;(setq browse-url-browser-function #'eww-browse-url)
;;(setq browse-url-browser-function #'w3m-browse-url)
(setq browse-url-browser-function #'browse-url-firefox
      browse-url-new-window-flag t
      browse-url-firefox-new-window-is-tab t)
;; set secondary browser
(setq browse-url-secondary-browser-function #'browse-url-default-browser)

;; when deleting an active region via single character deletion command,
;; do not save to kill ring
(setq delete-active-region t)

;; ;; select help window on creation
;; (setq help-window-select t)

;; ;; recenter window after `next-error'
;; (setq next-error-recenter '(4))
;; ;;(add-hook 'next-error-hook #'recenter :append)

;; always recenter after `occur-mode-goto-occurrence'
(defun occur-mode-goto-occurrence--recenter (&optional arg)
  "Recenter when an `occur' result is selected."
  (recenter))
;; advise `occur-mode-goto-occurrence'
(advice-add 'occur-mode-goto-occurrence :after #'occur-mode-goto-occurrence--recenter)

;; set display-time-world time zones
(setq display-time-world-list
      '(("Etc/UTC" "UTC")
        ("America/Los_Angeles" "San Diego")
        ("America/Chicago" "Minneapolis")
        ("America/New_York" "New York")
        ("Etc/GMT" "GMT")
        ("Europe/London" "London")
        ("Europe/Paris" "Paris")
        ("Asia/Tokyo" "Tokyo")))

;;------------------------------------------------------------------------------
;;; Environment: System
;;------------------------------------------------------------------------------

(init-message 2 "Environment: System")

;; reduce frequency of garbage collections
;; this is handled in the Start section so it can take effect earlier
;; (setq gc-cons-threshold (* 8 1024 1024)) ; default: 800000

;; run garbage collections when Emacs is backgrounded
(defun garbage-collect-maybe ()
  "Run `garbage-collect' if Emacs does not have focus."
  (unless (frame-focus-state)
    (garbage-collect)))
;; advise `after-focus-change-function'
(advice-add 'after-focus-change-function :after #'garbage-collect-maybe)

;; ;; run garbage collections when Emacs is idle
;; (cancel-function-timers #'garbage-collect)
;; (run-with-idle-timer 20 :refresh #'garbage-collect)

;; set max variable bindings
(setq max-specpdl-size 10000)           ; default: 1300

;; set max eval depth
(setq max-lisp-eval-depth 10000)        ; default: 600

;; set max message log size
(setq message-log-max 10000)            ; default: 1000

;; set max history list size
(setq history-length 250)               ; default: 30

;; remove duplicates from history lists
(setq history-delete-duplicates t)      ; default: nil

;; set max kill ring size
(setq kill-ring-max 100)                ; default: 60

;; set max mark ring size
(setq mark-ring-max 32)                 ; default: 16

;; change all calls to `yes-or-no-p' to `y-or-n-p'
;; (fset 'yes-or-no-p 'y-or-n-p)
(setq use-short-answers t)

;; enable upercase region (C-x C-u)
(put 'upcase-region 'disabled nil)

;; enable lowercase region (C-x C-l)
(put 'downcase-region 'disabled nil)

;; enable narrow to region
(put 'narrow-to-region 'disabled nil)

;; turn off the disabling of certain commands
(setq disabled-command-function nil)

;; turn off bidirectional paragraph formatting
(setq bidi-paragraph-direction 'left-to-right)
(setq-default bidi-paragraph-direction bidi-paragraph-direction)

;; turn off bidirectional parentheses matching
(when (version<= "27.1" emacs-version)
  (setq bidi-inhibit-bpa t))

;; turn on `so-long-mode' for files with long lines to help with performance
(when (version<= "27.1" emacs-version)
  (global-so-long-mode 1))

;; silence advice redefinition warnings
(setq ad-redefinition-action 'accept)
(setq-default ad-redefinition-action ad-redefinition-action)

;;------------------------------------------------------------------------------
;;; Environment: Files
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Files")

;;------------------------------------------------------------------------------
;;;; Environment: Files: General
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Files: General")

(use-package files
  :straight (:type built-in)
  :custom
  ;; do not make backup files
  (make-backup-files nil)
  (backup-inhibited t)
  ;; reuse existing buffers, following file links
  (find-file-existing-other-name t)
  ;; end files with a newline
  (require-final-newline t)
  ;; do not make auto-save files
  (auto-save-default nil)
  ;; disable auto-save list
  (auto-save-list-file-prefix nil)
  ;; delete auto-save files
  (delete-auto-save-files t)
  ;; enable file local variables
  (enable-local-variables t)
  ;; enable directory local variables
  (enable-dir-local-variables t)
  ;; ask user before evaluating local variables
  (enable-local-eval 'maybe)
  ;; increase maximum file size (in bytes) to open before confirmation is requested
  (large-file-warning-threshold (* 50 1000 1000))
  ;; all backup files should go into the system temp directory
  (backup-directory-alist `(("." . ,temporary-file-directory)))
  ;; ask before closing emacs
  (kill-emacs-query-functions
   (cons (lambda () (yes-or-no-p "Really kill Emacs? "))
         kill-emacs-query-functions)))

;; org-babel noweb start and end patterns are considered safe
(add-to-list 'safe-local-variable-values '(org-babel-noweb-wrap-start . "{{"))
(add-to-list 'safe-local-variable-values '(org-babel-noweb-wrap-end . "}}"))

(defun create-buffer-file-name-directory-if-needed ()
  "Create `buffer-file-name' directory if it does not already exist."
  (when (and buffer-file-name
             (not (file-exists-p (file-name-directory buffer-file-name))))
    (make-directory (file-name-directory buffer-file-name) t)))

;; create directories if needed on file save
(add-hook 'before-save-hook #'create-buffer-file-name-directory-if-needed)

;; delete trailing lines on call to `delete-trailing-whitespace'
(setq delete-trailing-lines t)

(defun delete-trailing-whitespace-if-not-read-only (&optional beg end)
  "Call `delete-trailing-whitespace' if current buffer is not read-only."
  (interactive (if (use-region-p)
                   (list (region-beginning) (region-end))
                 (list nil nil)))
  (unless buffer-read-only
    (delete-trailing-whitespace beg end)))

;; delete trailing whitespace on save
(add-hook 'before-save-hook #'delete-trailing-whitespace-if-not-read-only)

;; make shell scripts executable when saving (and reset the buffer mode)
(when (fboundp 'executable-make-buffer-file-executable-if-script-p)
  (add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p))

;; set DOS file extensions
(add-to-list 'file-coding-system-alist '("\\.ASM\\'" . dos))
(add-to-list 'file-coding-system-alist '("\\.BAT\\'" . dos))
(add-to-list 'file-coding-system-alist '("\\.DO\\'" . dos))
(add-to-list 'file-coding-system-alist '("\\.SYS\\'" . dos))

;;------------------------------------------------------------------------------
;;;; Environment: Files: Version Control
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Files: Version Control")

(use-package vc-hooks
  :straight (:type built-in)
  :custom
  ;; follow symlinks to version control files without asking or warning
  (vc-follow-symlinks t)
  ;; disable vc-git as it throws debugger errors when revert-buffer is called
  (vc-handled-backends nil))

;;------------------------------------------------------------------------------
;;;; Environment: Files: Compression
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Files: Compression")

(use-package jka-cmpr-hook
  :straight (:type built-in)
  :custom
  ;; automatically uncompress and compress gzip/zip/jar/tar files
  (auto-compression-mode t))

;;------------------------------------------------------------------------------
;;;; Environment: Files: Auto-Revert
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Files: Auto-Revert")

(use-package autorevert
  :straight (:type built-in)
  :custom
  ;; turn on auto buffer revert mode
  (global-auto-revert-mode 1))

;;------------------------------------------------------------------------------
;;;; Environment: Files: Bookmark
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Files: Bookmark")

(use-package bookmark
  :straight (:type built-in)
  :custom
  ;; auto-save bookmarks every time they change
  (bookmark-save-flag 1))

;;------------------------------------------------------------------------------
;;;; Environment: Files: Desktop
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Files: Desktop")

(use-package desktop
  :straight (:type built-in)
  :custom
  (desktop-dirname user-emacs-directory)
  (desktop-save 'ask-if-new)
  (desktop-load-locked-desktop 'check-pid)
  (desktop-restore-eager 0) ; do not restore any buffers until all modules and modes have loaded
  (desktop-buffers-not-to-save (concat "\\("
                                       "\\.log\\|(ftp)\\|^tags\\|^TAGS"
                                       "\\.diary\\|\\diary\\|\\.bbdb"
                                       "\\)$"))
  :init
  ;; desktop history
  ;; (when-lock-file-acquired (expand-file-name "emacs-desktop-history-lock-file"
  ;;                                            temporary-file-directory)
  ;;   (desktop-save-mode 1)
  ;;   (add-to-list 'desktop-globals-to-save 'file-name-history t)
  ;;   (add-to-list 'desktop-modes-not-to-save 'Info-mode t)
  ;;   (add-to-list 'desktop-modes-not-to-save 'info-lookup-mode t)
  ;;   ;;(add-to-list 'desktop-modes-not-to-save 'dired-mode t)
  ;;   ;;(add-to-list 'desktop-modes-not-to-save 'fundamental-mode t)
  ;;   ))
  (desktop-save-mode 1)
  (add-to-list 'desktop-globals-to-save 'file-name-history t)
  (add-to-list 'desktop-modes-not-to-save 'Info-mode t)
  (add-to-list 'desktop-modes-not-to-save 'info-lookup-mode t))

;;------------------------------------------------------------------------------
;;;; Environment: Files: Minibuffer History
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Files: Minibuffer History")

(use-package savehist
  :straight (:type built-in)
  :custom
  (savehist-save-minibuffer-history 1)
  (savehist-additional-variables '(search-ring regexp-search-ring))
  :init
  ;; save minibuffer history
  (when (fboundp 'savehist-mode)
    (when-lock-file-acquired (expand-file-name "emacs-minibuffer-history-lock-file"
                                               temporary-file-directory)
      (savehist-mode 1))))

;;------------------------------------------------------------------------------
;;; Environment: Buffers and Windows
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Buffers and Windows")

;; allow undo/redo of window settings
(when (fboundp 'winner-mode)
  (winner-mode 1))

;; ;; turn on imenu bar index
;; (imenu-add-menubar-index)

;; delay buffer fontification to increase scroll speed
(setq jit-lock-defer-time 0.05)

;; preserve buffer point for each window
(setq switch-to-buffer-preserve-window-point t)

;; smoother mouse movement
(setq mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control))))

;; increase maximum mini-window height
(setq max-mini-window-height 0.50)

;;------------------------------------------------------------------------------
;;; Environment: Tabs
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Tabs")

;; regular tab width
(defvar custom-tab-width 4
  "Regular tab width.")

;; short tab width used for certain modes
(defvar custom-short-tab-width 2
  "Short tab width used for certain modes.")

;; set tabs
(defun set-tabs (enable &optional width)
  "Set default tab settings.

If ENABLED is non-nil, enable TAB characters.
Otherwise, disable TAB characters.

If WIDTH is given, it is used to set the TAB width.
Otherwise, `custom-tab-width' is used."
  (let ((width (or width custom-tab-width)))
    (setq indent-tabs-mode enable       ; whether to insert tab characters
          tab-width width               ; set tab width
          standard-indent width         ; set margin-changing functions indent
          tab-always-indent 'complete ; tab key will try to auto-complete after auto-tabbing line
          tab-stop-list (number-sequence width 180 width) ; set tab stops
          backward-delete-char-untabify-method nil))) ; backspace will just delete one character
          ;; backward-delete-char-untabify-method 'untabify))) ; backspace will turn a tab to many spaces, then delete one space
          ;; backward-delete-char-untabify-method 'hungry))) ; backspace will delete all whitespace, both tabs and spaces

;; disable tabs
(defun disable-tabs (&optional width)
  "Disable TAB character usage, using WIDTH if given."
  (set-tabs nil width))

;; enable tabs
(defun enable-tabs (&optional width)
  "Enable TAB character usage, using WIDTH if given."
  (set-tabs t width))

;; enable tabs 4
(defun enable-tabs-4 ()
  "Enable TAB character usage with a width of 4 spaces."
  (set-tabs t 4))

;; enable tabs 8
(defun enable-tabs-8 ()
  "Enable TAB character usage with a width of 8 spaces."
  (set-tabs t 8))

;; ;;------------------------------------------------------------------------------
;; ;;; General Settings: Mode Line
;; ;;------------------------------------------------------------------------------

;; (init-message 2 "Environment: Mode Line")

;; ;; turn on date and time in mode line
;; (setq display-time-day-and-date t)
;; (if (< emacs-major-version 26)
;;     (setq display-time-string-forms
;;           '(" " (format-time-string "%a %Y-%m-%d %H:%M") " "))
;;   (setq display-time-string-forms
;;         '(" " (format-time-string "%a %Y-%m-%d %H:%M" nil (current-time-zone)) " ")))
;; (display-time-mode 1)
;; ;; ;; right-align date and time
;; ;; (display-time-mode 0)
;; ;; (setq global-mode-string (remove 'display-time-string global-mode-string))
;; ;; (setq mode-line-end-spaces
;; ;;       (list (propertize " " 'display '(space :align-to (- right 12)))
;; ;;             'display-time-string))

;; ;; show line number in mode line
;; (line-number-mode 1)

;; ;; show column number in mode line
;; (column-number-mode 1)

;; ;; set `mode-line-format'
;; (setq mode-line-format
;;       '("%e"
;;         mode-line-front-space
;;         #("-" 0 1 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;         mode-line-mule-info             ; coding system, eol style, read-only status
;;         mode-line-modified              ; buffer modified status
;;         mode-line-frame-identification  ; frame name
;;         mode-line-buffer-identification ; buffer name
;;         #("  " 0 2 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;         mode-line-position              ; position in buffer as a percentage, line number, column number
;;         ;; #(" w:" 0 3 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;         ;; (count-words-paragraph count-words-paragraph) ; words in current paragraph
;;         mode-line-projectile            ; project information
;;         (vc-mode vc-mode)               ; version control information
;;         #("  " 0 2 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;         mode-line-modes                 ; major and minor modes
;;         ;; (which-func-mode
;;         ;;  ("" which-func-format
;;         ;;   #("--" 0 2 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))))
;;         ;; (global-mode-string
;;         ;;  (#("--" 0 2 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;         ;;   global-mode-string))
;;         (global-mode-string
;;          (#(" " 0 1 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;           global-mode-string))          ; day, date, time
;;         #("-%-" 0 3 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;         mode-line-end-spaces))
;; (set-default 'mode-line-format mode-line-format)

;; (defvar mode-line-projectile
;;   '(:eval (when (ignore-errors (projectile-project-root))
;;             (concat " " (projectile-project-name))))
;;   "Mode line format for `projectile'.")

;; ;; set mode line for `projectile-mode'
;; (put 'mode-line-projectile 'risky-local-variable t)

;; ;; strip backend name from the version control status information
;; (defvar mode-line-vc-mode
;;   '(" " (:eval (let ((backend (symbol-name (vc-backend (or buffer-file-name (buffer-name))))))
;;                  (substring vc-mode (+ (length backend) 2)))))
;;   "Mode line format for `vc-mode'.")

;; ;; set mode line for `vc-mode'
;; (put 'mode-line-vc-mode 'risky-local-variable t)

;; ;; set `mode-line-modes'
;; (setq mode-line-modes
;;       '((#("%[(" 0 3 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;;          (:propertize
;;           ("" mode-name)
;;           help-echo "mouse-1: major mode, mouse-2: major mode help, mouse-3: toggle minor modes"
;;           mouse-face mode-line-highlight local-map
;;           (keymap
;;            (mode-line keymap
;;                       (down-mouse-3 . mode-line-mode-menu-1)
;;                       (mouse-2 . describe-mode)
;;                       (down-mouse-1 . mouse-major-mode-menu))))
;;          ("" mode-line-process)
;;          (:propertize
;;           ("" minor-mode-alist)
;;           mouse-face mode-line-highlight
;;           help-echo "mouse-2: minor mode help, mouse-3: toggle minor modes"
;;           local-map
;;           (keymap
;;            (header-line keymap
;;                         (down-mouse-3 . mode-line-mode-menu-1))
;;            (mode-line keymap
;;                       (down-mouse-3 . mode-line-mode-menu-1)
;;                       (mouse-2 . mode-line-minor-mode-help))))
;;          #("%n" 0 2
;;            (help-echo "mouse-2: widen" mouse-face mode-line-highlight local-map
;;                       (keymap
;;                        (mode-line keymap
;;                                   (mouse-2 . mode-line-widen)))))
;;          #(")%]" 0 3
;;            (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0")))))
;; (set-default 'mode-line-modes mode-line-modes)

;; ;; (setcar (last (car mode-line-modes))
;; ;;         '#(")%]" 0 3 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0")))

;; ;; ;;------------------------------------------------------------------------------
;; ;; ;;;; Add Count Words Paragraph To Mode Line
;; ;; ;;------------------------------------------------------------------------------

;; ;; (init-message 3 "Count Words")

;; ;; ;; store count in variable
;; ;; (defvar count-words-paragraph nil
;; ;;   "*Current value returned from `count-words-paragraph' function.")

;; ;; ;; only setup timer once
;; ;; (unless count-words-paragraph
;; ;;   ;; seed count-words-paragraph
;; ;;   (setq count-words-paragraph "0  ")
;; ;;   ;; create timer to keep count-words-paragraph updated
;; ;;   (run-with-idle-timer 0.5 :refresh
;; ;;                        (lambda ()
;; ;;                          (let ((count (number-to-string (count-words-paragraph))))
;; ;;                            (while (< (length count) 3)
;; ;;                              (setq count (concat count " ")))
;; ;;                            (setq count-words-paragraph count)))))

;; ;; ;; add count words paragraph the mode line
;; ;; (unless (and (listp (nth 8 mode-line-format))
;; ;;              (memq 'count-words-paragraph (nth 8 mode-line-format)))
;; ;;   (push (cons '#(" w:" 0 3 (help-echo "mouse-1: select (drag to resize), mouse-2 = C-x 1, mouse-3 = C-x 0"))
;; ;;               '(count-words-paragraph))
;; ;;         (nthcdr 8 mode-line-format)))

;; ;; ;; set mode line
;; ;; (set-default 'mode-line-format mode-line-format)

;;------------------------------------------------------------------------------
;;; Environment: Terminals
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Terminals")

;;------------------------------------------------------------------------------
;;;; Environment: Terminals: Configuration
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Terminals: Configuration")

(setq custom-terminal-history-size 10000
      custom-terminal-maximum-lines 10000)

;;------------------------------------------------------------------------------
;;;; Environment: Terminals: eshell
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Terminals: eshell")

(defun custom-eshell-first-time-mode-hook ()
  ;; save command history
  (add-hook 'eshell-pre-command-hook #'eshell-save-some-history)

  ;; truncate history for performance
  (add-to-list 'eshell-output-filter-functions #'eshell-truncate-buffer))

(use-package eshell
  :straight (:type built-in)
  :hook (eshell-first-time-mode . custom-eshell-first-time-mode-hook)
  ;; :bind (:map eshell-mode-map
  ;;             ([remap beginning-of-line] . eshell-bol)
  ;;             ([remap move-beginning-of-line] . eshell-bol)
  ;;             ("C-r" . counsel-esh-history))
  :custom
  (eshell-history-size custom-terminal-history-size)
  (eshell-buffer-maximum-lines custom-terminal-maximum-lines)
  (eshell-hist-ignoredups t)
  (eshell-scroll-to-bottom-on-input t)
  :config
  (setenv "PAGER" "cat")                ; less does not work well inside Emacs

  (with-eval-after-load "esh-opt"
    (setq eshell-destroy-buffer-when-process-dies t
          eshell-visual-commands '("htop" "ssh" "vim" "zsh"))))

(use-package eshell-git-prompt
  :straight t
  :after (eshell)
  :config
  (eshell-git-prompt-use-theme 'powerline))

;;------------------------------------------------------------------------------
;;;; Environment: Terminals: term-bash
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Terminals: term-bash")

(defun term-bash ()
  "Start a BASH terminal-emulator in a new buffer."
  (interactive)
  (term "/bin/bash"))

;;------------------------------------------------------------------------------
;;;; Environment: Terminals: term-zsh
;;------------------------------------------------------------------------------

(init-message 3 "Environment: Terminals: term-zsh")

(defun term-zsh ()
  "Start a ZSH terminal-emulator in a new buffer."
  (interactive)
  (term "/bin/zsh"))

;; ;;------------------------------------------------------------------------------
;; ;;;; Environment: Terminals: vterm
;; ;;------------------------------------------------------------------------------

;; (init-message 3 "Environment: Terminals: vterm")

;; (use-package vterm
;;   :straight t
;;   :commands (vterm)
;;   :custom
;;   (vterm-max-scrollback custom-terminal-maximum-lines)
;;   (vterm-kill-buffer-on-exit nil))

;;------------------------------------------------------------------------------
;;; Environment: Bookmarks
;;------------------------------------------------------------------------------

(init-message 2 "Environment: Bookmarks")

;;;; Emacs Bookmark Format Version 1;;;; -*- coding: utf-8-emacs; mode: lisp-data -*-
;;; -*- End Of Bookmark File Format Version Stamp -*-
(
 ;; Gopher: Search
 ("Gopherpedia" (location . "gopher://gopherpedia.com/1") (handler . elpher-bookmark-jump))
 ;; Gopher: News
 ("Gopher Project" (location . "gopher://gopherproject.org/1") (handler . elpher-bookmark-jump))
 ("Hacker News" (location . "gopher://hngopher.com/1") (handler . elpher-bookmark-jump))
 ("Weather Forecasts" (location . "gopher://gopher.floodgap.com/1/groundhog") (handler . elpher-bookmark-jump))
 ;; Gopher: Repositories
 ("Floodgap Systems" (location . "gopher://gopher.floodgap.com/1") (handler . elpher-bookmark-jump))
 ("Quux" (location . "gopher://quux.org/1") (handler . elpher-bookmark-jump))
 ("TEXTFILES" (location . "gopher://0x1bi.net/1/textfiles") (handler . elpher-bookmark-jump))
 ;; Gopher: Popular
 ("SDF Public Access UNIX System" (location . "gopher://sdf.org/1") (handler . elpher-bookmark-jump))
 ("Gopher Club" (location . "gopher://gopher.club/1/phlogs/") (handler . elpher-bookmark-jump))
 ("Zaibatsu" (location . "gopher://zaibatsu.circumlunar.space/1") (handler . elpher-bookmark-jump))
 ("Baud Baby" (location . "gopher://baud.baby/1") (handler . elpher-bookmark-jump))
 ("EyeBlea" (location . "gopher://eyeblea.ch/1") (handler . elpher-bookmark-jump))
 ("Final Zone" (location . "gopher://finalzone.ddns.net/1") (handler . elpher-bookmark-jump))
 ("20 For Beers" (location . "gopher://20ForBeers.com/1") (handler . elpher-bookmark-jump))
 ("Bitreich" (location . "gopher://bitreich.org/1") (handler . elpher-bookmark-jump))
 ;; Gopher: Esoteric
 ("Gopherus Author" (location . "gopher://gopher.viste.fr/1") (handler . elpher-bookmark-jump))
 ("Elpher" (location . "gopher://thelambdalab.xyz/1/projects/elpher/") (handler . elpher-bookmark-jump))
 ("Klondike Solitaire" (location . "gopher://worldofsolitaire.com/") (handler . elpher-bookmark-jump))
 ("Plan9 Project (jrsharp, L29)" (location . "gopher://frstcomputer.com/") (handler . elpher-bookmark-jump))
 ;; Gopher: Personal
 ("Nullman" (location . "gopher://nullman.net/1") (handler . elpher-bookmark-jump))
 ("kurisu (L29)" (location . "gopher://eyeblea.ch/1/~kurisu") (handler . elpher-bookmark-jump))
 ;;("fluxcap (L29) ???" (location . "gopher://fluxcap.synchro.net:5070/1") (handler . elpher-bookmark-jump))
 ("nkeck72 (L29)" (location . "gopher://gopher.nkeck72.xyz/1") (handler . elpher-bookmark-jump))
 ("MeatLoTioN (Lunduke)" (location . "gopher://gopher.erb.pw/1") (handler . elpher-bookmark-jump))
 ;;("fputs (Lunduke) ???" (location . "gopher://fputs.com/1") (handler . elpher-bookmark-jump))
 ("Nepsis (Lunduke)" (location . "gopher://bpfh.space") (handler . elpher-bookmark-jump))

 ;; Gemini
 ("Haiku" (location . "gemini://lofi.haiku-os.org/") (handler . elpher-bookmark-jump))
 ("Project Gemini" (location . "gemini://gemini.circumlunar.space/") (handler . elpher-bookmark-jump))
 ("Planet m68k" (location . "gemini://m68k.info/") (handler . elpher-bookmark-jump))
 ;;("System Crafters" (location . "gemini://systemcrafters.cc") (handler . elpher-bookmark-jump))
 ;;("Writing a Gemini Server" (location . "gemini://bcalderon.io/writing-a-gemini-server") (handler . elpher-bookmark-jump))
 ("Zerock (L29)" (location . "gemini://retro.inetcc.org/~zerock/") (handler . elpher-bookmark-jump))
 )

;;==============================================================================
;;; Key Bindings
;;==============================================================================

(init-message 1 "Key Bindings")

;;------------------------------------------------------------------------------
;;; Key Bindings: System Keys
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: System Keys")

(defun custom-key-bindings-system-keys ()
  "Set custom system key bindings."
  (cond
   ;; most of these are already set correctly for MacOS
   (window-system-mac
    ;; new buffer
    (when (fboundp 'new-scratch)
      (bind-keys* ("s-t" . new-scratch))))
   ((or window-system-linux window-system-windows)
    ;; cut
    (if (fboundp 'kill-region-or-word)
        (bind-keys* ("s-x" . kill-region-or-word))
      (bind-keys* ("s-x" . kill-region)))
    ;; copy
    (bind-keys* ("s-c" . kill-ring-save))
    ;; paste
    (bind-keys* ("s-v" . yank))
    ;; undo
    (bind-keys* ("s-z" . undo))
    ;; redo
    (when (fboundp 'undo-tree-redo)
      (bind-keys* ("s-y" . undo-tree-redo)))
    ;; select all
    (bind-keys* ("s-a" . mark-whole-buffer))
    ;; find
    (bind-keys* ("s-f" . isearch-forward))
    ;; find next
    (bind-keys* ("s-g" . isearch-forward))
    ;; find previous
    (bind-keys* ("s-r" . isearch-backward))
    ;; open file
    (bind-keys* ("s-o" . find-file))
    ;; print
    (bind-keys* ("s-p" . print-buffer))
    ;; save buffer
    (if (fboundp 'save-buffer-always)
        (bind-keys* ("s-s" . save-buffer-always))
      (bind-keys* ("s-s" . save-buffer)))
    ;; new buffer
    (when (fboundp 'new-scratch)
      (bind-keys* ("s-t" . new-scratch)))
    ;; close buffer
    (bind-keys* ("s-w" . kill-current-buffer))
    ;; set mark
    (bind-keys* ("s-SPC" . set-mark-command)))))

(init-message 3 "custom-key-bindings-system-keys")
(custom-key-bindings-system-keys)

;;------------------------------------------------------------------------------
;;; Key Bindings: Function Keys
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: Function Keys")

(defun custom-key-bindings-function-keys ()
  "Set custom function key bindings."
  (when (fboundp 'help-for-help)
    (bind-keys ("<f1>" . help-for-help)))
  (when (fboundp 'help-command)
    (bind-keys ("S-<f1>" . help-command)))
  (when (fboundp 'kmacro-start-macro-or-insert-counter)
    (bind-keys ("<f3>" . kmacro-start-macro-or-insert-counter))) ; default: `kmacro-start-macro-or-insert-counter'
  (when (fboundp 'kmacro-end-or-call-macro)
    (bind-keys ("<f4>" . kmacro-end-or-call-macro))) ; default: `kmacro-end-or-call-macro'
  (when (fboundp 'define-word-at-point-after-spell-check)
    (bind-keys ("<f5>" . define-word-at-point-after-spell-check)))
  (when (fboundp 'define-word-after-spell-check)
    (bind-keys ("S-<f5>" . define-word-after-spell-check)))
  ;; (when (fboundp 'ispell-word)
  ;;   (bind-keys ("<f6>" . ispell-word)))
  ;; (when (fboundp 'ispell)
  ;;   (bind-keys ("<S-f6>" . ispell)))
  (when (fboundp 'web-query-symbol-by-mode-at-point)
    (bind-keys ("<f7>" . web-query-symbol-by-mode-at-point)))
  ;; (when (fboundp 'web-query-word-at-point)
  ;;   (bind-keys ("<f7>" . web-query-word-at-point)))
  (when (fboundp 'web-query)
    (bind-keys ("<S-f7>" . web-query)))
  (when (fboundp 'neotree)
    (bind-keys ("<f8>" . neotree)))
  (when (fboundp 'cycle-buffer-backward)
    (bind-keys ("<f9>" . cycle-buffer-backward)))
  (when (fboundp 'cycle-buffer-backward-permissive)
    (bind-keys ("S-<f9>" . cycle-buffer-backward-permissive)))
  (when (fboundp 'cycle-buffer)
    (bind-keys ("<f10>" . cycle-buffer))) ; default: `tmm-menubar'
  (when (fboundp 'cycle-buffer-permissive)
    (bind-keys ("S-<f10>" . cycle-buffer-permissive)))
  ;; normally f11 and f12 are left for screen to use
  (unbind-key "<f11>")                  ; default: `toggle-frame-fullscreen'
  (unbind-key "<f12>"))

(init-message 3 "custom-key-bindings-function-keys")
(custom-key-bindings-function-keys)

;;------------------------------------------------------------------------------
;;; Key Bindings: Extended Keys
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: Extended Keys")

(defun custom-key-bindings-extended-keys ()
  "Set custom extended key bindings."

  ;; ;; turn off insert key
  ;; (unbind-key "<insert>")               ; default: `overwrite-mode'

  ;; ;; window move
  ;; (when (fboundp 'windmove-left)
  ;;   ;; shift arrow keys
  ;;   (bind-keys ("S-<left>" . windmove-left)
  ;;              ("S-<right>" . windmove-right)
  ;;              ("S-<up>" . windmove-up)
  ;;              ("S-<down>" . windmove-down)))

  ;; beginning of line
  (bind-keys* ("<home>" . beginning-of-line)) ; default: `move-beginning-of-line'

  ;; end of line
  (bind-keys* ("<end>" . end-of-line)) ; default: `move-end-of-line'

  ;; beginning of buffer
  (bind-keys* ("C-<home>" . beginning-of-buffer))

  ;; end of buffer
  (bind-keys* ("C-<end>" . end-of-buffer)))

(init-message 3 "custom-key-bindings-extended-keys")
(custom-key-bindings-extended-keys)

;;------------------------------------------------------------------------------
;;; Key Bindings: Movement Keys
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: Movement Keys")

(defun custom-key-bindings-movement-keys (&optional keymap)
  "Set custom movement key bindings on KEYMAP.
KEYMAP defaults to `override-global-map'."
  (let ((keymap (or keymap override-global-map)))
    ;; cursor movement keys (short, single character)
    (bind-keys* :map keymap
                ;;("<up>" . previous-line) ; default: `previous-line'
                ;;("<down>" . next-line)   ; default: `next-line'
                ;;("<left>" . left-char)   ; default: `left-char'
                ;;("<right>" . right-char) ; default: `right-char'
                ("M-i" . previous-line)  ; default: `tab-to-tab-stop' ("C-p")
                ("M-k" . next-line)      ; default: `kill-sentence' ("C-n")
                ("M-j" . left-char)      ; default: `indent-new-comment-line' ("C-f")
                ("M-l" . right-char))    ; default: `downcase-word' ("C-b")

    ;; cursor movement keys (medium, multi-character)
    (bind-keys* :map keymap
                ("C-<up>" . backward-paragraph) ; default: `backward-paragraph'
                ("C-<down>" . forward-paragraph) ; default: `forward-paragraph'
                ("C-<left>" . left-word)         ; default: `left-word'
                ("C-<right>" . right-word)       ; default: `right-word'
                ("C-M-u" . backward-paragraph) ; default: `backward-up-list'
                ("C-M-o" . forward-paragraph)  ; default: `split-line'
                ("M-u" . left-word)            ; default: `upcase-word'
                ("M-o" . right-word))          ; default: `facemenu-keymap'

    ;; cursor movement keys (long, multi-character)
    (bind-keys* :map keymap
                ("C-M-<up>" . scroll-down-command) ; default: `scroll-down-command'
                ("C-M-<down>" . scroll-up-command) ; default: `scroll-up-command'
                ("C-M-<left>" . move-beginning-of-line) ; default: `move-beginning-of-line'
                ("C-M-<right>" . move-end-of-line) ; default: `move-end-of-line'
                ("C-M-i" . scroll-down-command) ; default: `completion-at-point' ("<prior>")
                ("C-M-k" . scroll-up-command)   ; default: `kill-whole-line' ("<next>")
                ("C-M-j" . move-beginning-of-line) ; default: `default-indent-new-line' ("C-a")
                ("C-M-l" . move-end-of-line)) ; default: `reposition-window' ("C-e")

    ;; window movement keys
    (bind-keys* :map keymap
                ("C-x <up>" . windmove-up)
                ("C-x <down>" . windmove-down)
                ("C-x <left>" . windmove-left) ; default: `previous-buffer'
                ("C-x <right>" . windmove-right) ; default: `next-buffer'
                ("C-x C-<up>" . windmove-up)
                ("C-x C-<down>" . windmove-down)
                ("C-x C-<left>" . windmove-left) ; default: `previous-buffer'
                ("C-x C-<right>" . windmove-right) ; default: `next-buffer'
                ("C-x M-i" . windmove-up)
                ("C-x M-k" . windmove-down)
                ("C-x M-j" . windmove-left)
                ("C-x M-l" . windmove-right))

    ;; window resize keys
    (when (fboundp 'window-shrink-vertically)
      (bind-keys :map keymap ("C-M-S-i" . window-shrink-vertically)))
    (when (fboundp 'window-enlarge-vertically)
      (bind-keys :map keymap ("C-M-S-k" . window-enlarge-vertically)))
    (when (fboundp 'window-shrink-horizontally)
      (bind-keys :map keymap ("C-M-S-j" . window-shrink-horizontally)))
    (when (fboundp 'window-enlarge-horizontally)
      (bind-keys :map keymap ("C-M-S-l" . window-enlarge-horizontally)))

    ;; move line up
    (when (fboundp 'move-line-up)
      (bind-keys* :map keymap
                  ("M-[" . move-line-up)))

    ;; move line down
    (when (fboundp 'move-line-down)
      (bind-keys* :map keymap
                  ("M-]" . move-line-down)))))

(init-message 3 "custom-key-bindings-movement-keys")
(custom-key-bindings-movement-keys)

;;------------------------------------------------------------------------------
;;; Key Bindings: Standard Keys
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: Standard Keys")

(defun custom-key-bindings-standard-keys ()
  "Set custom standard key bindings."

  ;; newline
  (when (fboundp 'insert-line-below)
    (bind-keys ("C-M-<return>" . insert-line-below)))

  ;; set mark
  (bind-keys ("C-SPC" . set-mark-command)) ; default: `set-mark-command'

  ;; set rectangle mark
  (when (fboundp 'cua-set-rectangle-mark)
    (bind-keys ("C-x rm" . cua-set-rectangle-mark)
               ("C-M-SPC" . cua-set-rectangle-mark))) ; default: `mark-sexp'

  ;; yank as rectangle
  (when (fboundp 'yank-as-rectangle)
    (bind-keys ("C-x r C-y" . yank-as-rectangle)))
    ;; (bind-keys ("C-x r C-y" . yank-as-rectangle)
    ;;            ("C-M-y" . yank-as-rectangle)))

  ;; just one space
  (when (fboundp 'just-one-space)
    (bind-keys ("C-x C-SPC" . just-one-space))) ; default: `pop-global-mark'

  ;; help
  (bind-keys ("C-x C-h" . help-command)
             ("C-x ?" . help))

  ;; describe function or variable at point
  (when (fboundp 'describe-function-or-variable-at-point)
    (bind-keys ("C-h z" . describe-function-or-variable-at-point)
               ("C-x C-h z" . describe-function-or-variable-at-point)))

  ;; shortdoc
  (when (fboundp 'shortdoc-display-group)
    (bind-keys ("C-h D" . shortdoc-display-group)
               ("C-x C-h D" . shortdoc-display-group)))

  ;; ;; smart M-x
  ;; (when (fboundp 'smex)
  ;;   (bind-keys ("M-x" . smex))) ; default: `execute-extended-command'
  ;; (when (fboundp 'smex-major-mode-commands)
  ;;   (bind-keys ("M-X" . smex-major-mode-commands))) ; default: `execute-extended-command'

  ;; ;; alternates for M-x
  ;; (bind-keys ("C-x C-m" . execute-extended-command)) ; default: Prefix Command

  ;; menubar
  (when (fboundp 'tmm-menubar)
    (bind-keys ("C-M-z" . tmm-menubar)))

  ;; force save maybe
  (when (fboundp 'save-buffer-always-maybe)
    (bind-keys ("C-x C-s" . save-buffer-always-maybe))) ; default: `save-buffer'

  ;; ;; bs-show (buffer select)
  ;; (when (fboundp 'bs-show)
  ;;   (bind-keys ("C-x C-b" . bs-show))) ; default: `list-buffers'

  ;; cycle to previous buffer
  (bind-keys ("C-`" . mode-line-other-buffer))

  ;; bury buffer
  (bind-keys ("C-c y" . bury-buffer))
  (bind-keys ("C-c C-y" . bury-buffer)) ; default: `org-evaluate-time-range'

  ;; revert buffer
  (bind-keys ("C-c r" . revert-buffer))
  (bind-keys ("C-c C-r" . revert-buffer))

  ;; diff buffer
  (bind-keys ("C-c d" . diff-current-buffer))

  ;; mark full word
  (when (fboundp 'mark-full-word)
    (bind-keys ("M-@" . mark-full-word))) ; default: `mark-word'

  ;; ;; expand region
  ;; (when (fboundp 'er/expand-region)
  ;;   (bind-keys ("C-=" . er/expand-region)   ; default: `count-lines-region'
  ;;              ("C-+" . er/contract-region) ; default: `count-lines-region'
  ;;              ("C-M-SPC" . er/expand-region) ; default: `mark-sexp'
  ;;              ("C-M-S-SPC" . er/contract-region)))

  ;; regexp replace
  (bind-keys ("M-&" . replace-regexp)) ; default: `async-shell-command'

  ;; insert menu prompt
  (when (fboundp 'insert-menu-prompt)
    (bind-keys ("C-x i" . insert-menu-prompt))) ; default: `insert-file'

  ;; split windows
  (bind-keys ("M-1" . delete-other-windows)) ; default: `digit-argument'
  (bind-keys ("M-2" . split-window-horizontally)) ; default: `digit-argument'
  (bind-keys ("M-3" . split-window-vertically)) ; default: `digit-argument'
  (unbind-key "M-4")                          ; default: `digit-argument'
  (if (fboundp 'swap-windows)
      (bind-keys ("M-4" . swap-windows))) ; default: `digit-argument'
  (unbind-key "M-5")                    ; default: `digit-argument'
  (when (fboundp 'toggle-window-split)
    (bind-keys ("M-5" . toggle-window-split))) ; default: `split-line'
  (bind-keys ("M-6" . switch-to-buffer-other-window)) ; default: `digit-argument'
  (unbind-key "M-7")                    ; default: `digit-argument'
  (unbind-key "M-8")                    ; default: `digit-argument'
  (unbind-key "M-8")                    ; default: `digit-argument'
  (when (fboundp 'kill-other-window-buffer)
    (bind-keys ("M-8" . kill-other-window-buffer))) ; default: `digit-argument'
  (unbind-key "M-9")                    ; default: `digit-argument'
  (when (fboundp 'kill-other-window-buffer-and-delete-window)
    (bind-keys ("M-9" . kill-other-window-buffer-and-delete-window))) ; default: `digit-argument'
  (bind-keys ("M-0" . delete-window)) ; default: `digit-argument'

  ;; switch windows
  ;; (bind-keys ("M-o" . other-window)) ; default: `facemenu-keymap'
  (when (fboundp 'ace-window)
    (bind-keys ("C-x o" . ace-window))) ; default: `other-window'

  ;; swap windows
  (when (fboundp 'swap-windows)
    (bind-keys ("C-x C-o" . swap-windows))) ; default: `delete-blank-lines'

  ;; toggle window split
  (when (fboundp 'toggle-window-split)
    (bind-keys ("C-x M-o" . toggle-window-split))) ; default: `split-line'

  ;; toggle truncate lines
  (bind-keys ("C-$" . toggle-truncate-lines))

  ;; kill current buffer
  (bind-keys ("C-x C-k" . kill-current-buffer)) ; default: `kmacro-keymap'

  ;; delete to end of line
  (when (fboundp 'delete-to-end-of-line)
    (bind-keys ("C-k" . delete-to-end-of-line))) ; default: `kill-line'

  ;; delete line
  (when (fboundp 'delete-line)
    (bind-keys ("C-M-d" . delete-line))) ; default: `down-list'

  ;; delete word
  (when (fboundp 'delete-word)
    (bind-keys ("M-d" . delete-word))) ; default: `kill-word'
  (when (fboundp 'backward-delete-word)
    (bind-keys ("C-<backspace>" . backward-delete-word))) ; default: `backward-kill-word'

  ;; copy line
  (when (fboundp 'copy-line)
    (bind-keys ("C-x C-y" . copy-line)))

  ;; cut line
  (when (fboundp 'cut-line)
    (bind-keys ("C-x M-y" . cut-line)))

  ;; duplicate line
  (when (fboundp 'duplicate-line)
    (bind-keys ("C-x C-d" . duplicate-line))) ; default: `list-directory'

  ;; ;; kill ring browser
  ;; (when (fboundp 'browse-kill-ring)
  ;;   (bind-keys ("C-M-y" . browse-kill-ring)))

  ;; join line
  ;;(bind-keys ("C-M-j" . join-line))  ; default: `comment-indent-new-line'
  (bind-keys ("C-x C-j" . join-line))

  ;; join next line
  (when (fboundp 'join-next-line)
    ;;(bind-keys ("M-j" . join-next-line))) ; default: `indent-new-comment-line'
    (bind-keys ("C-x j" . join-next-line))) ; also: `dired-jump'

  ;; enhanced titleize-word
  (when (fboundp 'titleize-word-enhanced)
    (bind-keys ("M-t" . titleize-word-enhanced)) ; default: `transpose-words'
    (bind-keys ("M-T" . titleize-line-or-region)))

  ;; describe text properties
  (bind-keys ("C-x M-p" . describe-text-properties))

  ;; undo
  (bind-keys ("C-_" . undo))

  ;; undo-redo
  (bind-keys ("M-_" . undo-redo))

  ;; goto last change (undo)
  (when (fboundp 'goto-last-change)
    (bind-keys ("C-x C-_" . goto-last-change)))

  ;; jump to matching parenthesis
  (when (fboundp 'match-paren)
    (bind-keys ("M-(" . match-paren)))

  ;; evaluate current sexp
  (bind-keys ("C-x C-e" . eval-current-sexp)) ; default: `eval-last-sexp'
  ;; \C-\M-x defaults to `eval-defun'

  ;; evaluate all sexp's in current buffer
  (when (fboundp 'eval-sexp-buffer)
    (bind-keys ("C-x M-e" . eval-sexp-buffer)))

  ;; ;; indent current sexp
  ;; (bind-keys ("C-M-q" . indent-current-sexp)) ; default: `indent-sexp' or `indent-pp-sexp'

  ;; ;; indent all sexp's in current buffer
  ;; (when (fboundp 'indent-sexp-buffer)
  ;;   (bind-keys ("C-x M-q" . indent-sexp-buffer)))

  ;; comment and uncomment sexp's
  (when (fboundp 'comment-or-uncomment-sexp)
    (define-key emacs-lisp-mode-map (kbd "C-M-;") 'comment-or-uncomment-sexp))

  ;; indent region or thing
  (when (fboundp 'indent-region-or-thing)
    (bind-keys ("C-M-\\" . indent-region-or-thing))) ; default: `indent-region'

  ;; append equal characters up to column 80
  (when (fboundp 'append-equal-to-column-80)
    (bind-keys ("C-c =" . append-equal-to-column-80)))

  ;; append dash characters up to column 80
  (when (fboundp 'append-dash-to-column-80)
    (bind-keys ("C-c -" . append-dash-to-column-80)))

  ;; append asterisk characters up to column 80
  (when (fboundp 'append-asterisk-to-column-80)
    (bind-keys ("C-c 8" . append-asterisk-to-column-80))
    (bind-keys ("C-c *" . append-asterisk-to-column-80)))

  ;; add lisp comment block (equal)
  (when (fboundp 'insert-lisp-comment-block-equal)
    (bind-keys ("C-c C-=" . insert-lisp-comment-block-equal)))

  ;; add lisp comment block (dash)
  (when (fboundp 'insert-lisp-comment-block-dash)
    (bind-keys ("C-c C--" . insert-lisp-comment-block-dash)))

  ;; align commands
  (bind-keys ("C-c |" . align-current))

  ;; ;; hippie expand
  ;; (when (fboundp 'hippie-expand)
  ;;   (bind-keys ("M-/" . hippie-expand))) ; default: `dabbrev-expand'

  ;; ;; complete tag
  ;; (when (fboundp 'complete-tag)
  ;;   (bind-keys ("C-M-/" . complete-tag)))

  ;; unset set-fill-column
  (unbind-key "C-x f")                  ; default: `set-fill-column'

  ;; compare windows
  (when (fboundp 'compare-windows)
    (bind-keys ("C-c C-w" . compare-windows)))

  ;; unfill paragraph
  (when (fboundp 'unfill-paragraph)
    (bind-keys ("M-Q" . unfill-paragraph))) ; default: `fill-paragraph'

  ;; ;; double-space punctuation
  ;; (when (fboundp 'double-space-punctuation)
  ;;   (bind-keys ("C-M-q" . double-space-punctuation)))

  ;; toggle pop-up shell
  (when (and (fboundp 'pop-up-shell) (fboundp 'pop-up-shell-toggle))
    (bind-keys ("C-x C-]" . pop-up-shell-toggle)))

  ;; describe character under cursor
  (bind-keys ("C-x _" . describe-char)))

(init-message 3 "custom-key-bindings-standard-keys")
(custom-key-bindings-standard-keys)

;;------------------------------------------------------------------------------
;;; Key Bindings: Modes and Module Keys
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: Modes and Module Keys")

(defun custom-key-bindings-modes-and-modules-keys ()
  "Set custom modes and modules key bindings."

  ;; diary
  (when (fboundp 'diary)
    (bind-keys ("C-x y" . diary)))

  ;; imenu
  (bind-keys ("C-M-'" . imenu))

  ;; isearch
  ;; ;; regular expression searches
  ;; (when (fboundp 'isearch-forward-regexp)
  ;;   (bind-keys ("C-S" . isearch-forward-regexp)))
  ;; (when (fboundp 'isearch-backward-regexp)
  ;;   (bind-keys ("C-R" . isearch-backward-regexp)))
  ;; activate `occur' from isearch
  (define-key isearch-mode-map (kbd "C-o")
    (lambda ()
      (interactive)
      (let ((case-fold-search isearch-case-fold-search))
        (occur (if isearch-regexp isearch-string (regexp-quote isearch-string))))))

  ;; line number mode
  (bind-keys ("C-x M-n" . display-line-numbers-mode))
  (when (fboundp 'display-line-numbers-type-toggle)
    (bind-keys ("C-x M-N" . display-line-numbers-type-toggle)))

  ;; occur
  (when (fboundp 'occur)
    ;;(bind-keys ("C-x u" . occur)) ; default: `undo'
    (bind-keys ("C-c o" . occur)))

  ;; shell
  (bind-keys ("C-x !" . shell)))

(init-message 3 "custom-key-bindings-modes-and-modules-keys")
(custom-key-bindings-modes-and-modules-keys)

;;------------------------------------------------------------------------------
;;; Key Bindings: Grouped Prefix Keys
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: Grouped Prefix Keys")

(defun custom-key-bindings-grouped-prefix-keys ()
  "Set custom grouped prefix key bindings."

  ;; help find commands
  ;; "C-h e" defaults to `view-echo-area-messages'
  (unbind-key "C-h e")
  (define-prefix-command 'help-find-map nil "Help Find Commands")
  (bind-keys :prefix "C-h e"
             :prefix-map help-find-map
             :menu-name "Help Find Commands"
             ("e" . view-echo-area-messages)
             ("f" . find-function)
             ("k" . find-function-on-key)
             ("l" . find-library)
             ("v" . find-variable)
             ("V" . apropos-value))

  ;; custom prefix launching point (M-space)
  (unbind-key "M-SPC")
  (define-prefix-command 'space-map nil "Space Prefix Launching Point")
  (bind-keys :prefix "M-SPC"
             :prefix-map space-map
             :menu-name "Space Prefix Launching Point")
  (bind-keys ("C-." . space-map))      ; in case the OS consumes M-SPC

  ;; menu
  (bind-keys :map space-map ("M-SPC" . tmm-menubar))

  ;; buffer commands
  (bind-keys :map space-map
             :prefix "b"
             :prefix-map space-buffer-map
             :menu-name "Buffer Commands")
  (when (fboundp 'switch-to-messages)
    (bind-keys :map space-buffer-map ("m" . switch-to-messages)))
  (when (fboundp 'new-scratch)
    (bind-keys :map space-buffer-map ("n" . new-scratch)))
  (when (fboundp 'new-emacs-lisp-scratch)
    (bind-keys :map space-buffer-map ("e" . new-emacs-lisp-scratch)))
  (when (fboundp 'new-org-scratch)
    (bind-keys :map space-buffer-map ("o" . new-org-scratch)))
  (when (fboundp 'switch-to-scratch)
    (bind-keys :map space-buffer-map ("s" . switch-to-scratch)))
  (when (fboundp 'switch-to-scratch-for-current-mode)
    (bind-keys :map space-buffer-map ("c" . switch-to-scratch-for-current-mode)))

  ;; command log commands
  (bind-keys :map space-map
             :prefix "c"
             :prefix-map space-command-log-map
             :menu-name "Command Log Commands"
             ("c" . command-log-mode-on)
             ("k" . command-log-mode-off)
             ("l" . clm/command-log-clear))

  ;; git commands
  (bind-keys :map space-map
             :prefix "g"
             :prefix-map space-git-map
             :menu-name "Git Commands"
             ("b" . magit-branch)
             ("c" . magit-branch-or-checkout)
             ("d" . magit-diff-unstaged)
             ("f" . magit-fetch)
             ("F" . magit-fetch-all)
             ("p" . magit-pull-branch)
             ("P" . magit-push-current)
             ("r" . magit-rebase)
             ("s" . magit-status))

  ;; git log commands
  (bind-keys :map space-git-map
             :prefix "l"
             :prefix-map space-git-log-map
             :menu-name "Git Log Commands"
             ("l" . magit-log-current)
             ("f" . magit-log-buffer-file))

  ;; grep commands
  (bind-keys :map space-map
             :prefix "G"
             :prefix-map space-grep-map
             :menu-name "Grep Commands")
  (when (fboundp 'grep-bin)
    (bind-keys :map space-grep-map ("b" . grep-bin)))
  (when (fboundp 'grep-clojure)
    (bind-keys :map space-grep-map ("c" . grep-clojure)))
  (when (fboundp 'grep-clisp)
    (bind-keys :map space-grep-map ("l" . grep-clisp)))
  (when (fboundp 'grep-elisp)
    (bind-keys :map space-grep-map ("e" . grep-elisp)))
  (when (fboundp 'grep-elisp-extended)
    (bind-keys :map space-grep-map ("E" . grep-elisp-extended)))
  (when (fboundp 'grep-emacs-init)
    (bind-keys :map space-grep-map ("i" . grep-emacs-init)))
  (when (fboundp 'grep-home-init)
    (bind-keys :map space-grep-map ("h" . grep-home-init)))
  (when (fboundp 'grep-org)
    (bind-keys :map space-grep-map ("o" . grep-org)))
  (when (fboundp 'grep-python)
    (bind-keys :map space-grep-map ("p" . grep-python)))
  (when (fboundp 'grep-racket)
    (bind-keys :map space-grep-map ("r" . grep-racket)))
  (when (fboundp 'grep-web)
    (bind-keys :map space-grep-map ("w" . grep-web)))

  ;; insert commands
  (bind-keys :map space-map
             :prefix "i"
             :prefix-map space-insert-map
             :menu-name "Insert Commands"
             ("d" . insert-date)
             ("t" . insert-datetime)
             ("u" . insert-uuid))

  ;; insert org-mode commands
  (bind-keys :map space-insert-map
             :prefix "o"
             :prefix-map space-insert-org-map
             :menu-name "Insert Org-Mode Commands"
             ("b" . org-insert-literate-programming-src)
             ("c" . org-insert-literate-programming-code-block)
             ("e" . org-insert-literate-programming-src-emacs-lisp)
             ("h" . org-insert-header)
             ("i" . org-insert-literate-programming-init-emacs-block)
             ("k" . org-insert-literate-programming-src-kotlin)
             ("n" . org-insert-literate-programming-name)
             ("p" . org-insert-literate-programming-project-euler-problem-block)
             ("r" . org-insert-literate-programming-src-racket)
             ("s" . org-insert-literate-programming-src-sh)
             ("t" . org-insert-table))

  ;; insert password commands
  (bind-keys :map space-insert-map
             :prefix "p"
             :prefix-map space-insert-password-map
             :menu-name "Insert Password Commands"
             ("p" . insert-password)
             ("h" . insert-password-phrase)
             ("2" . insert-password-20)
             ("3" . insert-password-phrase-3-space)
             ("6" . insert-password-phrase-6-space)
             ("-" . insert-password-phrase-6-hyphen-capitalize)
             ("!" . insert-password-phrase-6-symbol-capitalize))

  ;; miscellaneous commands
  (bind-keys :map space-map
             :prefix "m"
             :prefix-map space-miscellaneous-map
             :menu-name "Miscellaneous Commands"
             ("b" . emacs-lisp-byte-compile)
             ("c" . customize-group)
             ("g" . magit-status)
             ("m" . macrostep-mode)
             ("s" . server-start-maybe)
             ("w" . webjump)
             ("x" . regexp-builder))

  ;; miscellaneous display commands
  (bind-keys :map space-miscellaneous-map
             :prefix "d"
             :prefix-map space-miscellaneous-display-map
             :menu-name "Display Commands"
             ("c" . list-colors-display)
             ("f" . list-faces-display)
             ("s" . list-character-sets)
             ("w" . display-time-world))
  (when (fboundp 'term-bash)
    (bind-keys :map space-miscellaneous-display-map ("u" . list-charset-unicode)))

  ;; miscellaneous eval commands
  (bind-keys :map space-miscellaneous-map
             :prefix "e"
             :prefix-map space-miscellaneous-eval-map
             :menu-name "Eval Commands"
             ("b" . eval-buffer)
             ("i" . ielm)
             ("r" . eval-region))

  ;; miscellaneous format commands
  (bind-keys :map space-miscellaneous-map
             :prefix "f"
             :prefix-map space-miscellaneous-format-map
             :menu-name "Format Commands"
             ("j" . json-pretty-print)
             ("x" . xml-pretty-print))

  ;; miscellaneous toggle commands
  (bind-keys :map space-miscellaneous-map
             :prefix "t"
             :prefix-map space-miscellaneous-toggle-map
             :menu-name "Toggle Commands"
             ("d" . toggle-debug-on-error)
             ("q" . toggle-debug-on-quit)
             ("s" . toggle-case-fold-search)
             ("t" . toggle-truncate-lines)
             ("v" . visual-line-mode))

  ;; package commands
  (bind-keys :map space-map
             :prefix "p"
             :prefix-map space-package-map
             :menu-name "Package Commands"
             ("i" . package-install)
             ("l" . package-list-packages-no-fetch)
             ("L" . package-list-packages)
             ("R" . straight-pull-recipe-repositories)
             ("P" . straight-pull-all)
             ("F" . straight-fetch-all))

  ;; run commands
  (bind-keys :map space-map
             :prefix "r"
             :prefix-map space-run-map
             :menu-name "Run Commands")
  (when (and (fboundp 'safe-load) (boundp 'emacs-home-dir))
    (defun safe-load-init-elisp ()
      (safe-load (file-truename (expand-file-name "init.el" emacs-home-dir))))
    (bind-keys :map space-run-map ("i" . safe-load-init-elisp)))

  ;; terminal commands
  (bind-keys :map space-map
             :prefix "t"
             :prefix-map space-terminal-map
             :menu-name "Terminal Commands"
             ("a" . ansi-term)
             ("e" . eshell)
             ("s" . shell)
             ("t" . term))
  (when (fboundp 'term-bash)
    (bind-keys :map space-terminal-map ("b" . term-bash)))
  (when (fboundp 'term-zsh)
    (bind-keys :map space-terminal-map ("z" . term-zsh)))
  (when (fboundp 'vterm)
    (bind-keys :map space-terminal-map ("v" . vterm)))

  ;; ;; window resize commands
  ;; (bind-keys :map space-map
  ;;            :prefix "w"
  ;;            :prefix-map space-window-resize-map
  ;;            :menu-name "Window Resize")
  ;; (when (fboundp 'window-shrink-vertically)
  ;;   (bind-keys :map space-window-resize-map ("i" . window-shrink-vertically)))
  ;; (when (fboundp 'window-enlarge-vertically)
  ;;   (bind-keys :map space-window-resize-map ("k" . window-enlarge-vertically)))
  ;; (when (fboundp 'window-shrink-horizontally)
  ;;   (bind-keys :map space-window-resize-map ("j" . window-shrink-horizontally)))
  ;; (when (fboundp 'window-enlarge-horizontally)
  ;;   (bind-keys :map space-window-resize-map ("l" . window-enlarge-horizontally)))

  ;; browse-url commands
  (bind-keys :map space-map
             :prefix "z"
             :prefix-map space-browse-url-map
             :menu-name "Browse URL Commands"
             ("." . browse-url-at-point)
             ("b" . browse-url-of-buffer)
             ("r" . browse-url-of-region)
             ("u" . browse-url)
             ("v" . browse-url-of-file)))

(init-message 3 "custom-key-bindings-grouped-prefix-keys")
(custom-key-bindings-grouped-prefix-keys)

;;------------------------------------------------------------------------------
;;; Key Bindings: Set All Custom Key Bindings
;;------------------------------------------------------------------------------

(init-message 2 "Key Bindings: Set All Custom Key Bindings")

(defun custom-key-bindings-set-all ()
  "Set all custom key bindings."

  ;; Turned off in order to reserve the Super keybindings for the OS.
  ;; (init-message 3 "custom-key-bindings-system-keys")
  ;; (custom-key-bindings-system-keys)

  (init-message 3 "custom-key-bindings-function-keys")
  (custom-key-bindings-function-keys)

  (init-message 3 "custom-key-bindings-extended-keys")
  (custom-key-bindings-extended-keys)

  (init-message 3 "custom-key-bindings-movement-keys")
  (custom-key-bindings-movement-keys)

  (init-message 3 "custom-key-bindings-standard-keys")
  (custom-key-bindings-standard-keys)

  (init-message 3 "custom-key-bindings-modes-and-modules-keys")
  (custom-key-bindings-modes-and-modules-keys)

  (init-message 3 "custom-key-bindings-grouped-prefix-keys")
  (custom-key-bindings-grouped-prefix-keys))

;;==============================================================================
;;; Org Mode
;;==============================================================================

(init-message 1 "Org Mode")

;;------------------------------------------------------------------------------
;;; Org Mode: Configuration
;;------------------------------------------------------------------------------

(init-message 2 "Org Mode: Configuration")

(use-package org
  :straight (:type built-in)
  :demand t
  :mode (("\\.org\\'" . org-mode)
         ("\\.org_archive\\'" . org-mode))
  :bind* (("C-c a" . org-agenda)
          ("C-c c" . org-capture)
          ;;("C-c l" . org-store-link)
          ("C-c j" . org-babel-tangle-jump-to-org))
  :custom
  ;; org directory
  (org-directory (file-truename (expand-file-name "~/org")))
  ;; ;; use org indent mode
  ;; (org-indent-mode 1)
  ;; indent blocks to outline node level
  (org-adapt-indentation t)
  ;; ;; do not indent blocks to outline node level
  ;; (org-adapt-indentation nil)
  ;; odd level headings only
  (org-odd-levels-only t)
  ;; ;; odd and even level headings
  ;; (org-odd-levels-only nil)
  ;; hide leading stars on headings
  (org-hide-leading-stars t)
  ;; startup in "overview" (folded) by default
  (org-startup-folded 'overview)
  ;; remap disputed keys (see `org-disputed-keys')
  (org-replace-disputed-keys t)
  ;; shift-cursor commands select text when possible
  (org-support-shift-select 'always)
  ;; display inline images
  (org-startup-with-inline-images t)
  ;; do not insert empty lines around headings
  (org-blank-before-new-entry '((heading . nil) (plain-list-item . nil)))
  ;; use a different ellipsis indicator (than '...')
  ;;(org-ellipsis "…")
  ;;(org-ellipsis " ⤵")
  ;;(org-ellipsis " ")
  ;;(org-ellipsis " ")
  ;;(org-ellipsis " ")
  (org-ellipsis " ▼")
  ;; return follows links
  ;;(org-return-follows-link t)
  ;; reverse `org-beginning-of-line' and `org-end-of-line' toggle order
  ;; HOME toggles between line start and headline start
  ;; END toggles between end of tags and headline end
  (org-special-ctrl-a/e 'reversed)
  ;; show and error on invisible edits
  (org-catch-invisible-edits 'show-and-error)
  ;; use todo key selection
  (org-use-fast-todo-selection t)
  ;; use shift-left/right to change todo status without a state change
  (org-treat-S-cursor-todo-selection-as-state-change nil)
  ;; time stamp settings
  (org-display-custom-times t)
  (org-time-stamp-custom-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>"))
  ;; always show lineage
  (org-show-context-detail
   '((default . lineage)
     (agenda . local)))
  ;; todo keywords
  ;;(org-todo-keywords '("TODO(t)" "NEXT(n)" "|" "DONE(d!)"))
  ;; log note settings
  (org-log-note-headings
   '((done . "CLOSING NOTE %t")
     ;;(state . "State %-12s from %-12S %t")
     (state . "State %-12s %t")
     (note . "Note taken on %t")
     (reschedule . "Rescheduled from %S on %t")
     (delschedule . "Not scheduled, was %S on %t")
     (redeadline . "New deadline from %S on %t")
     (deldeadline . "Removed deadline, was %S on %t")
     (refile . "Refiled on %t")
     (clock-out . "")))
  :config
  ;; faces
  (custom-set-faces
   `(org-ellipsis ((t (:underline nil))))
   `(org-block ((t (:inherit shadow :foreground ,color-foreground)))))
  ;;  `(org-level-1 ((t (:foreground ,color-1))))
  ;;  `(org-level-2 ((t (:foreground ,color-2))))
  ;;  `(org-level-3 ((t (:foreground ,color-3))))
  ;;  `(org-level-4 ((t (:foreground ,color-4))))
  ;;  `(org-level-5 ((t (:foreground ,color-5))))
  ;;  `(org-level-6 ((t (:foreground ,color-6))))
  ;;  `(org-level-7 ((t (:foreground ,color-7))))
  ;;  `(org-level-8 ((t (:foreground ,color-8)))))

  ;; set file apps
  (when window-system
    (setq org-file-apps (quote ((auto-mode . emacs)
                                ("\\.mm\\'" . default)
                                ("\\.x?html?\\'" . default)
                                ("\\.pdf\\'" . emacs))))) ; use internal PDF viewer

  ;; remember settings
  ;;(setq remember-handler-functions '(org-remember-handler)
  ;;      remember-annotation-functions '(org-remember-annotation))
  ;;(add-hook 'remember-mode-hook #'org-remember-apply-template)

  ;; todo keywords
  ;; (org-todo-keywords
  ;;       '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
  ;;         (sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANCELED(k@)"))

  ;; ;; add todo state map
  ;; (define-prefix-command 'org-todo-state-map)
  ;; (define-key org-mode-map (kbd "C-c x") 'org-todo-state-map)
  ;; (define-key org-todo-state-map (kbd "s") (lambda () (interactive) (org-todo "STARTED")))
  ;; (define-key org-todo-state-map (kbd "w") (lambda () (interactive) (org-todo "WAITING")))
  ;; ;;(define-key org-todo-state-map (kbd "f") (lambda () (interactive) (org-todo "DEFERRED")))
  ;; ;;(define-key org-todo-state-map (kbd "l") (lambda () (interactive) (org-todo "DELEGATED")))
  ;; (define-key org-todo-state-map (kbd "d") (lambda () (interactive) (org-todo "DONE")))
  ;; (define-key org-todo-state-map (kbd "c") (lambda () (interactive) (org-todo "CANCELED")))

  ;; save buffers after refile
  (advice-add 'org-refile :after #'org-save-all-org-buffers)

  (defun pabbrev-global-mode--org-disable (orig-fun &rest args)
    "Turn off pabbrev mode (it interferes with org mode)."
    (unless (eq major-mode 'org-mode)
      (apply orig-fun args)))
  ;; advise `pabbrev-global-mode'
  (advice-add 'pabbrev-global-mode :around #'pabbrev-global-mode--org-disable)

  ;; make windmove work in org-mode
  (add-hook 'org-shiftup-final-hook #'windmove-up)
  (add-hook 'org-shiftleft-final-hook #'windmove-left)
  (add-hook 'org-shiftdown-final-hook #'windmove-down)
  (add-hook 'org-shiftright-final-hook #'windmove-right)

  ;; mobile org settings
  (setq org-mobile-directory (file-truename (expand-file-name "~/Dropbox/MobileOrg")))
  (setq org-mobile-inbox-for-pull (file-truename (expand-file-name "index.org" org-mobile-directory)))

  (defun org-update-parent-cookie ()
    "Update parent TODO cookies when children entries are killed."
    (when (eq major-mode 'org-mode)
      (save-mark-and-excursion
        (ignore-errors
          (org-back-to-heading)
          (org-update-parent-todo-statistics)))))

  ;; ;; too slow
  ;; (defun org-kill-line--fix-cookies (&optional arg)
  ;;   "Update parent todo cookies after `org-kill-line'."
  ;;   (org-update-parent-cookie))
  ;; ;; advise `org-kill-line'
  ;; (advice-add 'org-kill-line :after #'org-kill-line--fix-cookies)

  ;; ;; too slow
  ;; (defun kill-whole-line--fix-cookies (&optional arg)
  ;;   "Update parent todo cookies after `kill-whole-line'."
  ;;   (org-update-parent-cookie))
  ;; ;; advise `kill-whole-line'
  ;; (advice-add 'kill-whole-line :after #'kill-whole-line--fix-cookies)

  (defun org-kill-src-buffers (&rest args)
    "Kill temporary buffers created by `org-src-font-lock-fontify-block'."
    (dolist (buffer (buffer-list))
      (let ((buffer-name (buffer-name buffer)))
        (when (string-prefix-p " org-src-fontification:" buffer-name)
          (kill-buffer buffer)))))

  (defun org-src-font-lock-fontify-block--kill-src-buffers (lang start end)
    "Kill temporary buffers created by `org-src-font-lock-fontify-block'."
    (org-kill-src-buffers))
  ;; advise `org-src-font-lock-fontify-block'
  (advice-add 'org-src-font-lock-fontify-block :after #'org-src-font-lock-fontify-block--kill-src-buffers)

  (defun before-save-hook--update-last-modified-property ()
    "Hook to update last modified property on save."
    (when (and buffer-file-name
               (string= (file-name-extension buffer-file-name) "org"))
      (org-update-last-modified-property)))
  (add-hook 'before-save-hook #'before-save-hook--update-last-modified-property)

  (defun after-save-hook--generate-init-emacs-elisp-file ()
    "Hook to generate init-emacs.el file on save."
    (when (and buffer-file-name
               (string= (file-truename buffer-file-name) init-emacs-true-file-name))
      ;;(org-babel-generate-elisp-file init-emacs-true-file-name nil t)
      (if (fboundp 'org-babel-tangle-file-async)
          (org-babel-tangle-file-async init-emacs-true-file-name)
        (org-babel-tangle-file init-emacs-true-file-name))))
  (add-hook 'after-save-hook #'after-save-hook--generate-init-emacs-elisp-file :append)

  ;; (defun org-insert-heading--fix-newline-bug (orig-fun &rest args)
  ;;   "Fix extra newline bug in org."
  ;;   ;; make sure empty lines above new headline are not removed
  ;;   (if (= (point) (line-beginning-position))
  ;;       (let ((start (point)))
  ;;         (apply orig-fun args)
  ;;         (forward-line 0)
  ;;         (while (< (point) start)
  ;;           (newline))
  ;;         (goto-char (line-end-position)))
  ;;     (apply orig-fun args)))
  ;; ;; advise `org-insert-heading' to fix extra newline bug
  ;; (advice-add 'org-insert-heading :around #'org-insert-heading--fix-newline-bug)

  ;; (defun org-fixup-indentation--unindent (diff)
  ;;   "Unindent org begin/end blocks, keywords, and paragraphs."
  ;;   (save-window-excursion
  ;;     (save-mark-and-excursion
  ;;       (save-match-data
  ;;         (when (org-with-limited-levels (org-at-heading-p))
  ;;           (org-with-wide-buffer
  ;;            (narrow-to-region (line-beginning-position)
  ;;                              (save-mark-and-excursion
  ;;                                (org-with-limited-levels (outline-next-heading))
  ;;                                (point)))
  ;;            (forward-line 0)
  ;;            (org-beginning-of-line)
  ;;            (let* ((case-fold-search t)
  ;;                   (indentation (- (point) (line-beginning-position)))
  ;;                   (spacing (make-string (abs diff) ? ))
  ;;                   (indented-regexp (concat "^" spacing "[ \t]*"))
  ;;                   (text-indent t))
  ;;              (forward-line 1)
  ;;              (while (not (eobp))
  ;;                (when (re-search-forward indented-regexp (line-end-position) :noerror)
  ;;                  (let ((line-indentation (- (point) (line-beginning-position))))
  ;;                    (forward-line 0)
  ;;                    (cl-case (org-element-type (org-element-at-point))
  ;;                      ('src-block
  ;;                       (when (> diff 0)
  ;;                         (delete-char diff)))
  ;;                      ((paragraph table table-row)
  ;;                       (if (> diff 0)
  ;;                           (when (or (not text-indent)
  ;;                                     (< line-indentation indentation))
  ;;                             (delete-char diff)
  ;;                             (setq text-indent nil))
  ;;                         (if (and text-indent
  ;;                                  (>= line-indentation (- indentation diff)))
  ;;                             (delete-char (abs diff))
  ;;                           (setq text-indent nil)))))))
  ;;                (forward-line 1)))))))))
  ;; ;; advise `org-fixup-indentation' to unindent as needed
  ;; (advice-add 'org-fixup-indentation :after #'org-fixup-indentation--unindent)

  ;;----------------------------------------------------------------------------
  ;; define some deprecated functions that are needed
  ;;----------------------------------------------------------------------------

  (unless (fboundp 'org-outline-overlay-data)
    (defun org-outline-overlay-data (&optional use-markers)
      "Return a list of the locations of all outline overlays.
These are overlays with the `invisible' property value `outline'.
The return value is a list of cons cells, with start and stop
positions for each overlay.
If USE-MARKERS is set, return the positions as markers."
      (let (beg end)
        (org-with-wide-buffer
         (delq nil
               (mapcar (lambda (x)
                         (when (eq (overlay-get x 'invisible) 'outline)
                           (setq beg (overlay-start x)
                                 end (overlay-end x))
                           (and beg end (> end beg)
                                (if use-markers
                                    (cons (copy-marker beg)
                                          (copy-marker end t))
                                  (cons beg end)))))
                       (overlays-in (point-min) (point-max))))))))

  (unless (fboundp 'org-set-outline-overlay-data)
    (defun org-set-outline-overlay-data (data)
      "Create visibility overlays for all positions in DATA.
DATA should have been made by `org-outline-overlay-data'."
      (org-with-wide-buffer
       (org-show-all)
       (dolist (c data) (org-flag-region (car c) (cdr c) t 'outline))))))

;;------------------------------------------------------------------------------
;;; Org Mode: Outline
;;------------------------------------------------------------------------------

(init-message 2 "Org Mode: Outline")

(use-package outline
  :straight (:type built-in)
  :after (org)
  :commands (outline-up-heading
             outline-forward-same-level
             outline-show-subtree)
  :config
  ;; ;; faces
  ;; (custom-set-faces
  ;;  `(outline-1 ((t (:foreground ,color-1))))
  ;;  `(outline-2 ((t (:foreground ,color-2))))
  ;;  `(outline-3 ((t (:foreground ,color-3))))
  ;;  `(outline-4 ((t (:foreground ,color-4))))
  ;;  `(outline-5 ((t (:foreground ,color-5))))
  ;;  `(outline-6 ((t (:foreground ,color-6))))
  ;;  `(outline-7 ((t (:foreground ,color-7))))
  ;;  `(outline-8 ((t (:foreground ,color-8)))))

  ;; advise `outline-up-heading' to suppress errors
  (advice-add 'outline-up-heading :around #'advice--ignore-interactive-errors))

;;------------------------------------------------------------------------------
;;; Org Mode: Agenda
;;------------------------------------------------------------------------------

(init-message 2 "Org Mode: Agenda")

(use-package org-agenda
  :when (file-exists-p org-directory)
  :straight (:type built-in)
  :after (org)
  :config
  ;; agenda key bindings
  ;;(define-key org-agenda-mode-map (kbd "C-n") 'next-line)
  ;;(define-key org-agenda-keymap (kbd "C-n") 'next-line)
  ;;(define-key org-agenda-mode-map (kbd "C-p") 'previous-line)
  ;;(define-key org-agenda-keymap (kbd "C-p") 'previous-line)

  ;; record time when todo's are marked done
  (setq org-log-done 'time)

  ;; agenda files
  (setq org-agenda-file-regexp "agenda-.*\\.org\\'"
        org-agenda-files (mapcar (lambda (x) (expand-file-name x (file-name-as-directory org-directory)))
                                 (cl-remove-if-not (lambda (x) (string-match org-agenda-file-regexp x))
                                                   (directory-files org-directory))))

  ;; default notes file
  (setq org-default-notes-file (car org-agenda-files))

  ;; show 7 days in agenda view
  (setq org-agenda-span 7)

  ;; show deadlines within 14 days
  (setq org-deadline-warning-days 14)

  ;; show all dates (even empty ones)
  (setq org-agenda-show-all-dates t)

  ;; do not show entries marked done
  (setq org-agenda-skip-deadline-if-done t)
  (setq org-agenda-skip-scheduled-if-done t)

  ;; start agenda view on current day
  (setq org-agenda-start-on-weekday nil)

  ;; store new notes at the beginning of files
  (setq org-reverse-note-order t)

  ;; quick tag selection
  (setq org-fast-tag-selection-single-key 'expert)

  ;; quick tag keys
  (setq org-agenda-custom-commands
        (quote (("d" todo "DONE" nil)
                ;;("d" todo "DONE|DEFERRED|CANCELLED" nil)
                ("w" todo "WAITING" nil)
                ;;("l" todo "DELEGATED" nil)
                ("W" agenda "" ((org-agenda-ndays 21)))
                ("A" agenda ""
                 ((org-agenda-skip-function
                   (lambda ()
                     (org-agenda-skip-entry-if 'notregexp "\\=.*\\[#A\\]")))
                  (org-agenda-ndays 1)
                  (org-agenda-overriding-header "Today's Priority #A tasks: ")))
                ("u" alltodo ""
                 ((org-agenda-skip-function
                   (lambda ()
                     (org-agenda-skip-entry-if 'scheduled 'deadline 'regexp "<[^>\n]+>")))
                  (org-agenda-overriding-header "Unscheduled TODO entries: "))))))

  ;; fix bug
  (unless (boundp 'org-called-interactively-p)
    (defalias 'org-called-interactively-p 'called-interactively-p))

  ;; archive done tasks
  (defun org-agenda-archive-done-tasks ()
    "Archive DONE tasks."
    (interactive)
    (org-map-entries #'org-archive-subtree "/DONE" 'file))

  ;; auto-save archive files
  (when (boundp 'org-archive-subtree-save-file-p)
    (setq org-archive-subtree-save-file-p t)))