From 974da67ba3b2e04e640e0f911dd923788c32127a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 1 Sep 2020 21:12:21 -0500
Subject: Try to get doom-modleine working
---
init.el | 472 ++++++++++++++++++++++++++++------------------------------------
1 file changed, 209 insertions(+), 263 deletions(-)
diff --git a/init.el b/init.el
index a97ac16..5b6b72c 100644
--- a/init.el
+++ b/init.el
@@ -1,8 +1,90 @@
-;; init.el ~ acdw
-
-(setq custom-file (concat user-emacs-directory "custom.el"))
+;; init.el ~ acdw -*- lexical-binding: t -*-
+
+(setq gc-cons-threshold (* 256 1024 1024))
+(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))
+;; post-init
+(add-hook 'after-init-hook
+ (lambda ()
+ (setq file-name-handler-alist file-name-handler-alist-old)
+ (setq gc-cons-threshold (* 32 1024 1024)))
+ t)
+
+(unless (display-graphic-p)
+ (tool-bar-mode -1)
+ (menu-bar-mode -1))
+(scroll-bar-mode -1)
+(fringe-mode '(7 . 1))
+
+(setq inhibit-startup-buffer-menu t)
+(setq inhibit-startup-screen t)
+(setq inhibit-startup-echo-area-message "acdw")
+(setq initial-buffer-choice t)
+(setq initial-scratch-message nil)
+
+(server-start)
+
+(setq confirm-kill-processes nil)
+
+(setq user-full-name "Case Duckworth")
+(setq user-mail-address "acdw@acdw.net")
+(setq calendar-location-name "Baton Rouge, LA")
+(setq calendar-latitude 30.39)
+(setq calendar-longitude -91.83)
+
+(setq show-paren-style 'mixed)
+(show-paren-mode 1)
+
+(setq backup-directory-alist
+ `((".*" . ,(concat user-emacs-directory "saves/"))))
+(setq delete-old-versions t)
+(setq kept-new-versions 6)
+(setq kept-old-versions 4)
+(setq version-control t)
+
+(setq auto-save-file-name-transforms
+ `((".*" ,(concat user-emacs-directory "saves/") t)))
+(auto-save-mode 1)
+
+(defun full-auto-save ()
+ (interactive)
+ (save-excursion
+ (dolist (buf (buffer-list))
+ (set-buffer buf)
+ (if (and (buffer-file-name) (buffer-modified-p))
+ (basic-save-buffer)))))
+(add-hook 'auto-save-hook 'full-auto-save)
+(add-hook 'focus-out-hook 'full-auto-save) ;; this might be resource intensive?
+
+(setq save-place-file (expand-file-name "places" user-emacs-directory))
+(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
+
+(blink-cursor-mode 0)
+
+(prefer-coding-system 'utf-8)
+(set-default-coding-systems 'utf-8)
+(set-terminal-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+(fset 'yes-or-no-p 'y-or-n-p)
+(global-prettify-symbols-mode t)
+
+(save-place-mode 1)
+
+(global-visual-line-mode 1)
+(delight 'global-visual-line-mode)
+
+(display-battery-mode 1)
+(display-time-mode 1)
+
+(add-hook 'before-save-hook #'delete-trailing-whitespace)
+(add-hook 'prog-mode-hook (lambda ()
+ (if (and (fboundp 'display-line-numbers-mode)
+ (display-graphic-p))
+ #'display-line-numbers-mode
+ #'linum-mode)))
-;;; bootstrap packages
(require 'package)
(setq package-user-dir (concat user-emacs-directory "elpa"))
(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
@@ -22,7 +104,9 @@
(require 'use-package))
(use-package quelpa
- :ensure)
+ :ensure
+ :custom
+ (quelpa-git-clone-depth nil))
(use-package quelpa-use-package
:ensure)
@@ -32,84 +116,107 @@
(use-package use-package-ensure-system-package
:ensure)
-;; emacs
-(use-package emacs
- :custom
- (user-full-name "Case Duckworth")
- (user-mail-address "acdw@acdw.net")
- (inhibit-startup-screen t)
- (initial-scratch-message "")
- (visible-bell nil)
- (frame-title-format
- '((:eval (if (buffer-file-name)
- (abbreviate-file-name (buffer-file-name))
- "%b"))))
- (show-paren-style 'mixed)
- (backup-directory-alist
- `((".*" . ,(concat user-emacs-directory "saves/"))))
- (delete-old-versions t)
- (kept-new-versions 10)
- (kept-old-versions 10)
- (version-control t)
- (auto-save-file-name-transforms
- `((".*" ,(concat user-emacs-directory "saves/") t)))
- (create-lockfiles nil)
- (scroll-conservatively 100)
- (calendar-location-name "Baton Rouge, LA")
- (calendar-latitude 30.39)
- (calendar-longitude -91.83)
- (show-paren-style 'mixed)
- (save-place-file (expand-file-name "places" user-emacs-directory))
- :config
- (blink-cursor-mode 0)
- (delete-selection-mode 1)
- (global-auto-revert-mode t)
- (prefer-coding-system 'utf-8)
- (set-default-coding-systems 'utf-8)
- (set-terminal-coding-system 'utf-8)
- (set-keyboard-coding-system 'utf-8)
- (fset 'yes-or-no-p 'y-or-n-p)
- (global-prettify-symbols-mode t)
- (menu-bar-mode -1)
- (tool-bar-mode -1)
- (scroll-bar-mode -1)
- (fringe-mode 1)
- (show-paren-mode 1)
- (global-visual-line-mode 1)
- (save-place-mode 1)
- :hook
- ((beforpe-save . delete-trailing-whitespace)
- (prog-mode . (lambda ()
- (if (and (fboundp 'display-line-numbers-mode)
- (display-graphic-p))
- #'display-line-numbers-mode
- #'linum-mode))))
- :bind
- (("C-z" . nil)
- ("M-1" . delete-other-windows)
- ("M-o" . mode-line-other-buffer)))
-
-;; async
-(use-package async
+(use-package delight
:ensure)
-;; sudo
-(use-package su
+;; exwm
+(use-package exwm
:ensure
+ :demand
+ :custom
+ (exwm-layout-show-all-buffers t)
+ (mouse-autoselect-window t)
+ (exwm-workspace-number 4)
+ (exwm-input-global-keys
+ `(
+ ([?\s-r] . exwm-reset)
+ ([?\s-w] . exwm-workspace-switch)
+ ([?\s-&] . (lambda (command)
+ (interactive (list (read-shell-command "$ ")))
+ (start-process-shell-command command nil command)))
+ ,@(mapcar (lambda (i)
+ `(,(kbd (format "s-%d" i)) .
+ (lambda ()
+ (interactive)
+ (exwm-workspace-switch-create ,i))))
+ (number-sequence 0 9))))
+ (exwm-input-simulation-keys
+ '(([?\C-b] . [left])
+ ([?\M-b] . [C-left])
+ ([?\C-f] . [right])
+ ([?\M-f] . [C-right])
+ ([?\C-p] . [up])
+ ([?\C-n] . [down])
+ ([?\C-a] . [home])
+ ([?\C-e] . [end])
+ ([?\M-v] . [prior])
+ ([?\C-v] . [next])
+ ([?\C-d] . [delete])
+ ([?\C-k] . [S-end delete])
+ ([?\C-s] . [?\C-f])
+ ([?\C-w] . [?\C-x])
+ ([?\M-w] . [?\C-c])
+ ([?\C-y] . [?\C-v])))
+ :hook
+ ((exwm-update-class .
+ (lambda () "Rename buffer to window's class name"
+ (exwm-workspace-rename-buffer exwm-class-name)))
+ (exwm-update-title .
+ (lambda () "Update workspace name to window title"
+ (when (not exwm-instance-name)
+ (exwm-workspace-rename-buffer exwm-title))))
+ (exwm-init .
+ (lambda () "Autostart"
+ (start-process-shell-command "cmst" nil "cmst -m -w 5")
+ (start-process-shell-command "keepassxc" nil "keepassxc")
+ (start-process-shell-command "pa-applet" nil
+ "pa-applet --disable-key-grabbing --disable-notifications"))))
:config
- (su-mode 1))
+ (require 'exwm)
+ (exwm-enable)
+ (require 'exwm-systemtray)
+ (exwm-systemtray-enable))
-;; delight
-(use-package delight
- :ensure)
+(use-package mini-modeline
+ :quelpa (mini-modeline
+ :repo "kiennq/emacs-mini-modeline"
+ :fetcher github)
+ :delight
+ :custom
+ (mini-modeline-enhance-viusual t)
+ (mini-modeline-display-gui-line t)
+ (mini-modeline-right-padding 7) ;; characters -- for systemtray
+ :config
+ (mini-modeline-mode t))
-;; startup buffer
-(use-package dashboard
+(use-package desktop-environment
:ensure
+ :delight
+ :hook (exwm-init . desktop-environment-mode)
:custom
- (initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
- :config
- (dashboard-setup-startup-hook))
+ (desktop-environment-update-exwm-global-keys :global)
+ (desktop-environment-brightness-get-command "light")
+ (desktop-environment-brightness-set-command "light %s")
+ (desktop-environment-brightness-get-regexp "^\\([0-9]+\\)")
+ (desktop-environment-brightness-normal-increment "-A 10")
+ (desktop-environment-brightness-normal-decrement "-U 10")
+ (desktop-environment-brightness-small-increment "-A 5")
+ (desktop-environment-brightness-small-decrement "-U 5")
+ (desktop-environment-volume-get-command "pavolume get")
+ (desktop-environment-volume-set-command "pavolume %s")
+ (desktop-environment-volume-toggle-command "pavolume mute toggle")
+ (desktop-environment-volume-get-regexp "^\\([0-9]+\\)")
+ (desktop-environment-volume-normal-increment "inc 10")
+ (desktop-environment-volume-normal-decrement "dec 10")
+ (desktop-environment-volume-small-increment "inc 5")
+ (desktop-environment-volume-small-decrement "dec 5"))
+
+(use-package switch-window
+ :ensure
+ :custom
+ (switch-window-shortcut-style 'qwerty)
+ :bind
+ ("M-o" . switch-window))
;; modeline
(use-package all-the-icons
@@ -120,20 +227,27 @@
:custom
(all-the-icons-scale-factor 1.0))
-(use-package doom-modeline
+;; (use-package doom-modeline
+;; :ensure
+;; :custom
+;; (doom-modeline-height 16)
+;; (doom-modeline-icon nil)
+;; (doom-modeline-enable-word-count t)
+;; (doom-modeline-mu4e t)
+;; (doom-modeline-gnus nil)
+;; (doom-modeline-irc t)
+;; :custom-face
+;; (doom-modeline-vspc-face ((t (:inherit nil))))
+;; :config
+;; (doom-modeline-mode t))
+
+(use-package zoom
:ensure
+ :delight
:custom
- (doom-modeline-height 16)
- (doom-modeline-enable-word-count t)
- (doom-modeline-mu4e t)
- (doom-modeline-gnus nil)
- (doom-modeline-irc t)
+ (zoom-size '(0.618 . 0.618))
:config
- (display-time-mode 1)
- (line-number-mode 1)
- (column-number-mode 1)
- (display-battery-mode 1)
- (doom-modeline-mode t))
+ (zoom-mode 1))
;; themes
(use-package modus-operandi-theme
@@ -163,15 +277,11 @@
(lambda () (enable-theme 'modus-vivendi)))
(run-at-time "12am" (* 60 60 24) (lambda () (enable-theme 'modus-vivendi))))
-;; dired hacks: https://github.com/Fuco1/dired-hacks
-(use-package dired-hacks-utils
- :ensure)
-
-(use-package dired-subtree
+;; sudo
+(use-package su
:ensure
- :bind (:map dired-mode-map
- ("i" . dired-subtree-insert)
- (";" . dired-subtree-remove)))
+ :config
+ (su-mode 1))
;; minibuffer completion
(use-package ivy
@@ -208,69 +318,7 @@
:config
(savehist-mode 1))
-;; completion
-(use-package company
- :ensure
- :delight
- :custom
- (company-idle-delay 0.2)
- :hook
- (after-init . global-company-mode))
-
-;; undo
-(use-package undo-tree
- :ensure
- :config
- (global-undo-tree-mode))
-
-;; git
-(use-package magit
- :ensure
- :custom
- (magit-push-always-verify nil)
- (git-commit-summary-max-length 50)
- :bind
- ("M-g" . magit-status))
-
-;; irc
-(defun my/fetch-password (&rest params)
- "fetch a password from auth-sources"
- (require 'auth-source)
- (let ((match (car (apply 'auth-source-search params))))
- (if match
- (let ((secret (plist-get match :secret)))
- (if (functionp secret)
- (funcall secret)
- secret))
- (error "Password not found for %S" params))))
-
-(defun my/sasl-password (nick server)
- "fetch an sasl password for $server"
- (my/fetch-password :user nick :host server))
-
-(use-package circe
- :ensure
- :custom
- (circe-network-options
- `(("Freenode"
- :tls t
- :port 6697
- :nick "acdw"
- :sasl-username "acdw"
- :sasl-password ,(my/sasl-password "acdw" "irc.freenode.net")
- :channels ("#emacs" "#emacs-circe" "#daydreams"))
- ("Tilde.chat"
- :tls t
- :port 6697
- :nick "acdw"
- :sasl-username "acdw"
- :sasl-password ,(my/sasl-password "acdw" "irc.tilde.chat")
- :channels ("#gemini" "#meta"))))
- :custom-face
- (circe-my-message-face ((t (:foreground "dark violet")))))
-
-
-;; mail
+;; mu4e
(use-package mu4e
:ensure-system-package mu ; TODO ensure mu4e is also installed
:load-path "/usr/share/emacs/site-lisp/mu4e"
@@ -302,112 +350,10 @@
(define-key mu4e-headers-mode-map (kbd "d") 'my-move-to-trash)
(define-key mu4e-view-mode-map (kbd "d") 'my-move-to-trash))
-;; gemini/gopher
-(use-package elpher
- :quelpa
- (elpher
- :fetcher git
- :url "git://thelambdalab.xyz/elpher.git"))
-
-(use-package visual-fill-column
+;; try packages out
+(use-package try
:ensure)
-(use-package gemini-mode
- :after visual-fill-column
- :quelpa
- (gemini-mode
- :fetcher git
- :url "https://git.carcosa.net/jmcbray/gemini.el.git"))
-
-(use-package gemini-write
- :after gemini-mode
- :quelpa
- (gemini-write
- :fetcher git
- :url "https://alexschroeder.ch/cgit/gemini-write"))
-
-;; window manager
-(use-package exwm
- :ensure
- :demand
- :custom
- (exwm-layout-show-all-buffers t)
- (mouse-autoselect-window t)
- (focus-follows-mouse t)
- (exwm-workspace-number 4)
- (exwm-input-global-keys
- `(
- ([?\s-r] . exwm-reset)
- ([?\s-w] . exwm-workspace-switch)
- ([?\s-&] . (lambda (command)
- (interactive (list (read-shell-command "$ ")))
- (start-process-shell-command command nil command)))
- ,@(mapcar (lambda (i)
- `(,(kbd (format "s-%d" i)) .
- (lambda ()
- (interactive)
- (exwm-workspace-switch-create ,i))))
- (number-sequence 0 9))))
- (exwm-input-simulation-keys
- '(([?\C-b] . [left])
- ([?\C-f] . [right])
- ([?\C-p] . [up])
- ([?\C-n] . [down])
- ([?\C-a] . [home])
- ([?\C-e] . [end])
- ([?\M-v] . [prior])
- ([?\C-v] . [next])
- ([?\C-d] . [delete])
- ([?\C-k] . [S-end delete])))
- :hook
- ((exwm-update-class .
- (lambda () "Rename buffer to window's class name"
- (exwm-workspace-rename-buffer exwm-class-name)))
- (exwm-update-title .
- (lambda () "Update workspace name to window title"
- (when (not exwm-instance-name)
- (exwm-workspace-rename-buffer exwm-title))))
- (exwm-manage-finish .
- (lambda () "Disable simulation keys for Firefox"
- (when (and exwm-class-name
- (string= exwm-class-name "Firefox"))
- (exwm-input-set-local-simulation-keys nil))))
- (exwm-init .
- (lambda () "Autostart"
- (start-process-shell-command "cmst" nil "cmst -m -w 5")
- (start-process-shell-command "keepassxc" nil "keepassxc")
- (start-process-shell-command "pa-applet" nil
- "pa-applet --disable-key-grabbing --disable-notifications")
- (start-process-shell-command "picom" nil "picom"))))
- :config
- (exwm-enable)
- (require 'exwm-systemtray)
- (exwm-systemtray-enable))
-
-(use-package exwm-mff
- :ensure
- :hook (exwm-init . exwm-mff-mode))
-
-(use-package exwm-edit
+;; vterm babeee
+(use-package vterm
:ensure)
-
-(use-package desktop-environment
- :ensure
- :hook (exwm-init . desktop-environment-mode)
- :custom
- (desktop-environment-update-exwm-global-keys :global)
- (desktop-environment-brightness-get-command "light")
- (desktop-environment-brightness-set-command "light %s")
- (desktop-environment-brightness-get-regexp "^\\([0-9]+\\)")
- (desktop-environment-brightness-normal-increment "-A 10")
- (desktop-environment-brightness-normal-decrement "-U 10")
- (desktop-environment-brightness-small-increment "-A 5")
- (desktop-environment-brightness-small-decrement "-U 5")
- (desktop-environment-volume-get-command "pavolume get")
- (desktop-environment-volume-set-command "pavolume %s")
- (desktop-environment-volume-toggle-command "pavolume mute toggle")
- (desktop-environment-volume-get-regexp "^\\([0-9]+\\)")
- (desktop-environment-volume-normal-increment "inc 10")
- (desktop-environment-volume-normal-decrement "dec 10")
- (desktop-environment-volume-small-increment "inc 5")
- (desktop-environment-volume-small-decrement "dec 5"))
--
cgit 1.4.1-21-gabe81