Massive configuration overhaul
Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
This commit is contained in:
William Carroll
parent
a7c72adb2e
commit
6b456c1b7a
551 changed files with 88587 additions and 1392 deletions
|
|
@ -1,205 +0,0 @@
|
|||
;;; misc.el --- Hosting miscellaneous configuration -*- lexical-binding: t -*-
|
||||
;; Author: William Carroll <wpcarro@gmail.com>
|
||||
|
||||
;;; Commentary:
|
||||
;; This is the home of any configuration that couldn't find a better home.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; disable custom variable entries from being written to ~/.emacs.d/init.el
|
||||
(setq custom-file "~/.emacs.d/custom.el")
|
||||
(load custom-file 'noerror)
|
||||
|
||||
;; integrate Emacs with X11 clipboard
|
||||
(setq x-select-enable-primary t)
|
||||
(setq x-select-enable-clipboard t)
|
||||
(general-def 'insert
|
||||
"s-v" #'x-clipboard-yank
|
||||
"C-S-v" #'x-clipboard-yank)
|
||||
|
||||
;; transparently edit compressed files
|
||||
(auto-compression-mode t)
|
||||
|
||||
;; autowrap when over the fill-column
|
||||
(add-hook 'fundamental-mode-hook 'turn-on-auto-fill)
|
||||
|
||||
;; link to Emacs source code
|
||||
(setq find-function-C-source-directory "~/programming/emacs/src")
|
||||
|
||||
;; change emacs prompts from "yes or no" -> "y or n"
|
||||
(fset 'yes-or-no-p 'y-or-n-p)
|
||||
|
||||
;; open photos in Emacs
|
||||
(auto-image-file-mode 1)
|
||||
|
||||
;; disable line-wrapping
|
||||
(setq-default truncate-lines 1)
|
||||
|
||||
;; shell file indentation
|
||||
(setq sh-basic-offset 2)
|
||||
(setq sh-indentation 2)
|
||||
|
||||
;; disable company mode when editing markdown
|
||||
;; TODO: move this out of wpc-misc.el and into a later file to call
|
||||
;; `(disable company-mode)'
|
||||
(add-hook 'markdown-mode-hook (company-mode -1))
|
||||
|
||||
;; create file bookmarks
|
||||
(set-register ?e '(file . "~/.emacs.d/wpc/packages"))
|
||||
(set-register ?n '(file . "~/programming/nixify/configuration.nix"))
|
||||
(set-register ?d '(file . "~/Dropbox/dotfiles"))
|
||||
(set-register ?s '(file . "~/.slate.js"))
|
||||
(set-register ?D '(file . "~/Dropbox"))
|
||||
(set-register ?o '(file . "~/Dropbox/org/")) ;; TODO: change this to `(getenv "ORG_DIRECTORY")'
|
||||
|
||||
(set-register ?v '(file . "~/.config/nvim/init.vim"))
|
||||
(set-register ?e '(file . "~/.emacs.d/init.el"))
|
||||
(set-register ?z '(file . "~/.zshrc"))
|
||||
(set-register ?a '(file . "~/aliases.zsh"))
|
||||
(set-register ?f '(file . "~/functions.zsh"))
|
||||
(set-register ?l '(file . "~/variables.zsh"))
|
||||
(set-register ?x '(file . "~/.Xresources"))
|
||||
(set-register ?i '(file . "~/.config/i3/config.shared"))
|
||||
(set-register ?m '(file . "~/.tmux.conf"))
|
||||
|
||||
(set-register ?p `(file . ,wpc/current-project))
|
||||
|
||||
;; persist history etc b/w Emacs sessions
|
||||
(setq desktop-save 'if-exists)
|
||||
(desktop-save-mode 1)
|
||||
(setq desktop-globals-to-save
|
||||
(append '((extended-command-history . 30)
|
||||
(file-name-history . 100)
|
||||
(grep-history . 30)
|
||||
(compile-history . 30)
|
||||
(minibuffer-history . 50)
|
||||
(query-replace-history . 60)
|
||||
(read-expression-history . 60)
|
||||
(regexp-history . 60)
|
||||
(regexp-search-ring . 20)
|
||||
(search-ring . 20)
|
||||
(shell-command-history . 50)
|
||||
tags-file-name
|
||||
register-alist)))
|
||||
|
||||
;; config Emacs to use $PATH values
|
||||
(use-package exec-path-from-shell
|
||||
:if (memq window-system '(mac ns))
|
||||
:config
|
||||
(exec-path-from-shell-initialize))
|
||||
|
||||
;; Emacs autosave, backup, interlocking files
|
||||
(setq auto-save-default nil
|
||||
make-backup-files nil
|
||||
create-lockfiles nil)
|
||||
|
||||
;; ensure code wraps at 80 characters by default
|
||||
(setq-default fill-column wpc/fill-column)
|
||||
|
||||
(put 'narrow-to-region 'disabled nil)
|
||||
|
||||
;; trim whitespace on save
|
||||
(add-hook 'before-save-hook #'delete-trailing-whitespace)
|
||||
|
||||
;; use tabs instead of spaces
|
||||
(setq-default indent-tabs-mode nil)
|
||||
|
||||
;; automatically follow symlinks
|
||||
(setq vc-follow-symlinks t)
|
||||
|
||||
;; fullscreen settings
|
||||
(setq ns-use-native-fullscreen nil)
|
||||
|
||||
;; auto-close parens, brackets, quotes
|
||||
(electric-pair-mode 1)
|
||||
|
||||
(use-package oauth2
|
||||
:init
|
||||
;; necessary to remove warnings: https://emacs.stackexchange.com/questions/37036/where-are-these-variables-defined-bytecomp-warnings
|
||||
(defvar url-http-extra-headers ())
|
||||
(defvar oauth--token-data ())
|
||||
(defvar url-callback-function ())
|
||||
(defvar url-callback-arguments ()))
|
||||
|
||||
; (use-package smex
|
||||
; :config
|
||||
; (general-define-key "M-x" #'smex)
|
||||
; (general-add-hook 'ido-setup-hook #'wpc/bind-ido-keys)
|
||||
; (smex-initialize))
|
||||
|
||||
(use-package flx-ido
|
||||
:after (smex)
|
||||
:config
|
||||
(flx-ido-mode 1)
|
||||
(setq ido-enable-flex-matching t
|
||||
ido-use-faces nil))
|
||||
|
||||
(use-package swiper
|
||||
:config
|
||||
(general-define-key
|
||||
"C-s" #'swiper
|
||||
"C-r" #'swiper))
|
||||
|
||||
(use-package yasnippet
|
||||
:config
|
||||
(yas-global-mode 1))
|
||||
|
||||
(use-package ace-window
|
||||
:config
|
||||
(general-define-key "C-x o" #'ace-window)
|
||||
(setq aw-keys '(?a ?s ?d ?f ?j ?k ?k ?\;)))
|
||||
|
||||
(use-package projectile
|
||||
:config
|
||||
(projectile-mode t))
|
||||
|
||||
(use-package counsel
|
||||
:config
|
||||
(defun wpc/counsel-git-grep ()
|
||||
(interactive)
|
||||
(let ((maybe-symbol (wpc/string-symbol-at-point)))
|
||||
(if (string= maybe-symbol "nil")
|
||||
(counsel-git-grep)
|
||||
(counsel-git-grep nil maybe-symbol)))))
|
||||
|
||||
;; search Google, Stackoverflow from within Emacs
|
||||
(use-package engine-mode
|
||||
:config
|
||||
(defengine google
|
||||
"http://www.google.com/search?ie=utf-8&oe=utf-8&q=%s"
|
||||
:keybinding "g")
|
||||
(defengine stack-overflow
|
||||
"https://stackoverflow.com/search?q=%s"
|
||||
:keybinding "s"))
|
||||
|
||||
;; Microsoft's Language Server Protocol (LSP)
|
||||
(use-package lsp-ui
|
||||
:config
|
||||
(add-hook 'lsp-mode-hook #'lsp-ui-mode))
|
||||
(use-package company-lsp
|
||||
:config
|
||||
(push 'company-lsp company-backends))
|
||||
|
||||
(defun wpc/frame-name ()
|
||||
"Return the name of the current frame."
|
||||
(frame-parameter nil 'name))
|
||||
|
||||
;; Having difficulty starting the server using systemd or calling
|
||||
;; `emacs --daemon' in ~/.profile, ~/.xsessionrc, and similar files.
|
||||
|
||||
;; systemd has issues syncing the socket-name, so it becomes messy. I also
|
||||
;; experienced strange initialization where things like wpc-org and other
|
||||
;; modules wouldn't get loaded.
|
||||
;;
|
||||
;; Even if I resolved the socket-name resolution issue, I couldn't find an
|
||||
;; elegant way to reuse GUI frames. GUIs for me have the advantage of supporting
|
||||
;; True Color, support additional keys for KBDs (i.e. super), and aren't limited
|
||||
;; by the terminal for rendering certain things.
|
||||
;;
|
||||
;; For these reasons, it seems preferable to start the server from here. I'm
|
||||
;; considering starting emacs in my ~/.xsessionrc so that the server will be
|
||||
;; running after X initializes.
|
||||
(server-start)
|
||||
|
||||
(provide 'wpc-misc)
|
||||
;;; wpc-misc.el ends here
|
||||
Loading…
Add table
Add a link
Reference in a new issue