Removes obsolete emacs deps

No longer using these emacs deps. Preparing this repo to house a more
up-to-date, robust config.

8 files changed, 0 insertions, 557 deletions

diff --git a/emacs/index.sh b/emacs/index.sh
deleted file mode 100755
index 42791549881d..000000000000
--- a/emacs/index.sh
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/env zsh
-
-# This file contains tooling that make terminal usage from within Emacs more enjoyable. Some of
-# these are conditionally defined functions that monkey patch CLI utils like vim and man and
-# dispatch to native Emacs utils that should function as analogous alternatives.
-
-# While most of these conditional definitions could fall inside of one larger, if "${INSIDE_EMACS}"
-# block, to increase portability, smaller, redundant blocks are preferred.
-
-
-# Have zsh export variables for Emacs to track the cwd
-if [ -n "${INSIDE_EMACS}" ]; then
-  chpwd() { print -P "\033AnSiTc %d" }
-  print -P "\033AnSiTu %n"
-  print -P "\033AnSiTc %d"
-fi
-
-
-# Custom emacs pager support
-if [ -n "${INSIDE_EMACS}" ]; then
-    export PAGER="create-shell-pager.sh"
-fi
-
-
-# For git primarily. Edit commit messages, etc from ansi-term in Emacs
-if [ -n "${INSIDE_EMACS}" ]; then
-    export EDITOR="edit-file-in-emacs.sh"
-fi
-
-
-# Muscle-memory dies hard. Calls to vim from an Emacs terminal attempt to open vim from inside of
-# Emacs. This is a really bad UX, and hard to exit from. Instead of retraining muscle-memory,
-# dispatch to Emacs' file editing when vim is called from an Emacs terminal.
-if [ -n "${INSIDE_EMACS}" ]; then
-    function vim () {
-        emacsclient -e "(find-file-other-window \"$1\")"
-    }
-fi
-
-
-# Prefer Emac's built-in man util when called from an Emacs terminal
-if [ -n "${INSIDE_EMACS}" ]; then
-    function man () {
-        emacsclient -e  "(man \"$1\")"
-    }
-fi
diff --git a/emacs/symlink_custom_functions.sh b/emacs/symlink_custom_functions.sh
deleted file mode 100755
index f35ce9c5ffed..000000000000
--- a/emacs/symlink_custom_functions.sh
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/env zsh
-
-SCRIPT_DIR="${HOME}/dotfiles/emacs"
-EMACS_FUNC_DIR="${HOME}/.emacs.d"
-
-for source in $(find $SCRIPT_DIR -type f -name '*.el'); do
-  filename=$(basename $source)
-  target="${EMACS_FUNC_DIR}/${filename}"
-
-  if [ ! -L $target ]; then
-    echo -n "Creating symlink for ${filename} ... " && \
-    ln -s $source $EMACS_FUNC_DIR && \
-    echo "Done."
-  else
-    echo "${filename} is already properly symlinked."
-  fi
-
-done
diff --git a/emacs/wc-ansi-term-functions.el b/emacs/wc-ansi-term-functions.el
deleted file mode 100644
index aae9e0c6c238..000000000000
--- a/emacs/wc-ansi-term-functions.el
+++ /dev/null
@@ -1,11 +0,0 @@
-;; if in a project
-  ;; if ansi-term is an existing process for the current project
-    ;; ok
-    ;; create an ansi-term buffer for the current project
-  ;; if ansi-term is an open window
-    ;; if number of open windows == 1, visit MRU source code buffer
-    ;; if number of open windows  > 1, (delete-window ansi-term-window)
-  ;; if ansi-term is not an open window
-    ;; open ansi-term other-window
-;; else
-  ;; (message "You are not currently in a project.")
diff --git a/emacs/wc-dired-functions.el b/emacs/wc-dired-functions.el
deleted file mode 100644
index a6b446976c02..000000000000
--- a/emacs/wc-dired-functions.el
+++ /dev/null
@@ -1,4 +0,0 @@
-(defun wc/dired-up-directory ()
-  "Moves up a directory in `dired' killing the previous `dired' buffer."
-  (interactive)
-  (find-alternate-file ".."))
diff --git a/emacs/wc-doom-functions.el b/emacs/wc-doom-functions.el
deleted file mode 100644
index 4c35a24b5bc0..000000000000
--- a/emacs/wc-doom-functions.el
+++ /dev/null
@@ -1,46 +0,0 @@
-(defun make-xpm-bar (color height width)
-  "Create an XPM bitmap of a bar."
-  (propertize
-   " " 'display
-   (let ((data (make-list height (make-list width 1)))
-         (color (or color "None")))
-     (create-image
-      (concat
-       (format "/* XPM */\nstatic char * percent[] = {\n\"%i %i 2 1\",\n\". c %s\",\n\"  c %s\","
-               (length (car data))
-               (length data)
-               color
-               color)
-       (apply #'concat
-              (cl-loop with idx = 0
-                       with len = (length data)
-                       for dl in data
-                       do (cl-incf idx)
-                       collect
-                       (concat "\""
-                               (cl-loop for d in dl
-                                        if (= d 0) collect (string-to-char " ")
-                                        else collect (string-to-char "."))
-                               (if (eq idx len) "\"};" "\",\n")))))
-      'xpm t :ascent 'center))))
-
-(defun my-tabbar-display-tab (tab)
-    (let ((label (if tabbar--buffer-show-groups
-                     (format "[%s]" (tabbar-tab-tabset tab))
-                   (format "%s" (tabbar-tab-value tab))))
-          (bar-color "#51afef")
-          (bar-height 25)
-          (bar-width 3)
-          (selected-p (eq tab (tabbar-selected-tab (tabbar-current-tabset)))))
-      (concat (when (and (display-graphic-p) selected-p)
-                (make-xpm-bar bar-color bar-height bar-width))
-              " "
-              (if tabbar-auto-scroll-flag
-                  label
-                (tabbar-shorten
-                 label (max 1 (/ (window-width)
-                                 (length (tabbar-view
-                                          (tabbar-current-tabset)))))))
-              " ")))
-
-(setq tabbar-tab-label-function #'my-tabbar-display-tab)
diff --git a/emacs/wc-helm-functions.el b/emacs/wc-helm-functions.el
deleted file mode 100644
index 52319f18da5e..000000000000
--- a/emacs/wc-helm-functions.el
+++ /dev/null
@@ -1,78 +0,0 @@
-(defvar wc/helm-git-tracked-staged
-  (helm-build-in-buffer-source "Tracked, Staged"
-    :candidates (shell-command-to-string "git --no-pager diff --name-only --staged")
-    :action 'wc/handle-branch))
-
-
-(defvar wc/helm-print-default-directory
-  (helm-build-in-buffer-source "Tracked, Staged"
-    :candidates (lambda () '((default-directory)))
-    :action 'wc/handle-branch))
-
-
-(defvar wc/helm-git-tracked-unstaged
-  (helm-build-in-buffer-source "Tracked, Unstaged"
-    :candidates (shell-command-to-string "git --no-pager diff --name-only")
-    :action 'wc/handle-branch))
-
-
-(defvar wc/helm-git-untracked-unstaged
-  (helm-build-in-buffer-source "Untracked, Unstaged"
-    :candidates (shell-command-to-string "git ls-files --others --exclude-standard")
-    :action 'wc/handle-branch))
-
-
-(defun wc/helm-git-altered-files ()
-  "View a categorized list of altered files within a project."
-  (interactive)
-  (helm :sources '(wc/helm-print-default-directory
-                   ;; wc/helm-git-tracked-staged
-                   ;; wc/helm-git-tracked-unstaged
-                   ;; wc/helm-git-untracked-unstaged
-                   )
-        :buffer "*helm git altered files*"))
-
-
-(defun wc/helm-git-branches ()
-  "Reverse-I search using Helm."
-  (interactive)
-  (helm :sources (helm-build-in-buffer-source "test1"
-                 :data (wc/git-branches)
-                 :action 'wc/handle-branch)
-      :buffer "*helm git branches*"))
-
-
-(defun wc/open-terminals ()
-  "Lists active terminal buffers."
-  (interactive)
-  (helm :sources (helm-build-in-buffer-source "test1"
-                 :data (wc/list-project-terminals)
-                 :action 'switch-to-buffer)
-      :buffer "*helm projectile terminals*"))
-
-
-(defun wc/helm-autojump ()
-  "Helm interface to autojump."
-  (interactive)
-  (helm :sources (helm-build-in-buffer-source "test1"
-                 :data (wc/autojump-directories)
-                 :action (lambda (path) (wc/exec-cmd (format "cd %s" path))))
-      :buffer "*helm git branches*"))
-
-
-(defun wc/helm-shell-history ()
-  "Reverse-I search using Helm."
-  (interactive)
-  (helm :sources (helm-build-in-buffer-source "test1"
-                 :data (wc/shell-history)
-                 :action 'wc/exec-cmd)
-      :buffer "*helm shell history*"))
-
-
-(defun wc/helm-ctrl-t-find-files ()
-  "Fuzzily searches files within a directory."
-  (interactive)
-  (helm :sources (helm-build-in-buffer-source "test1"
-                 :data (shell-command-to-string "ag --hidden --ignore .git -l -g \"\"")
-                 :action 'term-send-raw-string)
-      :buffer "*helm CTRL_T find files *"))
diff --git a/emacs/wc-helper-functions.el b/emacs/wc-helper-functions.el
deleted file mode 100644
index ac57f9024a96..000000000000
--- a/emacs/wc-helper-functions.el
+++ /dev/null
@@ -1,347 +0,0 @@
-(require 'cl)
-
-(defun wc/open-in-pager (file)
-  "Opens a file in a simulated pager in emacs."
-  (find-file file)
-  (emacs-pager-mode))
-
-
-(defun wc/write-quit-kill-buffer ()
-  "Writes, quits, kills a buffer."
-  (interactive)
-  (save-buffer)
-  (kill-this-buffer))
-
-
-;; (defun wc/edit-file-in-emacs (file)
-;;   "Edits a file in a buffer in Emacs. On :wq, the buffer is deleted and the previous term session restored."
-;;   (find-file file)
-;;   (quick-edit-file-mode))
-
-
-;; (defvar quick-edit-file-mode-map
-;;   (let ((map (make-sparse-keymap)))
-;;     (define-key map (kbd "q") 'wc/write-quit-kill-buffer)
-;;     map)
-;;   "Keymap for emacs quick-edit file mode.")
-
-
-;; (define-derived-mode quick-edit-file-mode fundamental-mode "QuickEdit"
-;;   "Mode quickly editing files."
-;;   (setq-local make-backup-files nil)
-;;   (setq buffer-name "*quick-edit*"))
-
-
-;; (defun wc/quick-edit-evil-quit (old-fun &rest args)
-;;   (if (eq major-mode 'quick-edit-file-mode)
-;;       (wc/write-quit-kill-buffer)
-;;     (apply old-fun args)))
-
-
-;; (defadvice evil-quit
-;;     (around wc/quick-edit-quick activate)
-;;   (wc/quick-edit-evil-quit))
-
-
-(defvar emacs-pager-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "q") 'kill-this-buffer)
-    map)
-  "Keymap for emacs pager mode.")
-
-
-(defcustom emacs-pager-max-line-coloring 500
-  "Maximum number of lines to ansi-color. If performance is bad when
-   loading data, reduce this number"
-  :group 'emacs-pager)
-
-
-(define-derived-mode emacs-pager-mode fundamental-mode "Pager"
-  "Mode for viewing data paged by emacs-pager"
-  (setq-local make-backup-files nil)
-  (ansi-color-apply-on-region (goto-char (point-min))
-                              (save-excursion
-                                (forward-line emacs-pager-max-line-coloring)
-                                (point)))
-  (setq buffer-name "*pager*")
-  (set-buffer-modified-p nil)
-  (read-only-mode)
-  (evil-define-key 'normal emacs-pager-mode-map
-    (kbd "q") 'kill-this-buffer
-    (kbd "ESC") 'kill-this-buffer))
-
-
-(defun wc/projectile-shell-pop ()
-  "Opens `ansi-term' at the project root according to Projectile."
-  (interactive)
-  (let* ((project-name (projectile-project-root))
-         (default-directory project-name)
-         (buffer-name (format "ansi-term <%s>" project-name)))
-    (if (get-buffer buffer-name)
-        (switch-to-buffer buffer-name)
-      (ansi-term "/bin/zsh" buffer-name))))
-
-
-(defun wc/ansi-term-project-p (input)
-  (string-match-p "*ansi-term <[^>]+>*" input))
-
-
-(defun wc/list-project-terminals ()
-  "Returns a list of ansi-term buffers with associated projects."
-  (interactive)
-  (let ((buffer-names (mapcar 'buffer-name (buffer-list))))
-    (remove-if-not #'wc/ansi-term-project-p buffer-names)))
-
-
-(defun wc/shell-history ()
-  (setq history (shell-command-to-string "history"))
-  (split-string history "\n"))
-
-
-(defun wc/git-branches ()
-  (setq branches (shell-command-to-string "git branch -a | tr -d '* ' | sed 's/^remotes\\/origin\\///' | sort | uniq"))
-  (split-string branches "\n"))
-
-
-(defun wc/autojump-directories ()
-  (setq directories (shell-command-to-string "j -s | awk '{ if($2 ~ /^\\// && $1 != \"data:\") print;}' | sort -rn | head -n 100 | awk '{print $2}'"))
-  (split-string directories "\n"))
-
-
-(defun wc/handle-branch (branch)
-  (setq action "git diff")
-  (term-send-raw-string (format "%s %s" action branch)))
-
-
-(defun wc/exec-cmd (cmd)
-  (term-send-raw-string (format "%s\n" cmd)))
-
-
-(defun wc/join-erc ()
-  "Boots `erc' and autojoins channels."
-  (interactive)
-  (erc :server "irc.freenode.net" :port "6667" :nick "wpcarro"))
-
-
-(defun wc/expose-global-binding-in-term (binding)
-   (define-key term-raw-map binding
-     (lookup-key (current-global-map) binding)))
-
-
-(defun wc/focus-term-at-bottom ()
-  "Moves term to the bottom of the page on insert mode."
-  (interactive)
-  (end-of-buffer)
-  (evil-insert-state)
-  (term-send-raw-string "\b"))
-
-
-(defun wc/bootstrap-ansi-term ()
-  "Custom `ansi-term' configuration."
-  (interactive)
-  (goto-address-mode t)
-  (define-key term-raw-map (kbd "C-c") 'term-interrupt-subjob)
-  (define-key term-raw-map (kbd "C-h") 'windmove-left)
-  (define-key term-raw-map (kbd "C-l") 'windmove-right)
-  (define-key term-raw-map (kbd "C-k") 'windmove-up)
-  (define-key term-raw-map (kbd "C-j") 'windmove-down)
-  (wc/expose-global-binding-in-term (kbd "M-x"))
-  (evil-define-key 'normal term-raw-map
-    (kbd "i") 'wc/focus-term-at-bottom)
-  (define-key term-raw-map (kbd "C-r") 'wc/helm-shell-history)
-  (define-key term-raw-map (kbd "C-t") 'wc/helm-ctrl-t-find-files)
-  (define-key term-raw-map (kbd "M-:") 'eval-expression)
-  (define-key term-raw-map (kbd "M-j") 'wc/helm-autojump)
-  (define-key term-raw-map (kbd "s-v") 'term-paste))
-
-
-(defun wc/ansi-term-paste (&optional string)
-  "Paste into `ansi-term'."
-  (interactive)
-  (process-send-string
-   (get-buffer-process (current-buffer))
-   (if string string (current-kill 0))))
-
-
-(defun evil-window-vsplit-right ()
-  "Vertically split a window and move right."
-  (interactive)
-  (evil-window-vsplit nil)
-  (evil-window-right 1))
-
-
-(defun evil-window-split-down ()
-  "Split a window and move right."
-  (interactive)
-  (evil-window-split nil)
-  (evil-window-down 1))
-
-
-(defun wc/switch-to-mru-buffer ()
-  "Switches to the most recently used buffer, including visible buffers."
-  (interactive)
-  (setq current-buffer-name (buffer-name (current-buffer)))
-  (setq buffer-candidates (remove-if #'(lambda (buffer) (string-match-p current-buffer-name (buffer-name buffer))) (buffer-list)))
-  (wc/do-switch-to-mru-buffer buffer-candidates))
-
-
-(defun wc/do-switch-to-mru-buffer (buffer-candidates)
-  (setq buffer-candidate (car buffer-candidates))
-  (setq rest (cdr buffer-candidates))
-  (if (string-match-p current-buffer-name (buffer-name buffer-candidate))
-      (wc/do-switch-to--buffer rest)
-    (if (eq 0 (list-length buffer-candidates))
-        (message "No more buffer candidates.")
-      (if (wc/file-buffer-p buffer-candidate)
-          (switch-to-buffer buffer-candidate)
-        (wc/do-switch-to-mru-buffer rest)))))
-
-
-(defun wc/file-buffer-p (buffer-candidate)
-  "Returns t if the buffer argument is backed by a file and is therefore presumably a code buffer."
-  (interactive)
-  (let ((buff-name (buffer-name buffer-candidate))
-        (buff-mode (wc/buffer-major-mode buffer-candidate)))
-    (not (or (string-match-p "*" buff-name)
-             (member buff-mode '(neotree-mode dired-mode))))))
-
-
-(defun wc/buffer-major-mode (buffer-handle)
-  "Returns a buffer's active major-mode."
-  (with-current-buffer buffer-handle major-mode))
-
-
-(defun *-popwin-help-mode-off ()
-  "Turn `popwin-mode' off for *Help* buffers."
-  (when (boundp 'popwin:special-display-config)
-    (customize-set-variable 'popwin:special-display-config
-                            (delq 'help-mode popwin:special-display-config))))
-
-
-(defun *-popwin-help-mode-on ()
-  "Turn `popwin-mode' on for *Help* buffers."
-  (when (boundp 'popwin:special-display-config)
-    (customize-set-variable 'popwin:special-display-config
-                            (add-to-list 'popwin:special-display-config 'help-mode nil #'eq))))
-
-
-(defun wc/custom-erlang-mode-hook ()
-  "Jump to and from Elixir, Erlang, Elixir files."
-  (define-key erlang-mode-map (kbd "M-,") 'alchemist-goto-jump-back))
-
-
-(defun helm-ag-neotree-node ()
-  "Run Helm-ag on Neotree directory."
-  (interactive)
-  (let ((search-root (neo-buffer--get-filename-current-line)))
-    (if search-root
-        ;; search directory
-        (progn
-          (evil-window-right 1)
-          (helm-ag search-root))
-      (message "Could not find directory at point."))))
-
-
-(defun neotree-toggle-project-dir ()
-  "Toggle neotree sidebar."
-  (interactive)
-  (let ((project-dir (projectile-project-root))
-        (file-name (buffer-file-name)))
-    (neotree-toggle)
-    (if project-dir
-        (if (neo-global--window-exists-p)
-            (progn
-              (neotree-dir project-dir)
-              (neotree-show)
-              (evil-window-mru)))
-      (message "Could not find git project root."))))
-
-
-(defun neotree-reveal-current-buffer ()
-  "Reveal current buffer in Neotree."
-  (interactive)
-  (let ((project-dir (projectile-project-root))
-        (file-name (buffer-file-name)))
-    (neotree-show)
-    (if project-dir
-        (if (neo-global--window-exists-p)
-            (progn
-              (neotree-dir project-dir)
-              (neotree-find file-name)
-              (evil-window-mru)))
-      (message "Could not find git project root."))))
-
-
-;; Upgrade all packages
-(defun package-upgrade-all ()
-  "Upgrade all packages automatically without showing *Packages* buffer."
-  (interactive)
-  (package-refresh-contents)
-  (let (upgrades)
-    (cl-flet ((get-version (name where)
-                           (let ((pkg (cadr (assq name where))))
-                             (when pkg
-                               (package-desc-version pkg)))))
-      (dolist (package (mapcar #'car package-alist))
-        (let ((in-archive (get-version package package-archive-contents)))
-          (when (and in-archive
-                     (version-list-< (get-version package package-alist)
-                                     in-archive))
-            (push (cadr (assq package package-archive-contents))
-                  upgrades)))))
-    (if upgrades
-        (when (yes-or-no-p
-               (message "Upgrade %d package%s (%s)? "
-                        (length upgrades)
-                        (if (= (length upgrades) 1) "" "s")
-                        (mapconcat #'package-desc-full-name upgrades ", ")))
-          (save-window-excursion
-            (dolist (package-desc upgrades)
-              (let ((old-package (cadr (assq (package-desc-name package-desc)
-                                             package-alist))))
-                (package-install package-desc)
-                (package-delete  old-package)))))
-      (message "All packages are up to date"))))
-
-
-
-(defun message-project-root ()
-  "Outputs project-root."
-  (interactive)
-  (let (project-dir (projectile-project-root))
-    (if project-dir
-        (message "Project dir found!")
-      (message "No project-dir found."))))
-
-
-
-;; Upgrade all packages
-(defun package-upgrade-all ()
-  "Upgrade all packages automatically without showing *Packages* buffer."
-  (interactive)
-  (package-refresh-contents)
-  (let (upgrades)
-    (cl-flet ((get-version (name where)
-                           (let ((pkg (cadr (assq name where))))
-                             (when pkg
-                               (package-desc-version pkg)))))
-      (dolist (package (mapcar #'car package-alist))
-        (let ((in-archive (get-version package package-archive-contents)))
-          (when (and in-archive
-                     (version-list-< (get-version package package-alist)
-                                     in-archive))
-            (push (cadr (assq package package-archive-contents))
-                  upgrades)))))
-    (if upgrades
-        (when (yes-or-no-p
-               (message "Upgrade %d package%s (%s)? "
-                        (length upgrades)
-                        (if (= (length upgrades) 1) "" "s")
-                        (mapconcat #'package-desc-full-name upgrades ", ")))
-          (save-window-excursion
-            (dolist (package-desc upgrades)
-              (let ((old-package (cadr (assq (package-desc-name package-desc)
-                                             package-alist))))
-                (package-install package-desc)
-                (package-delete  old-package)))))
-      (message "All packages are up to date"))))
diff --git a/emacs/wc-tabbar-functions.el b/emacs/wc-tabbar-functions.el
deleted file mode 100644
index 26ccf044a809..000000000000
--- a/emacs/wc-tabbar-functions.el
+++ /dev/null
@@ -1,7 +0,0 @@
-;;; Code
-(defun wc/conditionally-activate-tabbar ()
-  "Only activate tabbar-mode if the new major-mode is whitelisted."
-  (setq tabbar-whitelist '(prog-mode))
-  (if (memq major-mode tabbar-whitelist)
-      (tabbar-local-mode 1)
-    (tabbar-local-mode nil)))