1 changed files with 181 additions and 159 deletions
@ -1,159 +1,181 @@ |
|||
;; Set enironment information |
|||
(setq user-full-name "Drew Short") |
|||
(setq user-email-address "warrick@sothr.com") |
|||
|
|||
;; Set UTF-8 as the default encoding |
|||
(prefer-coding-system 'utf-8) |
|||
(setq coding-system-for-read 'utf-8) |
|||
(setq coding-system-for-write 'utf-8) |
|||
|
|||
;; Load common lisp |
|||
(require 'cl) |
|||
|
|||
;; Package management |
|||
(load "package") |
|||
(package-initialize) |
|||
|
|||
;; Theme packages |
|||
(defvar sothr/themes '(cyberpunk-theme) "Themes") |
|||
|
|||
;; Tool packages |
|||
(defvar sothr/tools '(auto-complete |
|||
better-defaults |
|||
gist |
|||
projectile |
|||
magit |
|||
neotree |
|||
slime) |
|||
"Tools") |
|||
|
|||
;; Additional mode packages |
|||
(defvar sothr/modes '(markdown-mode |
|||
go-mode |
|||
rust-mode |
|||
yaml-mode) |
|||
"Modes") |
|||
|
|||
;; Org mode specific packages |
|||
(defvar sothr/org '(org |
|||
org-ac |
|||
org-autolist |
|||
org-bullets |
|||
org-doing) |
|||
"Org Mode Packages") |
|||
|
|||
;; Combine the package lists |
|||
(defvar sothr/packages (append sothr/tools sothr/modes sothr/org) "Default Packages") |
|||
|
|||
;; Repositories |
|||
(add-to-list 'package-archives |
|||
'("melpa" . "http://melpa.milkbox.net/packages/") t) |
|||
|
|||
(setq package-archive-enable-alist '(("melpa" deft magit))) |
|||
|
|||
;; Advice from the melpa site for a package dependency validation error in emacs 24 |
|||
;;(defadvice package-compute-transaction |
|||
;; (before package-compute-transaction-reverse (package-list requirements) activate compile) |
|||
;; "reverse the requirements" |
|||
;; (setq requirements (reverse requirements)) |
|||
;; (print requirements)) |
|||
|
|||
;; Make sure default packages are installed |
|||
(defun sothr/packages-installed-p () |
|||
(loop for pkg in sothr/packages |
|||
when (not (package-installed-p pkg)) do (return nil) |
|||
finally (return t))) |
|||
|
|||
;; This is the logic that runs the above function |
|||
(unless (sothr/packages-installed-p) |
|||
(message "%s" "Refreshing package database...") |
|||
(package-refresh-contents) |
|||
(dolist (pkg sothr/packages) |
|||
(when (not (package-installed-p pkg)) |
|||
(package-install pkg)))) |
|||
|
|||
;; Markdown Mode Configuration |
|||
(autoload 'markdown-mode "markdown-mode" |
|||
"Major mode for editing Markdown files" t) |
|||
(add-to-list 'auto-mode-alist '("\\.text\\'" . markdown-mode)) |
|||
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode)) |
|||
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) |
|||
|
|||
;; Set the markdown processor to grip |
|||
;; pip3 install grip |
|||
(setq markdown-command "grip --export -") |
|||
|
|||
;; Set NeoTree to toggle with F8 |
|||
(global-set-key [f8] 'neotree-toggle) |
|||
|
|||
;; Default configuration for auto-complete |
|||
(ac-config-default) |
|||
|
|||
;; Make all files show a linenum |
|||
(global-linum-mode) |
|||
|
|||
;; Configure SLIME |
|||
;; Inferior Lisp interpreter is found at $CL_BIN |
|||
(setq inferior-lisp-program (getenv "CL_BIN")) |
|||
(setq slime-contribs '(slime-fancy)) |
|||
|
|||
;; A method create a lambda that switches between |
|||
;; themes with the press of a button |
|||
;; Emcas requires explicit closures otherwise they're |
|||
;; abandoned at runtime and cryptic errors occur |
|||
(let ((next nil) (themes nil)) |
|||
(defun make-theme-switcher (theme_list) |
|||
(setf themes theme_list) |
|||
#'(lambda () |
|||
(setf next (pop themes)) |
|||
;; Move the first entry in the list to the last |
|||
(setf themes (append themes (list next))) |
|||
;; Load the theme that was next in the list |
|||
(load-theme next t)))) |
|||
|
|||
;; create a function to loop over and apply themes |
|||
(setf load-next-theme (make-theme-switcher '(cyberpunk adwaita))) |
|||
|
|||
;; Load the first theme as the default theme |
|||
(funcall load-next-theme) |
|||
|
|||
;; Toggle theme switch with F3 |
|||
(global-set-key [f3] (lambda () |
|||
(interactive) |
|||
(funcall load-next-theme))) |
|||
|
|||
;; Windows specific configuration |
|||
;; A Linux environment is assumed by default |
|||
(defun windows-config () |
|||
;; When running in Windows, we want to use an alternate shell so we |
|||
;; can be more unixy. |
|||
;(setq shell-file-name "c:/Tools/msys64/usr/bin/zsh") |
|||
;(setq explicit-shell-file-name shell-file-name) |
|||
;(setq explicit-zsh-args '("-i")) ; Make sure the shell is in the home |
|||
;(setenv "HOME" "c:/tools/msys64/home/neria")) ; Set the home environment correctly |
|||
;(setenv "PATH" |
|||
;(concat ".:/usr/local/bin:/msys64/bin:/bin:" |
|||
;(replace-regexp-in-string "/////" "\\\\ " |
|||
;(replace-regexp-in-string "\\\\" "/" |
|||
;(replace-regexp-in-string "\\([A-Za-z]\\):" "/\\1" |
|||
;(getenv "PATH"))))))) |
|||
|
|||
;; Windows specific configurations |
|||
;(cond |
|||
;((string-equal system-type "windows-nt") ; MS Windows System |
|||
;(windows-config))) |
|||
|
|||
(custom-set-variables |
|||
;; custom-set-variables was added by Custom. |
|||
;; If you edit it by hand, you could mess it up, so be careful. |
|||
;; Your init file should contain only one such instance. |
|||
;; If there is more than one, they won't work right. |
|||
'(package-selected-packages |
|||
(quote |
|||
(org-doing org-bullets org-autolist org-ac better-defaults yaml-mode slime rust-mode projectile markdown-mode magit go-mode gist cyberpunk-theme auto-complete)))) |
|||
(custom-set-faces |
|||
;; custom-set-faces was added by Custom. |
|||
;; If you edit it by hand, you could mess it up, so be careful. |
|||
;; Your init file should contain only one such instance. |
|||
;; If there is more than one, they won't work right. |
|||
) |
|||
;; Set enironment information |
|||
(setq user-full-name "Drew Short") |
|||
(setq user-email-address "warrick@sothr.com") |
|||
|
|||
;; Set UTF-8 as the default encoding |
|||
(prefer-coding-system 'utf-8) |
|||
(setq coding-system-for-read 'utf-8) |
|||
(setq coding-system-for-write 'utf-8) |
|||
|
|||
;; Load common lisp |
|||
(require 'cl) |
|||
|
|||
;; Package management |
|||
(load "package") |
|||
(package-initialize) |
|||
|
|||
;; Theme packages |
|||
(defvar sothr/themes '(cyberpunk-theme) "Themes") |
|||
|
|||
;; Tool packages |
|||
(defvar sothr/tools '(auto-complete |
|||
better-defaults |
|||
gist |
|||
projectile |
|||
magit |
|||
neotree |
|||
slime) |
|||
"Tools") |
|||
|
|||
;; Additional mode packages |
|||
(defvar sothr/modes '(markdown-mode |
|||
go-mode |
|||
rust-mode |
|||
yaml-mode) |
|||
"Modes") |
|||
|
|||
;; Org mode specific packages |
|||
(defvar sothr/org '(org |
|||
org-ac |
|||
org-autolist |
|||
org-bullets |
|||
org-doing) |
|||
"Org Mode Packages") |
|||
|
|||
;; Combine the package lists |
|||
(defvar sothr/packages (append sothr/tools sothr/modes sothr/org) "Default Packages") |
|||
|
|||
;; Repositories |
|||
(add-to-list 'package-archives |
|||
'("melpa" . "http://melpa.milkbox.net/packages/") t) |
|||
|
|||
(setq package-archive-enable-alist '(("melpa" deft magit))) |
|||
|
|||
;; Advice from the melpa site for a package dependency validation error in emacs 24 |
|||
;;(defadvice package-compute-transaction |
|||
;; (before package-compute-transaction-reverse (package-list requirements) activate compile) |
|||
;; "reverse the requirements" |
|||
;; (setq requirements (reverse requirements)) |
|||
;; (print requirements)) |
|||
|
|||
;; Make sure default packages are installed |
|||
(defun sothr/packages-installed-p () |
|||
(loop for pkg in sothr/packages |
|||
when (not (package-installed-p pkg)) do (return nil) |
|||
finally (return t))) |
|||
|
|||
;; This is the logic that runs the above function |
|||
(unless (sothr/packages-installed-p) |
|||
(message "%s" "Refreshing package database...") |
|||
(package-refresh-contents) |
|||
(dolist (pkg sothr/packages) |
|||
(when (not (package-installed-p pkg)) |
|||
(package-install pkg)))) |
|||
|
|||
;; Markdown Mode Configuration |
|||
(autoload 'markdown-mode "markdown-mode" |
|||
"Major mode for editing Markdown files" t) |
|||
(add-to-list 'auto-mode-alist '("\\.text\\'" . markdown-mode)) |
|||
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode)) |
|||
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) |
|||
|
|||
;; Set the markdown processor to grip |
|||
;; pip3 install grip |
|||
(setq markdown-command "grip --export -") |
|||
|
|||
;; Set NeoTree to toggle with F8 |
|||
(global-set-key [f8] 'neotree-toggle) |
|||
|
|||
;; Default configuration for auto-complete |
|||
(ac-config-default) |
|||
|
|||
;; Make all files show a line number |
|||
(global-linum-mode) |
|||
;; Make sure that there is spacing in linum mode |
|||
;(setq linum-format "%4d \u2502 ") ;; Fancy line with vertical bar |
|||
;; Dynamic width for lines for convienient right justification |
|||
(unless window-system |
|||
(add-hook 'linum-before-numbering-hook |
|||
(lambda () |
|||
(setq-local linum-format-fmt |
|||
(let ((w (length (number-to-string |
|||
(count-lines (point-min) (point-max)))))) |
|||
(concat "%" (number-to-string w) "d")))))) |
|||
|
|||
(defun linum-format-func (line) |
|||
(concat |
|||
(propertize (format linum-format-fmt line) 'face 'linum) |
|||
(propertize " " 'face 'mode-line))) |
|||
|
|||
(unless window-system |
|||
(setq linum-format 'linum-format-func)) |
|||
|
|||
;; Configure SLIME |
|||
;; Inferior Lisp interpreter is found at $CL_BIN |
|||
(setq inferior-lisp-program (getenv "CL_BIN")) |
|||
(setq slime-contribs '(slime-fancy)) |
|||
|
|||
;; A method create a lambda that switches between |
|||
;; themes with the press of a button |
|||
;; Emcas requires explicit closures otherwise they're |
|||
;; abandoned at runtime and cryptic errors occur |
|||
(let ((next nil) (themes nil)) |
|||
(defun make-theme-switcher (theme_list) |
|||
(setf themes theme_list) |
|||
#'(lambda () |
|||
(setf next (pop themes)) |
|||
;; Move the first entry in the list to the last |
|||
(setf themes (append themes (list next))) |
|||
;; Load the theme that was next in the list |
|||
(load-theme next t)))) |
|||
|
|||
;; create a function to loop over and apply themes |
|||
(setf load-next-theme (make-theme-switcher '(cyberpunk adwaita))) |
|||
|
|||
;; Load the first theme as the default theme |
|||
(funcall load-next-theme) |
|||
|
|||
;; Toggle theme switch with F3 |
|||
(global-set-key [f3] (lambda () |
|||
(interactive) |
|||
(funcall load-next-theme))) |
|||
|
|||
;; Set the autoencrypt feature of emacs for .gpg files |
|||
(require `epa-file) |
|||
(epa-file-enable) |
|||
|
|||
;; Windows specific configuration |
|||
;; A Linux environment is assumed by default |
|||
;(defun windows-config () |
|||
;; When running in Windows, we want to use an alternate shell so we |
|||
;; can be more unixy. |
|||
;(setq shell-file-name "c:/Tools/msys64/usr/bin/zsh") |
|||
;(setq explicit-shell-file-name shell-file-name) |
|||
;(setq explicit-zsh-args '("-i")) ; Make sure the shell is in the home |
|||
;(setenv "HOME" "c:/tools/msys64/home/neria")) ; Set the home environment correctly |
|||
;(setenv "PATH" |
|||
;(concat ".:/usr/local/bin:/msys64/bin:/bin:" |
|||
;(replace-regexp-in-string "/////" "\\\\ " |
|||
;(replace-regexp-in-string "\\\\" "/" |
|||
;(replace-regexp-in-string "\\([A-Za-z]\\):" "/\\1" |
|||
;(getenv "PATH"))))))) |
|||
|
|||
;; Windows specific configurations |
|||
;(cond |
|||
;((string-equal system-type "windows-nt") ; MS Windows System |
|||
;(windows-config))) |
|||
|
|||
(custom-set-variables |
|||
;; custom-set-variables was added by Custom. |
|||
;; If you edit it by hand, you could mess it up, so be careful. |
|||
;; Your init file should contain only one such instance. |
|||
;; If there is more than one, they won't work right. |
|||
'(package-selected-packages |
|||
(quote |
|||
(org-doing org-bullets org-autolist org-ac better-defaults yaml-mode slime rust-mode projectile markdown-mode magit go-mode gist cyberpunk-theme auto-complete)))) |
|||
(custom-set-faces |
|||
;; custom-set-faces was added by Custom. |
|||
;; If you edit it by hand, you could mess it up, so be careful. |
|||
;; Your init file should contain only one such instance. |
|||
;; If there is more than one, they won't work right. |
|||
) |
|||
Write
Preview
Loading…
Cancel
Save
Reference in new issue