Initial commit

5 files changed, 363 insertions, 0 deletions

diff --git a/init.el b/init.el
new file mode 100644
index 0000000..2849e94
--- /dev/null
+++ b/init.el
@@ -0,0 +1,197 @@
+;;; init.el --- emacs start up
+;; Author: jason <jason@zzq.org>
+;; Created: 03 Dec 2015
+;; Version: 0.2
+;; Keywords:
+;; X-URL: https://beehive.io/jason/emacs.d/
+;;; Commentary:
+;;
+;;; Code:
+(defconst emacs-start-time (current-time))
+(setq inhibit-startup-screen t ;; Hide the default startup screen
+      savehist-file "~/.emacs.d/savehist"
+      ;; Define where to store recovery files
+      backup-directory-alist '(("." . "~/.emacs.d/backups"))
+      ;; Use version numbers for backups.
+      version-control t
+      ;; Number of newest versions to keep.
+      kept-new-versions 10
+      ;; Number of oldest versions to keep.
+      kept-old-versions 0
+      ;; Don't ask to delete excess backup versions.
+      delete-old-versions -1
+      ;; Copy all files, don't rename them.
+      backup-by-copying t
+      ;; Make backups files under version control.
+      vc-make-backup-files t
+      ;; Don't confirm following when opening a symlink
+      vc-follow-symlinks t)
+
+(setq package-archives '(("elpa" . "http://elpa.gnu.org/packages/")
+                         ;; For org-mode
+                         ("org" . "http://orgmode.org/elpa/")
+                         ;; melpa builds git repositories and can be unstable
+                         ("melpa" . "http://melpa.org/packages/")
+                         ;; marmalade has maintainers upload versions
+                         ;; ("marmalade" . "https://marmalade-repo.org/packages/")
+                         ;; melpa-stable builds from git tags but may be missing dependencies
+                         ;; ("melpa-stable" . "https://stable.melpa.org/packages/")
+                         ;; Elpy packages for the Python language
+                         ;; ("elpy" . "https://jorgenschaefer.github.io/packages/")
+                         ))
+
+;; Initializes installed packages
+(package-initialize)
+
+;; Packages are managed by the use-package package, so we need to make sure it's installed
+(unless (package-installed-p 'use-package)
+  (package-refresh-contents)
+  (package-install 'use-package))
+(eval-when-compile
+  (require 'use-package))
+;; slight optimization for use-package's :bind directive
+(require 'bind-key)
+
+;; Add local library to the load path
+(add-to-list 'load-path "~/.emacs.d/local-lib/")
+;; Usernames and passwords are stored in a file that isn't sync'd to VC
+(load "~/.emacs.d/secrets" t)
+
+;; My misc functions
+(require 'zzq-funcs)
+
+(add-hook 'after-init-hook
+          (lambda ()
+            (progn
+              ;; Maximize the frame on startup
+              (toggle-frame-maximized)
+              ;; Always ensure packages are installed if they are defined with use-package
+              ;; (setq use-package-always-ensure t)
+
+              ;; Set default encoding to UTF-8
+              (set-language-environment "UTF-8")
+              (set-default-coding-systems 'utf-8)
+              ;; Hide the toolbar
+              (tool-bar-mode -1)
+              ;; Hide the scrollbar
+              (scroll-bar-mode -1)
+              ;; no beep and no blinking cursor
+              (setq ring-bell-function 'ignore
+                    visible-bell nil
+                    ;; display the full file path in the titlebar
+                    frame-title-format
+                    (list (format "%s %%S: %%j " (system-name))
+                          '(buffer-file-name "%f" (dired-directory dired-directory "%b"))))
+
+              ;; Show matched parens
+              (show-paren-mode t)
+              ;; Allow undoing/redoing of window layouts with C-c left/right arrows
+              (winner-mode 1)
+              ;; Let y and n be good enough for yes and no questions
+              (fset 'yes-or-no-p 'y-or-n-p)
+              ;; Auto-refresh files changed on the file system
+              (global-auto-revert-mode 1)
+              ;; Save commands and their history
+              (savehist-mode +1)
+              (setq savehist-save-minibuffer-history +1)
+              (setq savehist-additional-variables
+                    '(kill-ring
+                      search-ring
+                      regexp-search-ring))
+              ;; Allow mouse support in xterm
+              (xterm-mouse-mode 1)
+              ;; Automatically close parens when opening them
+              (electric-pair-mode 1)
+              ;; Ovewrite selected regions with what you're typing/pasting/etc
+              (delete-selection-mode 1)
+              ;; A region is only active when it is highlighted (mimics other editors)
+              (transient-mark-mode 1)
+              ;;;;;;;;;;;
+              ;; Hooks ;;
+              ;;;;;;;;;;;
+              (add-hook 'write-file-hooks
+                        '(lambda ()
+                           ;; delete trailing whitespace from all files
+                           (delete-trailing-whitespace)))
+              ;;;;;;;;;;;;
+              ;; Themes ;;
+              ;;;;;;;;;;;;
+              (use-package jbeans-theme
+                :ensure t
+                :config
+                (load-theme 'jbeans))
+              ;;;;;;;;;;;;;;
+              ;; Packages ;;
+              ;;;;;;;;;;;;;;
+              ;; paradox - A better emacs package manager
+              (use-package paradox
+                :ensure t
+                :config
+                ;; Use paradox as the default package manager
+                (paradox-enable))
+              ;; which-key - Displays a pop up with hints when pushing key bindings
+              (use-package which-key
+                :ensure t
+                :diminish which-key-mode
+                :init
+                (setq which-key-special-keys nil
+                      which-key-use-C-h-commands t
+                      which-key-echo-keystrokes 0.02
+                      which-key-max-description-length 32
+                      which-key-sort-order 'which-key-key-order-alpha)
+                :config
+                (which-key-mode))
+              ;; Ivy, swiper, and counsel for autocompleting emacs things
+              (use-package ivy
+                :ensure t
+                :pin elpa
+                :diminish ivy-mode
+                :bind (("C-s" . swiper)
+                       ("M-x" . counsel-M-x)
+                       ("C-x C-f" . counsel-find-file))
+                :init
+                ;; Remove the ^ prefix
+                (setq ivy-initial-inputs-alist nil
+                      ;; Display recently opened files when switching buffers
+                      ivy-use-virtual-buffers t
+                      ;; Use ivy for magit
+                      magit-completing-read-function 'ivy-completing-read
+                      ;; Use ivy for projectile
+                      projectile-completion-system 'ivy)
+                :config
+                (ivy-mode 1))
+              ;; avy - A quick way to jump around buffers
+              (use-package avy
+                :ensure t
+                :bind (("C-:" . avy-goto-line)))
+              ;; Other packages
+              ;; persp - virtual workspaces
+              (require 'persp-conf)
+              ;; powerline - prettier modeline
+              (require 'powerline-conf)
+              ;; projectile - utilities for working with projects
+              (require 'projectile-conf)
+
+              (message "Emacs loaded in %.3fs"
+                       (/ (- (zzq/time-to-msec (current-time)) (zzq/time-to-msec emacs-start-time)) 1000.0))
+              ))) ;; End progn/lambda/add-hook after-init-hook
+
+(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.
+ '(custom-safe-themes
+   (quote
+    ("64f2981274fd8740b794bce9feee7949ed87b88fc0b4654bd98594e1aa81abcd" default)))
+ '(package-selected-packages
+   (quote
+    (projectile persp-mode avy ivy powerline which-key paradox use-package jbeans-theme)))
+ '(paradox-github-token t))
+
+(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.
+ '(default ((t (:family "Inconsolata" :foundry "outline" :slant normal :weight normal :height 79 :width normal)))))
diff --git a/local-lib/persp-conf.el b/local-lib/persp-conf.el
new file mode 100644
index 0000000..f875440
--- /dev/null
+++ b/local-lib/persp-conf.el
@@ -0,0 +1,38 @@
+;;; persp-conf.el --- configuration for persp-mode
+;; Author: jason <jason@zzq.org>
+;; Created: 16 Jun 2017
+;; X-URL: https://github.com/Bad-ptr/persp-mode.el
+;;; Commentary:
+;;
+;; Enables different "workspaces" within Emacs. Similar to how a window manager
+;; might have several desktops
+;;
+;; Bindings:
+;; * <f8> - Switch between perspectives
+;; * <f9>, p - Manage perspectives
+;;
+;;; Code:
+(use-package persp-mode
+  :ensure t
+  :bind (([f8] . persp-switch))
+  :init
+  (setq persp-nil-name "Home"
+        persp-auto-resume-time 0)
+  ;; Adding this so that capturing process is not interrupted with annoying
+  ;; prompts "Kill and Close" etc.
+  (setq persp-kill-foreign-buffer-action nil
+        ;; increase the default name length
+        persp-lighter '(:eval (format (propertize " #%.10s"
+                                                  'face (let ((persp (get-current-persp)))
+                                                          (if persp
+                                                              (if (persp-contain-buffer-p (current-buffer) persp)
+                                                                  'persp-face-lighter-default
+                                                                'persp-face-lighter-buffer-not-in-persp)
+                                                            'persp-face-lighter-nil-persp)))
+                                      (safe-persp-name (get-current-persp)))))
+  :config
+  ;; Set the persp-mode keymap prefix to <F9>, p
+  (persp-set-keymap-prefix (kbd "<f9> p"))
+  (persp-mode 1))
+
+(provide 'persp-conf)
diff --git a/local-lib/powerline-conf.el b/local-lib/powerline-conf.el
new file mode 100644
index 0000000..e994f8c
--- /dev/null
+++ b/local-lib/powerline-conf.el
@@ -0,0 +1,95 @@
+;;; powerline-conf.el --- configuration for powerline
+;; Author: jason <jason@zzq.org>
+;; Created: 16 Jun 2017
+;; X-URL: https://github.com/milkypostman/powerline
+;;; Commentary:
+;;
+;; Styles the Emacs mode line
+;;
+;;; Code:
+(defface my/modeline-narrow-face
+  '((t (:foreground "black" :background "yellow3")))
+  "todo/fixme highlighting."
+  :group 'faces)
+
+(defface my/modeline-read-only-face
+  '((t (:foreground "black" :background "orange4")))
+  "Read-only buffer highlighting."
+  :group 'faces)
+
+(defface my/modeline-modified-face
+  '((t (:foreground "gray80" :background "red4")))
+  "Modified buffer highlighting."
+  :group 'faces)
+
+(defun powerline-my-theme ()
+  "Setup the default mode-line."
+  (interactive)
+  (setq-default mode-line-format
+                '("%e"
+                  (:eval
+                   (let* ((active (powerline-selected-window-active))
+                          (mode-line (if active 'mode-line 'mode-line-inactive))
+                          (face1 (if active 'powerline-active1 'powerline-inactive1))
+                          (face2 (if active 'powerline-active2 'powerline-inactive2))
+                          (separator-left (intern (format "powerline-%s-%s"
+                                                          (powerline-current-separator)
+                                                          (car powerline-default-separator-dir))))
+                          (separator-right (intern (format "powerline-%s-%s"
+                                                           (powerline-current-separator)
+                                                           (cdr powerline-default-separator-dir))))
+                          (lhs (append (list (powerline-raw " "))
+                                       (let ((buffer-modified-str (if buffer-read-only
+                                                                      (if (buffer-modified-p) "%%*" "%%%%")
+                                                                    (if (buffer-modified-p) "**" "--"))))
+                                         (if buffer-read-only
+                                             (list (powerline-raw buffer-modified-str 'my/modeline-read-only-face))
+                                           (if (buffer-modified-p)
+                                               (list (powerline-raw buffer-modified-str 'my/modeline-modified-face))
+                                             (list (powerline-raw buffer-modified-str nil))))
+                                         )
+                                       (list
+                                        (when powerline-display-buffer-size
+                                          (powerline-buffer-size nil 'l))
+                                        (when powerline-display-mule-info
+                                          (powerline-raw mode-line-mule-info nil 'l))
+                                        (powerline-buffer-id nil 'l)
+                                        (when (and (boundp 'which-func-mode) which-func-mode)
+                                          (powerline-raw which-func-format nil 'l))
+                                        (powerline-raw " ")
+                                        (funcall separator-left mode-line face1)
+                                        (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)
+                                          (powerline-raw erc-modified-channels-object face1 'l))
+                                        (powerline-major-mode face1 'l)
+                                        (powerline-process face1)
+                                        (powerline-minor-modes face1 'l)
+                                        (powerline-narrow face1 'l)
+                                        (powerline-raw " " face1)
+                                        (funcall separator-left face1 face2)
+                                        (powerline-vc face2 'r)
+                                        (when (bound-and-true-p nyan-mode)
+                                          (powerline-raw (list (nyan-create)) face2 'l)))))
+                          (rhs (list (powerline-raw global-mode-string face2 'r)
+                                     ;; (funcall separator-right face2 face1)
+                                     ;; (unless window-system
+                                     ;;   (powerline-raw (char-to-string #xe0a1) face1 'l))
+                                     (powerline-raw "%4l" face1 'l)
+                                     (powerline-raw ":" face1 'l)
+                                     (powerline-raw "%3c" face1 'r)
+                                     (funcall separator-right face1 mode-line)
+                                     (powerline-raw " ")
+                                     (powerline-raw "%6p" nil 'r)
+                                     (when powerline-display-hud
+                                       (powerline-hud face2 face1)))))
+                     (concat (powerline-render lhs)
+                             (powerline-fill face2 (powerline-width rhs))
+                             (powerline-render rhs)))))))
+
+(use-package powerline
+  :config
+  (setq powerline-default-separator 'wave
+        powerline-display-mule-info nil)
+
+  (powerline-my-theme))
+
+(provide 'powerline-conf)
diff --git a/local-lib/projectile-conf.el b/local-lib/projectile-conf.el
new file mode 100644
index 0000000..0472af8
--- /dev/null
+++ b/local-lib/projectile-conf.el
@@ -0,0 +1,16 @@
+;;; projectile-conf.el --- configuration for projectile-mode
+;; Author: jason <jason@zzq.org>
+;; Created: 16 Jun 2017
+;; X-URL: https://github.com/bbatsov/projectile
+;;; Commentary:
+;;
+;; Useful functions for working within projects.
+;;
+;;; Code:
+(use-package projectile
+  :ensure t
+  :diminish projectile-mode
+  :config
+  (projectile-global-mode))
+
+(provide 'projectile-conf)
diff --git a/local-lib/zzq-funcs.el b/local-lib/zzq-funcs.el
new file mode 100644
index 0000000..3d38b11
--- /dev/null
+++ b/local-lib/zzq-funcs.el
@@ -0,0 +1,17 @@
+;;; zzq-funcs.el --- miscellaneous functions
+;; Author: jason <jason@zzq.org>
+;; Created: 15 Jun 2017
+;; X-URL: https://beehive.io/jason/emacs.d/
+;;; Commentary:
+;;
+;; Contains miscellaneous functions I've written or collected.
+;;
+;;; Code:
+(defun zzq/time-to-sec (time)
+  "Convert the output of (current-time) to epoch in seconds"
+  (truncate (+ (+ (* (nth 0 time) (expt 2 16)) (nth 1 time)) (* (nth 2 time) (expt 10 -6)))))
+(defun zzq/time-to-msec (time)
+  "Convert the output of (current-time) to epoch in milliseconds"
+  (truncate (* 1000 (+ (+ (* (nth 0 time) (expt 2 16)) (nth 1 time)) (* (nth 2 time) (expt 10 -6))))))
+
+(provide 'zzq-funcs)