238 lines
7.0 KiB
EmacsLisp
238 lines
7.0 KiB
EmacsLisp
;; init.el
|
|
;;
|
|
;; Emacs Configuration
|
|
;;
|
|
;; Author: Kevin Cotugno git@kevincotugno.com
|
|
;; Date: 2/22/17
|
|
|
|
;; Package
|
|
(require 'package)
|
|
(package-initialize)
|
|
|
|
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/"))
|
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
|
|
|
|
(defun directory-files-no-directories (path)
|
|
"Return the list of files in PATH excluding and directories"
|
|
(seq-filter (lambda (item)
|
|
(not (null item)))
|
|
(mapcar (lambda (item)
|
|
(if (not (eq (nth 1 item) 't))
|
|
(car item)))
|
|
(directory-files-and-attributes path 't))))
|
|
|
|
(defun update-env-var (var list)
|
|
"Prepend LIST to the specified environment variable"
|
|
(mapc (lambda (dir)
|
|
(when (not (string-equal dir ""))
|
|
(if (or (null (getenv var)) (string-equal (getenv var) ""))
|
|
(setenv var dir)
|
|
(setenv var (format "%s:%s"
|
|
dir
|
|
(getenv var))))))
|
|
list))
|
|
|
|
(if (eq system-type 'darwin)
|
|
(update-env-var "PATH" (with-temp-buffer
|
|
(mapcar (lambda (item)
|
|
(insert-file-contents item))
|
|
(directory-files-no-directories "/etc/paths.d"))
|
|
(insert-file-contents "/etc/paths")
|
|
(split-string (buffer-string) "\n" t))))
|
|
|
|
(unless (package-installed-p 'use-package)
|
|
(package-refresh-contents)
|
|
(package-install 'use-package))
|
|
|
|
(eval-when-compile
|
|
(require 'use-package))
|
|
|
|
(setq use-package-always-ensure t)
|
|
|
|
;; Display
|
|
(set-default-font "DejaVu Sans Mono-12")
|
|
(line-number-mode t)
|
|
(global-linum-mode t)
|
|
|
|
(menu-bar-mode -1)
|
|
(tool-bar-mode -1)
|
|
(setq inhibit-startup-screen t)
|
|
(setq-default truncate-lines t)
|
|
(setq-default truncate-partial-width-windows nil)
|
|
|
|
(setq-default scroll-conservatively 100)
|
|
|
|
(when (display-graphic-p) (progn
|
|
(global-hl-line-mode t)
|
|
(scroll-bar-mode -1)))
|
|
|
|
(global-whitespace-mode)
|
|
(setq whitespace-style '(face trailing tabs spaces lines-tail empty indentation
|
|
space-after-tab space-before-tab space-mark
|
|
tab-mark))
|
|
(setq-default fill-column 80)
|
|
|
|
(add-hook 'before-save-hook 'delete-trailing-whitespace)
|
|
;; End display
|
|
|
|
;; Auto generated config
|
|
(setq custom-file (expand-file-name "auto.el" user-emacs-directory))
|
|
(load custom-file 'noerror)
|
|
;; End auto generated config
|
|
|
|
;; Text Formatting
|
|
(setq-default standard-indent 8)
|
|
(setq-default c-default-style "linux"
|
|
c-basic-offset 8
|
|
tab-width 8)
|
|
|
|
(add-hook 'emacs-lisp-mode-hook (lambda ()
|
|
(setq indent-tabs-mode nil)))
|
|
(add-hook 'ruby-mode-hook (lambda ()
|
|
(setq indent-tabs-mode nil)
|
|
(setq tab-width 2)))
|
|
(add-hook 'js-mode-hook (lambda ()
|
|
(setq indent-tabs-mode nil)
|
|
(setq js-indent-level 2)))
|
|
(add-hook 'css-mode-hook (lambda ()
|
|
(setq indent-tabs-mode nil)
|
|
(setq tab-width 2)
|
|
(setq css-indent-offset 2)))
|
|
(add-hook 'org-mode-hook (lambda ()
|
|
(setq indent-tabs-mode nil)
|
|
(setq tab-width 2)))
|
|
;; End text Formatting
|
|
|
|
;; Backup Files
|
|
|
|
(setq backup-directory-alist `(("." . "~/.emacs.d/backups")))
|
|
|
|
;; End Backup Files
|
|
|
|
;; Plugins
|
|
|
|
;; Themes
|
|
|
|
(defun flip-background ()
|
|
"Flip the frame and terminal background mode.
|
|
useful for alternating between light and dark themes"
|
|
(interactive)
|
|
(let ((mode (if (or (eq (frame-parameter nil 'background-mode) 'dark)
|
|
(eq (terminal-parameter nil 'background-mode) 'dark))
|
|
(setq mode 'light)
|
|
(setq mode 'dark))))
|
|
(set-frame-parameter nil 'background-mode mode)
|
|
(set-terminal-parameter nil 'background-mode mode)
|
|
(dolist (theme custom-enabled-themes)
|
|
(enable-theme theme))))
|
|
|
|
(global-set-key (kbd "<f5>") 'flip-background)
|
|
|
|
;; Load directories in the .emacs.d/themes directory to the load path
|
|
;; TODO Only add directories
|
|
(mapcar (lambda (item)
|
|
(add-to-list 'custom-theme-load-path item))
|
|
(mapcar (lambda (item)
|
|
(format "%s/.emacs.d/themes/%s/" (getenv "HOME") item))
|
|
(let (files '())
|
|
(dolist (val
|
|
(directory-files (format "%s/.emacs.d/themes/"
|
|
(getenv "HOME")))
|
|
files)
|
|
(let ((off (string-match "\\." val)))
|
|
(unless (and off (eq off 0))
|
|
(setq files (cons val files))))))))
|
|
|
|
(when (load-theme 'solarized t) (flip-background))
|
|
|
|
;; End themes
|
|
|
|
(use-package org
|
|
:ensure t
|
|
:config
|
|
(add-hook 'org-mode-hook (lambda ()
|
|
(flyspell-mode)
|
|
(auto-fill-mode))))
|
|
|
|
(use-package org-bullets
|
|
:ensure t
|
|
:after org
|
|
:config
|
|
(add-hook 'org-mode-hook (lambda ()
|
|
(org-bullets-mode t))))
|
|
|
|
(use-package company
|
|
:ensure t
|
|
:config
|
|
(add-hook 'after-init-hook 'global-company-mode))
|
|
|
|
(use-package powerline
|
|
:ensure t
|
|
:config
|
|
(powerline-default-theme))
|
|
|
|
(use-package magit
|
|
:ensure t)
|
|
|
|
(use-package projectile
|
|
:ensure t)
|
|
|
|
(use-package helm
|
|
:ensure t
|
|
:config
|
|
(helm-mode t)
|
|
(global-set-key (kbd "M-x") 'helm-M-x)
|
|
(global-set-key (kbd "C-x C-f") 'helm-find-files))
|
|
|
|
(use-package helm-projectile
|
|
:ensure t
|
|
:config
|
|
(helm-projectile-on))
|
|
|
|
(use-package go-mode
|
|
:ensure t)
|
|
|
|
(use-package company-go
|
|
:ensure t
|
|
:after (go-mode)
|
|
:config
|
|
(add-hook 'go-mode-hook
|
|
(lambda ()
|
|
(set (make-local-variable 'company-backends) '(company-go)))))
|
|
|
|
(use-package rust-mode
|
|
:ensure t
|
|
:config
|
|
(defun rust-run () "Execute 'cargo run'"
|
|
(interactive)
|
|
(compile "cargo run"))
|
|
|
|
(bind-key (kbd "C-c C-c") 'rust-compile rust-mode-map)
|
|
(bind-key (kbd "C-c C-r") 'rust-run rust-mode-map)
|
|
(setq-local cargo-bin (concat (getenv "HOME") "/.cargo/bin"))
|
|
(when (file-exists-p cargo-bin)
|
|
(add-to-list 'exec-path cargo-bin)))
|
|
|
|
(global-unset-key (kbd "C-x m")) ; We don't want the default compose-mail
|
|
(when (require 'mu4e nil t)
|
|
(setq mu4e-maildir (concat (getenv "HOME") "/.mail"))
|
|
(setq mu4e-drafts-folder "/Drafts")
|
|
(setq mu4e-sent-folder "/Sent")
|
|
(setq mu4e-trash-folder "/Trash")
|
|
(setq mu4e-get-mail-command "offlineimap")
|
|
(setq mu4e-view-show-addresses t)
|
|
(global-set-key (kbd "C-x m") 'mu4e)
|
|
|
|
(setq mu4e-compose-reply-to-address "kevin@kevincotugno.com"
|
|
user-mail-address "kevin@kevincotugno.com"
|
|
user-full-name "Kevin Cotugno")
|
|
(setq
|
|
message-send-mail-function 'smtpmail-send-it
|
|
smtpmail-smtp-server "smtp.cotugno.family"
|
|
smtpmail-stream-type 'starttls
|
|
smtpmail-smtp-service 587)
|
|
(setq message-kill-buffer-on-exit t))
|
|
|
|
|
|
;; End Plugins
|