From 399df088966f124afde2a1faa241f0edc35c74ab Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 22 Oct 2020 20:55:21 -0500 Subject: I .. DECLARE .. BANKRUPTCY!! Why? Do you ask? I'll tell you why. awk-mode was mysteriously freezing up the whole dang program, and when I emacs -Q 'd to see what it was, it started SO FAST. So. Fast. So here we are. Trying this again. --- early-init.el | 61 +---- init.el | 744 ++++++---------------------------------------------------- 2 files changed, 77 insertions(+), 728 deletions(-) diff --git a/early-init.el b/early-init.el index b0314ae..5e9d585 100644 --- a/early-init.el +++ b/early-init.el @@ -1,72 +1,23 @@ -;;; early-init.el ~ acdw -*- lexical-binding: t; no-byte-compile: t -*- - -;;; Commentary: -;; `early-init.el' is new as of Emacs 27.1. It contains ... /early initiation/. -;; What does that mean? Who knows. What I /do know/ is that it runs /before/ -;; `package.el' is loaded, so I can stop it from loading, since I use `straight.el'. -;; Other than that, there's some other init stuff that needs to happen as early -;; as possible -- think bootstrap-level. - -;;; Settings - -;; (setq debug-on-error t) +;;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*- (setq load-prefer-newer t) -;;; Speed up startup -(setq gc-cons-threshold most-positive-fixnum) -(defconst *acdw/gc-cons* 800000 "'Regular' garbage collection amount") - -(defvar file-name-handler-alist-old file-name-handler-alist) -(setq file-name-handler-alist nil) - -(setq message-log-max 16384) -(setq byte-compile-warnings - '(not free-vars unresolved noruntime lexical make-local)) - -;;; Restore stuff after startup -(add-hook 'after-init-hook - (lambda () - (setq file-name-handler-alist file-name-handler-alist-old) - (setq gc-cons-threshold *acdw/gc-cons*) - (garbage-collect)) - t) - -;;; Define the platforms I work on -(defconst *acdw/at-work* (eq system-type 'windows-nt)) -(defconst *acdw/at-larry* (string= (system-name) "larry")) -(defconst *acdw/at-bax* (string= (system-name) "bax")) -(defconst *acdw/at-home* (or *acdw/at-larry* *acdw/at-bax*)) - -;;;; When at work, I have to use Portable Git. -(when *acdw/at-work* - (add-to-list 'exec-path "~/bin") - (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin")) - -;;; `straight.el' ~ github.com/raxod502/straight.el - -;;;; Bootstrap -;; NOTE: this doesn't work on Windows (download straight directly) +;;; Bootstrap `straight.el' (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" - user-emacs-directory)) + 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) + (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)) ;;; Bootstrap `use-package' -(setq-default use-package-verbose nil - use-package-expand-minimally t - use-package-enable-imenu-support t - use-package-hook-name-suffix nil) - (straight-use-package 'use-package) (setq straight-use-package-by-default t) diff --git a/init.el b/init.el index b7de877..60f854a 100644 --- a/init.el +++ b/init.el @@ -1,243 +1,29 @@ -;;; init.el -*- lexical-binding: t; coding: utf-8; fill-column: 70 -*- -;;; Commentary: -;; I /was/ going to convert this to org-mode, but then I found this -;; page: https://yiufung.net/post/pure-emacs-lisp-init-skeleton/, -;; which pointed out that I could use `outline-minor-mode' (or in my case, -;; `outshine') to fold and navigate a pure-elisp `init.el'. So that's -;; what I'm doing. - -;;; Custom Functions -(defun acdw/split-and-follow-window-below () - "Split the window below and switch to the split." - (interactive) - (split-window-below) - (balance-windows) - (other-window 1)) - -(defun acdw/split-and-follow-window-right () - "Split the window right and switch to the split." - (interactive) - (split-window-right) - (balance-windows) - (other-window 1)) - -(defun acdw/kill-this-buffer () - "Kill the current buffer." - (interactive) - (kill-buffer nil)) - -;; https://bling.github.io/blog/2016/01/18/why-are-you-changing-gc-cons-threshold/ -(defun acdw/stop-gc () - "Stop garbage collection by setting it to a very high number." - (setq gc-cons-threshold most-positive-fixnum)) - -(defun acdw/start-gc () - "Start garbage collection by resetting it to `*acdw/gc-cons*'." - (setq gc-cons-threshold *acdw/gc-cons*)) - -(defun post-to-gemlog-blue (post-title user pass) - "Post current buffer to gemlog.blue." - (interactive - (let* ((title-maybe (progn ;; TODO this is ... clunky - (goto-char (point-min)) - (if (re-search-forward "^# \\(.*\\)" nil t) - (buffer-substring-no-properties - (match-beginning 1) - (match-end 1)) - ""))) - (title (read-string - (format "Title%s: " - (if (string= "" title-maybe) - "" - (concat " (" title-maybe ")"))) - nil nil title-maybe)) - (user (read-string "User: " nil)) - (pass (read-passwd "Pass: " nil))) - (list title user pass))) - - (require 'mm-url) - (let ((url-request-method "POST") - (url-request-extra-headers - '(("Content-Type" . "application/x-www-form-urlencoded"))) - (url-request-data - (mm-url-encode-www-form-urlencoded - `(("title" . ,post-title) - ("gemloguser" . ,user) - ("pw" . ,pass) - ("post" . ,(buffer-string)))))) - (with-current-buffer - (url-retrieve-synchronously "https://gemlog.blue/post.php") - (goto-char (point-min)) - (re-search-forward "\\(gemini://.*\\.gmi\\)") - (elpher-go (match-string 1))))) - -;;; Basic emacs config & built-in packages -;;;; /Really/ basic emacs config -(use-package emacs - :straight nil - :demand t - :custom - ;; completion - (completion-ignore-case t) - (read-buffer-completion-ignore-case t) - (read-file-name-completion-ignore-case t) - ;; etc. - (indent-tabs-mode nil "Indentation won't insert tabs.") - (visible-bell (not *acdw/at-larry*) "Don't ring a bell, unless at larry.") - (use-dialog-box nil "Ask questions in the modeline.") - (disabled-command-function nil) - (mark-even-if-inactive nil "Don't use the mark when inactive.") - ;; paragraphs - (sentence-end-double-space t "Sentences end with two spaces.") - ;; cursor - (cursor-type 'bar) - (cursor-in-non-selected-windows 'hollow) - (default-frame-alist '((tool-bar-lines . 0) - (menu-bar-lines . 0) - (vertical-scroll-bars . nil) - (horizontal-scroll-bars . nil) - (right-divider-width . 2) - (bottom-divider-width . 2) - (left-fringe-width . 2) - (right-fringe-width . 2))) - (inhibit-startup-buffer-menu t) - (inhibit-startup-screen t) - (initial-buffer-choice t "Start out in *scratch*.") - (initial-scratch-message nil) - :config - (fset 'yes-or-no-p 'y-or-n-p) - (blink-cursor-mode 0) - :bind - ("C-z" . nil) - ("C-x k" . acdw/kill-this-buffer) - ("C-x K" . kill-buffer) - :hook - (prog-mode-hook . prettify-symbols-mode) - (before-save-hook . delete-trailing-whitespace) - (minibuffer-setup-hook . acdw/stop-gc) - (minibuffer-exit-hook . acdw/start-gc)) - -(use-package calendar - :straight nil - :custom - (calendar-location-name "Baton Rouge, LA") - (calendar-latitude 30.39) - (calendar-longitude -91.83)) - -(use-package browse-url - :straight nil - :custom - (browse-url-browser-function 'browse-url-firefox) - (browse-url-new-window-flag t) - (browse-url-firefox-new-window-is-tab t)) +;;; init.el -*- lexical-binding: t; coding: utf-8; -*- -(use-package paren - :straight nil - :custom - (show-paren-style 'mixed) - :config - (show-paren-mode)) - -(use-package simple - :straight nil - :custom - (save-interprogram-paste-before-kill - t "Save existing clipboard text into killring before replacing it.") - :config - (global-visual-line-mode)) - -(use-package delsel - :straight nil - :config - (delete-selection-mode)) - -(use-package display-line-numbers - :straight nil - :when (and (fboundp 'display-line-numbers-mode) - (display-graphic-p)) - :hook - (prog-mode-hook . display-line-numbers-mode)) - -(use-package linum - :straight nil - :unless (and (fboundp 'display-line-numbers-mode) - (display-graphic-p)) - :hook - (prog-mode-hook . linum-mode)) - -(use-package mule - :straight nil - :init - (set-charset-priority 'unicode) - (set-language-environment "UTF-8") - (set-default-coding-systems 'utf-8) - (set-terminal-coding-system 'utf-8) - (set-keyboard-coding-system 'utf-8) - (set-selection-coding-system 'utf-8) - (prefer-coding-system 'utf-8) - :custom - (default-buffer-file-coding-system 'utf-8) - (default-process-coding-system '(utf-8-unix . utf-8-unix)) - (locale-coding-system 'utf-8)) - -(use-package mouse - :straight nil - :custom - (mouse-yank-at-point t "Yank at point instead of click.")) - -(use-package files - :straight nil - :custom - (require-final-newline t) - (confirm-kill-processes nil) - (confirm-kill-emacs nil) - :bind - ("C-x f" . find-file)) - -(use-package window - :straight nil - :bind - ([remap split-window-below] . acdw/split-and-follow-window-below) - ([remap split-window-right] . acdw/split-and-follow-window-right)) +;;; Commentary: +;; BANKRUPT_SCORE: 1 +;; ^ the number of times I've declared Emacs bankruptcy. +;; Does this mean I'm part of the cool kids now? -;;;; Keep .emacs.d clean -;; load this early for other packages to use -(use-package no-littering - :demand - :custom - (create-lockfiles nil) - (delete-old-versions t) - (kept-new-versions 6) - (kept-old-versions 2) - (version-control t) - :config - (setq custom-file (no-littering-expand-etc-file-name "custom.el")) - (setq backup-directory-alist - `((".*" . ,(no-littering-expand-var-file-name "backup/"))))) +;;; Macros +(defmacro cuss (var val) + "Basically `use-package' `:custom' but without either." + `(progn + (funcall (or (get ',var 'custom-set) #'set-default) + ',var ,val))) -;;;; Uniquily name buffers -(use-package uniquify - :straight nil - :custom - (uniquify-buffer-name-style 'forward)) +;;; Files +;; keep `emacs-user-directory' tidy +(use-package no-littering) -;;;; Use async when possible -(use-package async - :config ;; not sure when this is loaded - (dired-async-mode)) +;; don't clutter `init.el' with customize crap +(cuss custom-file (no-littering-expand-etc-file-name "custom.el")) -;;;; Autocompile elisp files (like this one) -(use-package auto-compile - :custom - (load-prefer-newer t) - :init - (defun acdw/setup-auto-compile () - (auto-compile-on-load-mode) - (auto-compile-on-save-mode)) - :hook - (emacs-lisp-mode-hook . acdw/setup-auto-compile)) +;; backups +(cuss backup-directory-alist + `((".*" . ,(no-littering-expand-var-file-name "backup/")))) -;;;; Recent files +;; recent files (use-package recentf :config (add-to-list 'recentf-exclude no-littering-var-directory) @@ -246,469 +32,81 @@ (recentf-max-menu-items 100) (recentf-max-saved-items 100) :config - (recentf-mode)) + (recentf-mode +1)) -;;;; Save places in files +;;; Save/Restore +;; save places in files (use-package saveplace :custom (save-place-file (no-littering-expand-var-file-name "places")) - (save-place-forget-unreadable-files (not *acdw/at-work*)) :config - (save-place-mode)) + (save-place-mode +1)) -;;;; Save history of commands, etc. +;; save history of variables (use-package savehist :custom (savehist-additional-variables '(kill-ring search-ring regexp-search-ring)) - (savehist-mode)) - -;;;; Authority sources for logins -;; TODO: use gpg -(use-package auth-source - :init - (setq auth-sources '("~/.authinfo")) - (setq user-full-name "Case Duckworth") - (setq user-mail-address "acdw@acdw.net")) - -;;; General-ish Packages -;;;; General improvements -;;;;; Better auto-save -(use-package super-save - :custom - (auto-save-default nil) - (super-save-auto-save-when-idle t) - (super-save-exclude '(".gpg")) - :config - (super-save-mode)) - -;;;;; Restart emacs /from within/ emacs -(use-package restart-emacs) - -;;;; User interface -;;;;; Pop-up help for keys -(use-package which-key - :custom - (which-key-enable-extended-define-key t) - :config - (which-key-mode)) - -;;;;; A better help buffer -(use-package helpful - :bind - ("C-h f" . helpful-callable) - ("C-h v" . helpful-variable) - ("C-h k" . helpful-key) - ("C-c C-d" . helpful-at-point) - ("C-h F" . helpful-function) - ("C-h C" . helpful-command)) - -;;;;; A better `outline-mode' -(use-package outshine - :custom - (outshine-cycle-emulate-tab t) - :bind (:map outshine-mode-map - ("" . outshine-cycle-buffer) - ("" . outshine-cycle-buffer)) - :hook - (emacs-lisp-mode-hook . outshine-mode)) - -;;;;; Item selection & narrowing -(use-package selectrum - :custom - (enable-recursive-minibuffers t) - :init - (minibuffer-depth-indicate-mode) - :config - (selectrum-mode)) - -(use-package prescient - :config - (prescient-persist-mode)) - -(use-package selectrum-prescient - :config - (selectrum-prescient-mode)) - -;;;;; Searching -(use-package ctrlf - :custom - (ctrlf-show-match-count-at-eol nil) - :config - (ctrlf-mode)) - -;;;;; Visually switch windows -(use-package ctrlxo - :straight (ctrlxo - :host github - :repo "muffinmad/emacs-ctrlxo") - :bind - ([remap other-window] . ctrlxo)) - -;;;;; Undo-Fu -(use-package undo-fu - :bind - ("C-/" . undo-fu-only-undo) - ("C-?" . undo-fu-only-redo)) - -(use-package undo-fu-session - :after no-littering - :custom - (undo-fu-session-incompatible-files - '("/COMMIT_EDITMSG\\'" - "/git-rebase-todo\\'")) - (undo-fu-session-directory - (no-littering-expand-var-file-name "undos/")) - :config - (global-undo-fu-session-mode)) - -;;;; Theming, looks, fonts -;;;;; Fonts -;; https://github.com/kaushalmodi/.emacs.d/blob/master/init.el#L376 -;; modi/font-check -(defun acdw/setup-fonts () - (let* ((fixed-pitch-sans-serif-family - (cond - ((x-list-fonts "Fantasque Sans Mono") '(:family "Fantasque Sans Mono" - :height 110)) - ((x-list-fonts "Fira Code") '(:family "Fira Code")) - ((x-list-fonts "Consolas") '(:family "Consolas")) - ((x-list-fonts "DejaVu Sans Mono") '(:family "DejaVu Sans Mono")) - ((x-list-fonts "Fixed") '(:family "Fixed")) - (nil (warn "Can't find a good fixed pitch sans-serif font.")))) - (fixed-pitch-serif-family - (cond ((x-list-fonts "Go Mono") '(:family "Go Mono")) - ((x-list-fonts "Courier Prime") '(:family "Courier Prime")) - ((x-list-fonts "Courier New") '(:family "Courier New")) - ((x-list-fonts "Courier") '(:family "Courier")) - (nil (warn "Can't find a good fixed pitch serif font.")))) - (variable-pitch-sans-serif-family - (cond ((x-list-fonts "DejaVu Sans") '(:family "DejaVu Sans")) - ((x-list-fonts "Go") '(:family "Go")) - ((x-list-fonts "Arial") '(:family "Arial")) - (nil (warn "Cant't find a good variable pitch sans-serif font.")))) - (variable-pitch-serif-family - (cond ((x-list-fonts "DejaVu Serif") '(:family "DejaVu Serif")) - ((x-list-fonts "Georgia") '(:family "Georgia")) - ((x-list-fonts "Times New Roman") '(:family "Times New Roman")) - ((x-list-fonts "Times") '(:family "Times")) - (nil (warn "Can't find a good variable pitch serif font.")))) - - (fixed-pitch-family fixed-pitch-sans-serif-family) - (variable-pitch-family variable-pitch-serif-family) - (default-family fixed-pitch-family)) - (custom-theme-set-faces - 'user - `(fixed-pitch ((t (,@fixed-pitch-family)))) - `(fixed-pitch-serif ((t (,@fixed-pitch-serif-family)))) - `(variable-pitch ((t (,@variable-pitch-family)))) - `(default ((t (,@default-family)))))) - (remove-hook 'focus-in-hook #'acdw/setup-fonts)) -(add-hook 'focus-in-hook #'acdw/setup-fonts) - -;;;;; Modeline -(use-package doom-modeline - :custom - (doom-modeline-icon nil) - (doom-modeline-enable-word-count t) - :hook - (after-init-hook . doom-modeline-mode)) - -;;;;; Ligatures -(use-package ligature - :straight (ligature - :host github - :repo "mickeynp/ligature.el") - :config - (ligature-set-ligatures 'prog-mode - '("++" "--" "/=" "&&" "||" "||=" - "->" "=>" "::" "__" - "==" "===" "!=" "=/=" "!==" - "<=" ">=" "<=>" - "/*" "*/" "//" "///" - "\\n" "\\\\" - "<<" "<<<" "<<=" ">>" ">>>" ">>=" - "|=" "^=" - "**" "--" "---" "----" "-----" - "==" "===" "====" "=====" - "" "-->" "/>" - ":=" "..." ":>" ":<" ">:" "<:" - "::=" ;; add others here - )) - :config - (global-ligature-mode)) - -;;;;; Unicode -(use-package unicode-fonts :config - (unicode-fonts-setup)) - -;;;;; Modus themes + (savehist-mode +1)) + +;;; Buffers +;; uniquely name buffers +(cuss uniquify-buffer-name-style 'forward) + +;;; UI +;; frame defaults +(cuss default-frame-alist '((tool-bar-lines . 0) + (menu-bar-lines . 0) + (vertical-scroll-bars . nil) + (horizontal-scroll-bars . nil) + (right-divider-width . 2) + (bottom-divider-width . 2) + (left-fringe-width . 2) + (right-fringe-width . 2))) + +;; cursor +(cuss cursor-type 'bar) +(cuss cursor-in-non-selected-windows 'hollow) +(blink-cursor-mode 0) + +;; mouse +(cuss mouse-yank-at-point t) ; yank at the point instead of where clicked + +;; startup screen +(cuss inhibit-startup-buffer-menu t) +(cuss inhibit-startup-screen t) +(cuss initial-buffer-choice t) ; start in *scratch* +(cuss initial-scratch-message nil) + +;; interactivity +(fset 'yes-or-no-p #'y-or-n-p) + +;; themes (use-package modus-operandi-theme :config - (load-theme 'modus-operandi t t) - - (defun acdw/sunrise () - (enable-theme 'modus-operandi)) - - (if *acdw/at-work* - (enable-theme 'modus-operandi) - (run-at-time (nth 1 (split-string (sunrise-sunset))) - (* 60 60 24) #'acdw/sunrise))) - -(when *acdw/at-home* - (use-package modus-vivendi-theme - :config - (load-theme 'modus-vivendi t t) - - (defun acdw/sunset () - (enable-theme 'modus-vivendi)) - - (run-at-time (nth 4 (split-string (sunrise-sunset))) - (* 60 60 24) #'acdw/sunset) - (run-at-time "12am" (* 60 60 24) #'acdw/sunset))) - -;;;;; Convert ^L to a line -(use-package page-break-lines - :config - (global-page-break-lines-mode)) - -;;;; General text editing -;;;;; Jump to characters fast -(use-package avy - :bind - ("C-'" . avy-goto-char-timer)) - -;;;;; Show text commands acted on -(use-package volatile-highlights - :config - (volatile-highlights-mode)) - -;;;;; Visual replacement for `zap-to-char' -(use-package zop-to-char - :bind - ([remap zap-to-char] . zop-to-char) - ([remap zap-up-to-char] . zop-up-to-char)) + (load-theme 'modus-operandi t)) -;;;;; Kill & mark things more visually -(use-package easy-kill - :bind - ([remap kill-ring-save] . easy-kill) - ([remap mark-sexp] . easy-mark)) +;;; Text editing +;; visual line mode +(global-visual-line-mode +1) -;;;;; Operate on the current line if no region is active -(use-package whole-line-or-region - :config - (whole-line-or-region-global-mode)) +;; delete the selection when typing +(delete-selection-mode +1) -;;;;; Expand region -(use-package expand-region - :bind - ("C-=" . er/expand-region)) +;; clipboard +(cuss save-interprogram-paste-before-kill t) ; save existing clipboard text to kill ring before replacing it -;;;; Programming -;;;;; Code completion -(use-package company - :custom - (company-idle-delay 0.1) - (company-show-numbers t) - :config - (let ((map company-active-map)) - (mapc (lambda (x) - (define-key map (format "%d" x) - `(lambda () - (interactive) - (company-complete-number ,x)))) - (number-sequence 0 9))) - :hook - (prog-mode-hook . company-mode) - :bind (:map company-active-map - ("C-n" . company-select-next) - ("C-p" . company-select-previous))) - -(use-package company-quickhelp - :hook - (company-mode-hook . company-quickhelp-local-mode)) - -(use-package company-prescient - :hook - (company-mode-hook . company-prescient-mode)) - -;;;;; Git integration +;;; Programming +;; Git (use-package magit - :when *acdw/at-home* :bind ("C-x g" . magit-status) :config (add-to-list 'magit-no-confirm 'stage-all-changes)) -;; use libgit to speed up magit, only when cmake is available (when (executable-find "cmake") (use-package libgit) - - (use-package magit-libgit - :after (magit libgit)) - ) - -(use-package forge - :when *acdw/at-home* - :after magit - :config - (setq forge-owned-accounts '(("duckwork")))) - -;;;;; Code formatting & display -(use-package format-all - :hook - (prog-mode-hook . format-all-mode)) - -;;;;;; Smartly deal with pairs -(use-package smartparens - :init - (defun acdw/setup-smartparens () - (require 'smartparens-config) - (smartparens-mode)) - :hook - (prog-mode-hook . acdw/setup-smartparens)) - -;;;;;; Show delimiters as different colors -(use-package rainbow-delimiters - :hook - (prog-mode-hook . rainbow-delimiters-mode)) - -;;;;;; Show colors as they appear in the buffer -(use-package rainbow-mode - :hook - (prog-mode-hook . rainbow-mode)) - -;;;; Writing -;;;;; `fill-column', but in `visual-line-mode' -(use-package visual-fill-column - :custom - (split-window-preferred-function 'visual-fill-column-split-window-sensibly) - (visual-fill-column-center-text t) - :config - (advice-add 'text-scale-adjust - :after #'visual-fill-column-adjust)) - -;;;; Machine-specific -;;;;; Linux at home -(when *acdw/at-home* -;;;;;; Edit files with `sudo' (I think?) - (use-package su - :config - (su-mode)) - -;;;;;; Implement XDG Trash specification - (use-package trashed - :custom - (delete-by-moving-to-trash t)) - -;;;;;; Build exec-path from $PATH - (use-package exec-path-from-shell - :demand - :config - (exec-path-from-shell-initialize)) - ) - -;;; Specialized packages -;;;; Gemini & Gopher -(use-package elpher - :straight (elpher - :repo "git://thelambdalab.xyz/elpher.git") - :bind (:map elpher-mode-map - ("n" . elpher-next-link) - ("p" . elpher-prev-link) - ("o" . elpher-follow-current-link) - ("G" . elpher-go-current)) - :init - (defun acdw/setup-elpher () - (variable-pitch-mode) - (set-fill-column 100) - (visual-fill-column-mode)) - :hook (elpher-mode-hook . acdw/setup-elpher)) - -(use-package gemini-mode - :straight (gemini-mode - :repo "https://git.carcosa.net/jmcbray/gemini.el.git") - :init - (defun acdw/setup-gemini-mode () - (set-fill-column 100) - (visual-fill-column-mode)) - :hook (gemini-mode-hook . acdw/setup-gemini-mode)) - -(use-package gemini-write - :straight (gemini-write - :repo "https://alexschroeder.ch/cgit/gemini-write")) - -;;;; org-mode -(use-package org - :custom - (org-startup-indented t) - (org-src-tab-acts-natively t) - (org-hide-emphasis-markers t) - (org-fontify-done-headline t) - (org-hide-leading-stars t) - (org-pretty-entities t) - :config - (font-lock-add-keywords 'org-mode - '(("^ *\\([-+*]\\) " - (0 (prog1 () (compose-region (match-beginning 1) - (match-end 1) - "•")))))) - :hook - (org-mode-hook . variable-pitch-mode)) - -(use-package org-bullets - :hook - (org-mode-hook . org-bullets-mode)) - -;;;; SLIME -- for LISP -(use-package slime - :custom - (inferior-lisp-program (cond ((executable-find "sbcl") - (executable-find "sbcl"))))) - -;;;; Lua -(use-package lua-mode - :mode "\\.lua\\'" - :interpreter "lua") - -;;;; Fennel -(use-package fennel-mode - :mode "\\.fnl\\'") - -;;;; Web-mode -(use-package web-mode - :custom - (web-mode-markup-indent-offset 2) - (web-mode-code-indent-offset 2) - (web-mode-css-indent-offset 2) - :mode (("\\.ts\\'" . web-mode) - ("\\.html?\\'" . web-mode) - ("\\.css?\\'" . web-mode) - ("\\.js\\'" . web-mode)) - :init - (defun acdw/setup-web-mode () - (set (make-local-variable 'company-backends - '(company-css - company-web-html - company-files)))) - :hook - (web-mode-hook . acdw/setup-web-mode)) - -(use-package emmet-mode - :init - (defun acdw/setup-emmet-in-web-mode () - (let ((web-mode-cur-language - (web-mode-language-at-pos))) - (if (string= web-mode-cur-language "css") - (setq emmet-use-css-transform t) - (setq emmet-use-css-transform nil)))) - :hook - (web-mode-hook . emmet-mode) - (web-mode-before-auto-complete-hooks . acdw/setup-emmet-in-web-mode)) - -(provide 'init) -;;; init.el ends here + (use-package magit-libgit)) -- cgit 1.4.1-21-gabe81