From 7c5780a719565630f58e7751afa8c7e458c49871 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Sat, 6 Apr 2024 11:22:57 -0700 Subject: a org file is definitely not the way for me --- init.el | 1157 +++------------------------------------------------------------ 1 file changed, 42 insertions(+), 1115 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index cd365c0..de81c2b 100644 --- a/init.el +++ b/init.el @@ -6,64 +6,20 @@ (defconst emacs-start-time (current-time)) -(defun report-time-since-load (&optional suffix) - (message "Loading init...done (%.3fs)%s" - (float-time (time-subtract (current-time) emacs-start-time)) - suffix)) +(defun report-time-since-load () + "Report how long it takes to load my Emacs configuration." + (message "[after-init ]Loading init...done (%.3fs)" + (float-time (time-subtract (current-time) emacs-start-time)))) -(add-hook 'after-init-hook - #'(lambda () (report-time-since-load " [after-init]")) - t) +(add-hook 'after-init-hook #'(lambda () (report-time-since-load)) t) -(fset 'yes-or-no-p 'y-or-n-p) ; replace yes/no prompts with y/n - -;; UTF-8 Everywhere -(prefer-coding-system 'utf-8-unix) -(set-default-coding-systems 'utf-8) -(set-terminal-coding-system 'utf-8) -(set-keyboard-coding-system 'utf-8) -(setq locale-coding-system 'utf-8) - -;; no backups -;; Disable backup. -(setq backup-inhibited t) -;; Disable auto save. -(setq auto-save-default nil) -(setq auto-save-list-file-prefix nil) -;; really no backups -(setq make-backup-files nil) - -;; Don't say anything on mode-line mouseover. -(setq mode-line-default-help-echo nil) -;; Keep cursors and highlights in current window only. -(setq cursor-in-non-selected-windows nil) -;; Don't highlight inactive windows. -(setq highlight-nonselected-windows nil) -;; Disable bidirectional text support for slight performance bonus. -(setq bidi-display-reordering nil) - -(setq load-prefer-newer t) -(setq init-file-debug t) - -;;; imenu -(with-eval-after-load 'imenu - ;; Recenter buffer after jumping. - (add-hook - 'imenu-after-jump-hook - (lambda () (recenter (max scroll-margin (/ (window-height) 3))))) - - (setq-default imenu-auto-rescan t) - (setq-default imenu-auto-rescan-maxout (* 1024 1024)) - (setq-default imenu--rescan-item '("" . -99))) +;;; Configure how to install packages +(require 'package) -;;; package -(with-eval-after-load 'package - (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/")) - (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")) - (add-to-list 'package-archives '("elpa" . "https://elpa.nongnu.org/nongnu/")) - (add-to-list 'package-archives '("gnu-devel" . "https://elpa.gnu.org/devel/") t)) +(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/")) +(add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")) +(add-to-list 'package-archives '("elpa" . "https://elpa.nongnu.org/nongnu/")) -(require 'package) (package-initialize) ;; Auto-install use-package. @@ -75,803 +31,38 @@ (eval-when-compile (require 'use-package)) -(setq debug-on-error init-file-debug) -(setq use-package-always-defer nil) -(setq use-package-always-ensure nil) -(setq use-package-compute-statistics nil) -(setq use-package-expand-minimally (not init-file-debug)) -(setq use-package-verbose init-file-debug) - -(eval-and-compile - (defsubst emacs-path (path) - (expand-file-name path user-emacs-directory)) - - (setq package-enable-at-startup nil - load-path - (append (list (emacs-path "use-package")) - (delete-dups load-path) - (list (emacs-path "lisp"))))) - -(use-package diminish :ensure t) - -(defconst user-data-directory - (emacs-path "data")) - -(defun user-data (dir) - "Concat DIR under the user's directory." - (expand-file-name dir user-data-directory)) - -(defvar saved-window-configuration nil) - -(defun push-window-configuration () - (interactive) - (push (current-window-configuration) saved-window-configuration)) - -(defun pop-window-configuration () - (interactive) - (let ((config (pop saved-window-configuration))) - (if config - (set-window-configuration config) - (if (> (length (window-list)) 1) - (delete-window) - (bury-buffer))))) - -(defun my/rename-this-buffer-and-file () - "Renames current buffer and file it is visiting." - (interactive) - (let ((name (buffer-name)) - (filename (buffer-file-name)) - (read-file-name-function 'read-file-name-default)) - (if (not (and filename (file-exists-p filename))) - (error "Buffer '%s' is not visiting a file!" name) - (let ((new-name (read-file-name "New name: " filename))) - (cond ((get-buffer new-name) - (error "A buffer named '%s' already exists!" new-name)) - (t - (rename-file filename new-name 1) - (rename-buffer new-name) - (set-visited-file-name new-name) - (set-buffer-modified-p nil) - (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name)))))))) - -(defun my/check-work-machine-p () - "Return t if this is a work machine." - (string-match "HQ\\.*" (system-name))) - -(defun my/github-code-search () - "Search code on github for a given language." - (interactive) - (let ((language (completing-read - "Language: " - '("Emacs Lisp" "Python" "Go" "Nix"))) - (code (read-string "Code: "))) - (browse-url - (concat "https://github.com/search?lang=" language - "&type=code&q=" code)))) - -(defun my/work-code-search () - "Search code on sourcegraph for a given language." - (interactive) - (let ((language (completing-read - "Language: " - '("Ruby" "Python" "Go"))) - (code (read-string "Code: "))) - (browse-url - (concat "https://sourcegraph.rbx.com/search?q=context:global+lang:" language - "+" code)))) - -;;; display mode -;; paren.el -(show-paren-mode 1) -(setq show-paren-delay 0) -(setq show-paren-highlight-openparen t) -(setq show-paren-when-point-inside-paren t) -(setq show-paren-when-point-in-periphery t) - -(use-package abbrev - :diminish - :hook - ((text-mode prog-mode) . abbrev-mode) - :custom - (abbrev-file-name (emacs-path "abbrevs.el")) - ;; save abbrevs when files are saved - (save-abbrevs 'silently) - :config - (if (file-exists-p abbrev-file-name) - (quietly-read-abbrev-file))) - -(use-package autorevert - :custom - (auto-revert-use-notify nil) - :config - (global-auto-revert-mode t)) - -(use-package bookmark - :defer t - :custom - (bookmark-default-file (user-data "bookmarks"))) - -(use-package compile - :bind (:map compilation-mode-map - ("z" . delete-window)) - :custom - (compilation-always-kill t) - ;; Don't freeze when process reads from stdin - (compilation-disable-input t) - (compilation-ask-about-save nil) - (compilation-context-lines 10) - (compilation-scroll-output 'first-error) - (compilation-skip-threshold 2) - (compilation-window-height 100)) - -(use-package consult - :ensure t - :bind (("C-c m" . consult-mode-command) - ("M-g o" . consult-org-heading) - ("C-x b" . consult-buffer) - ("C-x r b" . consult-bookmark) - ("C-x p b" . consult-project-buffer) - ("C-c i" . consult-imenu) - ("M-g e" . consult-compile-error) - ("M-g g" . consult-goto-line) - ("M-g M-g" . consult-goto-line) - ("M-g m" . consult-mark) - ("M-g k" . consult-global-mark))) - -(use-package corfu - :ensure t - :demand t - :bind (("M-/" . completion-at-point) - :map corfu-map - ("C-n" . corfu-next) - ("C-p" . corfu-previous) - ("" . corfu-insert) - ("M-d" . corfu-info-documentation) - ("M-l" . corfu-info-location) - ("M-." . corfu-move-to-minibuffer)) - :custom - ;; Works with `indent-for-tab-command'. Make sure tab doesn't indent when you - ;; want to perform completion - (tab-always-indent 'complete) - (completion-cycle-threshold t) ; Always show candidates in menu - - (corfu-auto t) - (corfu-auto-prefix 2) - (corfu-auto-delay 0.25) - - (corfu-min-width 80) - (corfu-max-width corfu-min-width) ; Always have the same width - (corfu-cycle t) - - ;; `nil' means to ignore `corfu-separator' behavior, that is, use the older - ;; `corfu-quit-at-boundary' = nil behavior. Set this to separator if using - ;; `corfu-auto' = `t' workflow (in that case, make sure you also set up - ;; `corfu-separator' and a keybind for `corfu-insert-separator', which my - ;; configuration already has pre-prepared). Necessary for manual corfu usage with - ;; orderless, otherwise first component is ignored, unless `corfu-separator' - ;; is inserted. - (corfu-quit-at-boundary nil) - (corfu-separator ?\s) ; Use space - (corfu-quit-no-match 'separator) ; Don't quit if there is `corfu-separator' inserted - (corfu-preview-current 'insert) ; Preview first candidate. Insert on input if only one - (corfu-preselect-first t) ; Preselect first candidate? - - ;; Other - (corfu-echo-documentation nil) ; Already use corfu-popupinfo - - :init - ;; see https://github.com/minad/corfu#completing-in-the-eshell-or-shell - (add-hook 'eshell-mode-hook - (lambda () - (setq-local corfu-auto nil) - (corfu-mode))) - :config - (global-corfu-mode)) - -(use-package corfu-popupinfo - :after corfu - :hook (corfu-mode . corfu-popupinfo-mode) - :bind (:map corfu-map - ("M-n" . corfu-popupinfo-scroll-up) - ("M-p" . corfu-popupinfo-scroll-down) - ([remap corfu-show-documentation] . corfu-popupinfo-toggle)) - :custom - (corfu-popupinfo-delay 0.5) - (corfu-popupinfo-max-width 70) - (corfu-popupinfo-max-height 20) - ;; Also here to be extra-safe that this is set when `corfu-popupinfo' is - ;; loaded. I do not want documentation shown in both the echo area and in - ;; the `corfu-popupinfo' popup. - (corfu-echo-documentation nil)) - -(use-package cape - :demand t - :ensure t - :bind (("C-c . p" . completion-at-point) - ("C-c . h" . cape-history) - ("C-c . f" . cape-file) - ("C-c . a" . cape-abbrev) - ("C-c . l" . cape-line) - ("C-c . w" . cape-dict) - ("C-c . r" . cape-rfc1345)) - :init - ;; Add `completion-at-point-functions', used by `completion-at-point'. - (add-to-list 'completion-at-point-functions #'cape-file) - (add-to-list 'completion-at-point-functions #'cape-abbrev)) - - (use-package marginalia - :ensure t - ;; Either bind `marginalia-cycle' globally or only in the minibuffer - :bind (:map minibuffer-local-map - ("M-A" . marginalia-cycle)) - - :init - ;; Must be in the :init section of use-package such that the mode gets - ;; enabled right away. Note that this forces loading the package. - (marginalia-mode)) - - (use-package orderless - :demand t - :ensure t - :custom - (completion-styles '(orderless basic)) - (completion-category-defaults nil)) - - (use-package vertico - :ensure t - :config - (vertico-mode)) - -(use-package yasnippet - :ensure t - :defer t - :diminish - :hook ((prog-mode . yas-minor-mode)) - :config - (yas-reload-all)) - -(use-package dired - :diminish - :bind (:map dired-mode-map - ("j" . dired) - ("z" . pop-window-configuration) - ("^" . dired-up-directory) - ("q" . pop-window-configuration) - ("M-!" . shell-command) - ("" . dired-next-window)) - :custom - (dired-clean-up-buffers-too nil) - (dired-dwim-target t) - (dired-hide-details-hide-information-lines nil) - (dired-hide-details-hide-symlink-targets nil) - (dired-listing-switches "-lah") - (dired-no-confirm - '(byte-compile chgrp chmod chown copy hardlink symlink touch)) - (dired-omit-mode nil t) - (dired-omit-size-limit 60000) - (dired-recursive-copies 'always) - (dired-recursive-deletes 'always) - :functions (dired-dwim-target-directory)) - - (use-package direnv - :ensure t - :custom - (direnv-always-show-summary nil) - :config - (direnv-mode)) - -(use-package docker - :bind ("C-c d" . docker) - :diminish - :init - (use-package docker-image :commands docker-images) - (use-package docker-volume :commands docker-volumes) - (use-package docker-network :commands docker-containers) - (use-package docker-compose :commands docker-compose) - - (use-package docker-container - :commands docker-containers - :custom - (docker-containers-shell-file-name "/bin/bash") - (docker-containers-show-all nil))) - -(use-package docker-compose-mode - :ensure t - :mode "docker-compose.*\.yml\\'") - -(use-package dockerfile-mode - :ensure t - :mode "Dockerfile[a-zA-Z.-]*\\'") - - (use-package emacs - :bind* ("M-j" . join-line) - - :custom-face - (cursor ((t (:background "hotpink")))) - ;; (highlight ((t (:background "blue4")))) - ;; (minibuffer-prompt ((t (:foreground "grey80")))) - ;; (mode-line-inactive ((t (:background "grey50")))) - (nobreak-space ((t nil))) - - :custom - - (create-lockfiles nil) ;; don't use a lock file - (confirm-kill-emacs #'yes-or-no-p) ;; ask before killing emacs - (minibuffer-message-timeout 0.5) ;; How long to display an echo-area message - (next-screen-context-lines 5) ;; scroll 5 lines at a time - (require-final-newline t) ;; ensure newline exists at the end of the file - (ring-bell-function 'ignore) ;; really no bell - (tab-always-indent 'complete) ;; when using TAB, always indent - (visible-bell nil) ;; no bell - (column-number-mode t) ;; show column number in the mode line - (electric-pair-mode 1) ;; matches parens and brackets - (indent-tabs-mode nil) ;; turn off tab indentation - (cursor-type 'box) ;; cursor is a horizontal bar - (delete-by-moving-to-trash t) ;; delete files by moving them to the trash - (initial-scratch-message "") ;; empty scratch buffer - - ;; bytecomp.el - (byte-compile-verbose nil) - - ;; prog-mode.el - (prettify-symbols-unprettify-at-point 'right-edge) - - ;; startup.el - (initial-buffer-choice t) - (initial-major-mode 'fundamental-mode) - (initial-scratch-message "") - - (user-full-name "Franck Cuny") - (user-mail-address "franck@fcuny.net") - (add-log-mailing-address "franck@fcuny.net") - - (history-length 200) - (history-delete-duplicates t) - (completion-ignored-extensions - '(".class" - ".cp" - ".elc" - ".fmt" - ".git/" - ".pyc" - ".so" - "~")) - - ;; paragraphs.el - (sentence-end-double-space nil) - - ;; switch to view-mode whenever you are in a read-only buffer (e.g. - ;; switched to it using C-x C-q). - (view-read-only t) - - ;; window.el - (switch-to-buffer-preserve-window-point t) - - ;; warnings.el - (warning-minimum-log-level :error) - - ;; frame.el - (window-divider-default-bottom-width 1) - (window-divider-default-places 'bottom-only) - - :config - (add-hook 'after-save-hook - #'executable-make-buffer-file-executable-if-script-p)) - -(use-package eshell - :commands (eshell eshell-command) - :custom - (eshell-directory-name (emacs-path "eshell")) - (eshell-hist-ignoredups t) - (eshell-history-size 50000) - (eshell-ls-dired-initial-args '("-h")) - (eshell-ls-exclude-regexp "~\\'") - (eshell-ls-initial-args "-h") - (eshell-modules-list - '(eshell-alias - eshell-basic - eshell-cmpl - eshell-dirs - eshell-glob - eshell-hist - eshell-ls - eshell-pred - eshell-prompt - eshell-rebind - eshell-script - eshell-term - eshell-unix - eshell-xtra)) - (eshell-prompt-function - (lambda nil - (concat (abbreviate-file-name (eshell/pwd)) - (if (= (user-uid) 0) - " # " " $ ")))) - (eshell-save-history-on-exit t) - (eshell-stringify-t nil) - (eshell-term-name "ansi") - - :preface - (defun eshell-initialize () - (add-hook 'eshell-expand-input-functions #'eshell-spawn-external-command) - - :init - (add-hook 'eshell-first-time-mode-hook #'eshell-initialize))) - -(use-package flymake - :bind (("C-c ! n" . flymake-goto-next-error) - ("C-c ! p" . flymake-goto-next-error)) - :custom - (flymake-start-on-save-buffer t) - (flymake-fringe-indicator-position 'left-fringe) - (flymake-suppress-zero-counters t) - (flymake-proc-compilation-prevents-syntax-check t) - (elisp-flymake-byte-compile-load-path load-path)) - -;; use various monaspace fonts -;; https://monaspace.githubnext.com -(set-face-attribute 'default nil - :font "Monaspace Neon" - :height 150) - -(set-face-attribute 'fixed-pitch nil - :font "Monaspace Neon" - :height 150) - -(set-face-attribute 'variable-pitch nil - :font "Monaspace Radon" - :height 150) - -(custom-set-faces - '(font-lock-comment-face ((t (:font "Monaspace Radon" :italic t :height 1.0))))) - -(use-package fringe - :config - ;;; no fringe on the right side - (set-fringe-mode '(8 . 0))) - - (use-package git-link - :defines git-link-remote-alist - :ensure t - :bind ("C-c Y" . git-link) - :commands (git-link git-link-commit git-link-homepage) - - :custom - (git-link-open-in-browser t) - - :preface - (defun git-link-fcuny-net (hostname dirname filename branch commit start end) - (format "http://git.fcuny.net/%s/tree/%s?id=%s#n%s" - (replace-regexp-in-string "^r/\\(.*\\)" "\\1.git" dirname) - filename - commit - start)) - - (defun git-link-commit-fcuny-net (hostname dirname commit) - (format "http://git.fcuny.net/%s/commit/?id=%s" - (replace-regexp-in-string "^r/\\(.*\\)" "\\1.git" dirname) - commit)) - - :config - (add-to-list 'git-link-remote-alist '("git\\.fcuny\\.net" git-link-fcuny-net)) - (add-to-list 'git-link-commit-remote-alist '("git\\.fcuny\\.net" git-link-commit-fcuny-net)) - - ;; sets up roblox git enterprise as a git-link handler - (add-to-list 'git-link-remote-alist '("github\\.rblx\\.com" git-link-github)) - (add-to-list 'git-link-commit-remote-alist '("github\\.rblx\\.com" git-link-commit-github))) - -(use-package ibuffer - :bind ("C-x C-b" . ibuffer) - :custom - (ibuffer-default-display-maybe-show-predicates t) - (ibuffer-expert t) - (ibuffer-formats - '((mark modified read-only " " - (name 16 -1) - " " - (size 6 -1 :right) - " " - (mode 16 16) - " " filename) - (mark " " - (name 16 -1) - " " filename))) - (ibuffer-maybe-show-regexps nil) - (ibuffer-saved-filter-groups - '(("default" - ("Magit" - (or - (mode . magit-status-mode) - (mode . magit-log-mode) - (name . "\\*magit") - (name . "magit-") - (name . "git-monitor"))) - ("Commands" - (or - (mode . shell-mode) - (mode . eshell-mode) - (mode . term-mode) - (mode . compilation-mode))) - ("Rust" - (or - (mode . rust-mode) - (mode . cargo-mode) - (name . "\\*Cargo") - (name . "^\\*rls\\(::stderr\\)?\\*") - (name . "eglot"))) - ("Nix" - (mode . nix-mode)) - ("Lisp" - (mode . emacs-lisp-mode)) - ("Dired" - (mode . dired-mode)) - ("Org" - (or - (name . "^\\*Calendar\\*$") - (name . "^\\*Org Agenda") - (name . "^ \\*Agenda") - (name . "^diary$") - (mode . org-mode))) - ("Emacs" - (or - (name . "^\\*scratch\\*$") - (name . "^\\*Messages\\*$") - (name . "^\\*\\(Customize\\|Help\\)") - (name . "\\*\\(Echo\\|Minibuf\\)")))))) - (ibuffer-show-empty-filter-groups nil) - (ibuffer-shrink-to-minimum-size t t) - (ibuffer-use-other-window t) - :init - (add-hook 'ibuffer-mode-hook - #'(lambda () - (ibuffer-switch-to-saved-filter-groups "default")))) - -(use-package indent - :commands indent-according-to-mode - :custom - (tab-always-indent 'complete)) - - (use-package ispell - :custom - (ispell-program-name (executable-find "aspell")) - (ispell-dictionary "en_US") - (ispell-extra-args '("--camel-case"))) - - (use-package jq-mode - :ensure t - :mode "\\.jq\\'") - -(use-package eglot - :ensure t - :after yasnippet - :bind (:map eglot-mode-map - ("C-c l a" . eglot-code-actions) - ("C-c l r" . eglot-rename)) - :config - (setq-default eglot-workspace-configuration - '((gopls - (usePlaceholders . t) - (staticcheck . t) - (completeUnimported . t)))) - - ;; uses https://github.com/oxalica/nil for the LSP server instead of rnix - (add-to-list 'eglot-server-programs '(nix-mode . ("nixd")))) - -(use-package tree-sitter - :ensure t - :config - (global-tree-sitter-mode)) - -(use-package tree-sitter-langs - :after tree-sitter - :ensure t) - -(use-package emacs-lisp-mode - :bind (:map emacs-lisp-mode-map - ("C-c C-r" . eval-region) - ("C-c C-d" . eval-defun) - ("C-c C-b" . eval-buffer)) - :hook ((emacs-lisp-mode . flymake-mode))) - -(use-package eldoc - :diminish - :hook ((c-mode-common emacs-lisp-mode) . eldoc-mode) - :custom - (eldoc-idle-delay 1) - (eldoc-documentation-strategy #'eldoc-documentation-default) - (eldoc-echo-area-use-multiline-p 3) - (eldoc-echo-area-prefer-doc-buffer 'maybe) - (eldoc-echo-area-display-truncation-message nil)) - - (use-package hcl-mode - :ensure t - :mode "\.nomad\\'") - -(use-package json-mode - :mode "\\.json\\'") - -(use-package json-reformat - :ensure t - :after json-mode) - -(use-package go-mode - :ensure t - :defer t - :hook ((go-mode . tree-sitter-hl-mode) - (go-mode . eglot-ensure) - (go-mode . (lambda () (setq tab-width 4))) - (go-mode . (lambda () (add-hook 'before-save-hook 'eglot-format-buffer nil t)))) - :bind (:map go-mode-map - ("C-c C-c" . compile))) - -(use-package gotest - :ensure t - :after go-mode - :custom - (go-test-verbose t)) - - (use-package nix-mode - :ensure t - :hook ((nix-mode . eglot-ensure) - (nix-mode . (lambda () (add-hook 'before-save-hook 'eglot-format-buffer nil t)))) - :custom - (nix-indent-function 'nix-indent-line)) - - (use-package protobuf-mode - :ensure t - :mode "\\.proto\\'") - -(use-package python-mode - :hook ((python-mode . tree-sitter-hl-mode) - (python-mode . eglot-ensure)) - :interpreter "python" - :bind (:map python-mode-map - ("C-c c") - ("C-c C-z" . python-shell))) - -(use-package blacken - :ensure t - :hook (python-mode . blacken-mode)) - - (use-package py-isort - :ensure t - :commands (py-isort-buffer py-isort-region)) - - (use-package ruby-mode - :mode "\\.rb\\'" - :interpreter "ruby" - :bind (:map ruby-mode-map - ("" . my-ruby-smart-return)) - :preface - (defun my-ruby-smart-return () - (interactive) - (when (memq (char-after) '(?\| ?\" ?\')) - (forward-char)) - (call-interactively 'newline-and-indent))) - -(use-package sh-script - :defer t - :preface - (defvar sh-script-initialized nil) - - (defun initialize-sh-script () - (unless sh-script-initialized - (setq sh-script-initialized t) - (info-lookup-add-help :mode 'shell-script-mode - :regexp ".*" - :doc-spec '(("(bash)Index"))))) - :init - (add-hook 'shell-mode-hook #'initialize-sh-script)) - -(use-package terraform-mode - :ensure t - :mode "\.tf\\'") - -(use-package toml-mode - :defer t - :ensure t) - -(use-package yaml-mode - :ensure t - :mode "\\.ya?ml\\'") - -(when (memq window-system '(mac ns)) - (add-to-list 'default-frame-alist '(fullscreen . maximized)) - (add-to-list 'default-frame-alist '(ns-appearance . nil)) - (add-to-list 'default-frame-alist '(ns-transparent-titlebar . nil)) - (when (boundp 'ns-use-native-fullscreen) - (setq ns-use-native-fullscreen nil)) - (when (boundp 'mac-allow-anti-aliasing) - (setq mac-allow-anti-aliasing t))) - -(use-package exec-path-from-shell - :ensure t - :demand t - :if (memq window-system '(mac ns)) - :config - (exec-path-from-shell-initialize)) - - (use-package magit - :defer t - :ensure t - :bind (("C-x g" . magit-status) - ("C-x G" . magit-status-with-prefix)) - :custom - (magit-diff-options nil) - (magit-diff-refine-hunk t) - (magit-fetch-arguments nil) - (magit-log-section-commit-count 10) - (magit-pre-refresh-hook nil) - (magit-process-popup-time 15) - (magit-clone-default-directory "~/workspace/") - (magit-section-initial-visibility-alist '((untracked . hide))) - :hook (magit-mode . hl-line-mode) - :config - (use-package magit-commit - :defer t - :config - (use-package git-commit - :custom - (git-commit-major-mode 'markdown-mode) - (git-commit-setup-hook - '(git-commit-save-message - git-commit-turn-on-auto-fill - git-commit-turn-on-flyspell - bug-reference-mode)))) - - (use-package magit-status - :defer t - :config - (dolist (func '(magit-insert-unpushed-to-upstream-or-recent - magit-insert-unpulled-from-pushremote - magit-insert-unpulled-from-upstream - )) - (remove-hook 'magit-status-sections-hook func)) - - (dolist (func '(magit-insert-diff-filter-header - magit-insert-tags-header)) - (remove-hook 'magit-status-headers-hook func)))) - -(use-package markdown-mode - :mode (("\\`README\\.md\\'" . gfm-mode) - ("\\.md\\'" . markdown-mode) - ("\\.markdown\\'" . markdown-mode)) - :custom - (markdown-command "pandoc -f markdown_github+smart") - (markdown-command-needs-filename t) - (markdown-enable-math t) - (markdown-open-command "marked") - :init - (setq markdown-command "multimarkdown")) - - (use-package markdown-preview-mode - :ensure t - :after markdown-mode - :config - (setq markdown-preview-stylesheets - (list (concat "https://github.com/dmarcotte/github-markdown-preview/" - "blob/master/data/css/github.css")))) - -(use-package midnight - :demand t - :bind ("C-c z" . clean-buffer-list) - :custom - (midnight-delay 18000) - (clean-buffer-list-kill-never-buffer-names - '("*scratch*" - "*Messages*" - "*server*" - "*Group*" - "*Org Agenda*" - "todo.org")) - (clean-buffer-list-kill-never-regexps - '("^ \\*Minibuf-.*\\*$" - "^\\*Summary" - "^\\*Article" "^#")) - (clean-buffer-list-kill-regexps '(".*")) - :config - (midnight-mode t)) - +;;; Custom configurations +;; Load custom code under the "lisp" and "config" directories. +(add-to-list 'load-path (expand-file-name "config" user-emacs-directory)) +(add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory)) + +(require 'init-ui) +(require 'init-modeline) +(require 'init-theme) +(require 'init-session) + +(require 'init-osx) + +(require 'init-buffer) +(require 'init-dired) +(require 'init-file) +(require 'init-time) +(require 'init-project) +(require 'init-snippets) +(require 'init-completion) +(require 'init-whitespace) +(require 'init-rg) + +(require 'init-keys) +(require 'init-imenu) +(require 'init-git) + +(require 'init-programming) +(require 'init-writing) +(require 'init-org) +(require 'init-eshell) + +;;; Custom modules (use-package my-cheeseboard) (use-package my-uptime @@ -882,270 +73,6 @@ (slot . 0) (window-width . 0.35)))) - (use-package org - :hook - (org-mode . turn-on-flyspell) - (org-mode . visual-line-mode) - (org-mode . org-indent-mode) - :custom - ;;; general settings - (org-startup-folded t) - (org-startup-indented t) - (org-hide-emphasis-markers t) - (org-hide-leading-stars t) - (org-pretty-entities t) - (org-return-follows-link t) - (org-startup-with-inline-images t) - (org-export-backends '(html md)) - (org-imenu-depth 4) - (org-insert-heading-respect-content t) - (org-outline-path-complete-in-steps nil) - (org-src-fontify-natively t) - (org-src-preserve-indentation t) - (org-src-tab-acts-natively t) - (org-src-window-setup 'current-window) - (org-yank-adjusted-subtrees t) - (org-structure-template-alist - '(("s" . "src") - ("E" . "src emacs-lisp") - ("p" . "src python") - ("e" . "example") - ("q" . "quote") - ("V" . "verbatim"))) - :config - (font-lock-add-keywords 'org-mode - '(("^ *\\(-\\) " - (0 (ignore (compose-region (match-beginning 1) (match-end 1) "•"))))))) - -(use-package org-bullets - :ensure t - :hook (org-mode . org-bullets-mode)) - -(use-package org-auto-tangle - :ensure t - :hook (org-mode . org-auto-tangle-mode)) - -(use-package org-babel - :no-require t - :after (org) - :config - (org-babel-do-load-languages - 'org-babel-load-languages - '((python . t) - (emacs-lisp . t) - (calc . t) - (shell . t) - (sql . t) - (dot . t))) - - (remove-hook 'kill-emacs-hook 'org-babel-remove-temporary-directory) - - (advice-add 'org-babel-edit-prep:emacs-lisp :after - #'(lambda (_info) (run-hooks 'emacs-lisp-mode-hook)))) - -(use-package ox-gfm - :ensure t - :after org) - -(use-package ox-md - :after org) - -(use-package ox-pandoc - :ensure t - :after org - :preface - (defun markdown-to-org-region (start end) - "Convert region from markdown to org, replacing selection" - (interactive "r") - (shell-command-on-region start end "pandoc -f markdown -t org" t t))) - - (use-package project - :ensure nil - :custom - (project-switch-commands - '((project-dired "Root" ?d) - (project-find-file "File" ?f) - (project-switch-to-buffer "Buffer" ?b) - (project-eshell "Shell" ?e) - (magit-project-status "Git" ?g))) - :init - (setq-default project-list-file (user-data "projects.eld"))) - -(use-package recentf - :demand t - :commands (recentf-mode - recentf-add-file - recentf-apply-filename-handlers) - :custom - (recentf-auto-cleanup 60) - (recentf-exclude - '("~\\'" "\\`out\\'" "\\.log\\'" "^/[^/]*:" "\\.el\\.gz\\'" "\\.gz\\'")) - (recentf-max-saved-items 2000) - (recentf-save-file (user-data "recentf")) - :preface - :config - (recentf-mode 1)) - -(use-package restclient - :ensure t - :mode ("\\.rest\\'" . restclient-mode)) - - (use-package rg - :ensure t - :custom ((rg-group-result t) - (rg-show-columns t) - (rg-align-line-number-field-length 3) - (rg-align-column-number-field-length 3) - (rg-align-line-column-separator "#") - (rg-align-position-content-separator "|") - (rg-hide-command nil) - (rg-align-position-numbers t) - (rg-command-line-flags '("--follow")))) - -(use-package savehist - :unless noninteractive - :custom - (savehist-additional-variables - '(file-name-history - kmacro-ring - compile-history - compile-command)) - (savehist-autosave-interval 60) - (savehist-file (user-data "history")) - (savehist-ignored-variables - '(load-history - flyspell-auto-correct-ring - org-roam-node-history - magit-revision-history - org-read-date-history - query-replace-history - yes-or-no-p-history - kill-ring)) - (savehist-mode t) - :config - (savehist-mode 1)) - -(use-package saveplace - :unless noninteractive - :custom - (save-place-file (user-data "places")) - :config - (save-place-mode 1)) - -(use-package modus-themes - :ensure t - :custom - ;; Syntax Highlighting - (modus-themes-bold-constructs t) - (modus-operandi-palette-overrides '((comment red-faint) - (string "#101010") - (bg-main "#FFFCF6"))) - - (modus-themes-italic-constructs t) - - ;; Use mixed fonts - (modus-themes-mixed-fonts t) - (modus-themes-variable-pitch-ui t) - - ;; Enhance minibuffer completions - (modus-themes-prompts '(italic bold)) - (modus-themes-completions '((matches . (extrabold)) - (selection . (semibold italic text-also)))) - - ;; Org Mode - ;;; Make headings in org files more distinct - (modus-themes-headings '((t . (background bold rainbow 1)))) - ;;; Tint the background of code blocks in org files - (modus-themes-org-blocks 'tinted-background) - ;;; Make tags less colorful and tables look the same as - ;;; the default foreground. - (prose-done cyan-cooler) - (prose-tag fg-dim) - (prose-table fg-main) - - ;; Make the fringe more intense - (modus-themes-common-palette-overrides '((fringe bg-active))) - - :config - (load-theme 'modus-operandi t)) - -(use-package time - :custom - (display-time-interval 60) - (display-time-mode t) - (display-time-24hr-format t) - (display-time-day-and-date t) - (display-time-default-load-average nil) - (world-clock-list t) - (world-clock-timer-enable t) - (world-clock-timer-second 60) - ;; UTC => 02:42 +0000 Wednesday 20 April - ;; Berkeley => 19:42 -0700 Tuesday 19 April - (world-clock-time-format "%R %z %A %d %B") - (zoneinfo-style-world-list '(("UTC" "UTC") - ("America/Los_Angeles" "Berkeley") - ("America/Denver" "Mountain Time") - ("America/Chicago" "Central Time") - ("America/New_York" "New York") - ("Europe/London" "London") - ("Europe/Paris" "Paris"))) - :init - (add-to-list 'display-buffer-alist '("\\*wclock\\*" - (display-buffer-in-side-window) - (side . left) - (slot . 0) - (window-width . 0.35)))) - - (use-package tramp - :defer t - :custom - (tramp-default-method "ssh") - (tramp-auto-save-directory "~/.cache/emacs/backups") - (tramp-ssh-controlmaster-options "-o ControlMaster=auto -o ControlPath='tramp.%%C'") - :config - ;; Setting this with `:custom' does not take effect. - (setq tramp-persistency-file-name (user-data "tramp"))) - -(use-package transient - :defer t - :custom - (transient-history-file (user-data "transient/history.el")) - (transient-values-file (user-data "transient/values.el"))) - -(use-package vc - :defer t - :custom - (vc-command-messages t) - (vc-follow-symlinks t)) - -(use-package which-key - :demand t - :diminish - :ensure t - :config - (which-key-mode)) - -(use-package whitespace - :diminish (global-whitespace-mode - whitespace-mode - whitespace-newline-mode) - :commands (whitespace-buffer - whitespace-cleanup - whitespace-mode - whitespace-turn-off) - :init - (dolist (hook '(prog-mode-hook text-mode-hook)) - (add-hook hook #'whitespace-mode)) - :custom - (whitespace-auto-cleanup t t) - (whitespace-rescan-timer-time nil t) - (whitespace-silent t t) - (whitespace-style '(face trailing space-before-tab)) - :defines - (whitespace-auto-cleanup - whitespace-rescan-timer-time - whitespace-silent)) - ;;; Custom Variables (setq custom-file (user-data "customizations.el")) (load custom-file 'noerror) -- cgit 1.4.1