Move main emacs directory out of load path

This follows the official emacs recommendation for lisp code inside
emacs.d.

1 files changed, 0 insertions, 315 deletions

diff --git a/ravi-init-appearance.el b/ravi-init-appearance.el
deleted file mode 100644
index 035dc1d..0000000
--- a/ravi-init-appearance.el
+++ /dev/null
@@ -1,315 +0,0 @@
-;;; ravi-init-appearance.el --- Emacs appearance
-
-;; Copyright (C) 2013
-
-;; Author:  <ravi@nero.lan>
-;; Keywords:
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Customization of emacs appearance
-
-;;; Code:
-
-;; No splash screen please
-(setq inhibit-startup-message t)
-
-;; Allow pasting selection outside of Emacs
-(setq x-select-enable-clipboard t)
-
-;; Show keystrokes in progress
-(setq echo-keystrokes 0.1)
-
-;; Real emacs knights don't use shift to mark things
-(setq shift-select-mode nil)
-
-;; Enable syntax highlighting for older Emacsen that have it off
-(global-font-lock-mode t)
-(setq font-lock-maximum-decoration t)
-
-;; Sounds.
-;; Turn off sound.
-(setq bell-volume 0)
-(setq sound-alist nil)
-
-(add-to-list 'default-frame-alist '(cursor-color . "#ffb90f") t)
-
-;; Answering just 'y' or 'n' will do
-(defalias 'yes-or-no-p 'y-or-n-p)
-
-;; Customization of modeline.
-(line-number-mode 1)
-(column-number-mode 1)
-(display-time)
-
-;; Change the way the buffer name is displayed in the modeline.
-(setq-default mode-line-buffer-identification '("%17b"))
-
-;; Undo/redo window configuration with C-c <left>/<right>
-(winner-mode 1)
-
-;; Never insert tabs
-(set-default 'indent-tabs-mode nil)
-
-;; Show me empty lines after buffer end (replaced, see below)
-;(set-default 'indicate-empty-lines t)
-
-(use-package whitespace
-  :init
-  (setq whitespace-style '(face trailing indentation tabs))
-  :config
-  (progn
-    (global-whitespace-mode 1))
-  ; No need for 'ensure: t' since whitespace mode is built in
-  :diminish global-whitespace-mode
-  )
-
-(use-package ws-butler
-  :config
-  (progn
-    (ws-butler-global-mode 1))
-  :diminish ws-butler-mode
-  :ensure t)
-
-(diminish 'abbrev-mode)
-
-;; Handling end of files.
-(setq require-final-newline t)
-;; Prevent addition of lines at end of file when down arrow is pressed.
-(setq next-line-add-newlines nil)
-
-;; Kill the entire line, please
-(setq kill-whole-line t)
-
-;; Delete hungrily
-(use-package hungry-delete
-  :commands (hungry-delete-forward hungry-delete-backward)
-  :bind (("C-d" . hungry-delete-forward))
-  :init
-  (progn
-   (defun jschaf/hungry-delete-backward (n &optional killflag)
-  "Delete non-vertical whitespace backwards on first key press.
-Delete all whitespace on a successive key press."
-  (interactive "p\nP")
-  (if (eq last-command 'jschaf/hungry-delete-backward)
-      (hungry-delete-backward n killflag)
-    (let ((hungry-delete-chars-to-skip " \t\f\v"))
-      (hungry-delete-backward n killflag))))
-   ;;(define-key global-map [remap backward-delete-char-untabify] 'jschaf/hungry-delete-backward)
-   (define-key global-map [remap backward-delete-char-untabify] 'hungry-delete-backward)
-   )
-  :ensure t)
-
-(setq sentence-end-double-space nil)
-(defun sacha/unfill-paragraph (&optional region)
-  "Takes a multi-line paragraph and makes it into a single line of text."
-  (interactive (progn
-                 (barf-if-buffer-read-only)
-                 (list t)))
-  (let ((fill-column (point-max)))
-    (fill-paragraph nil region)))
-(bind-key "M-Q" 'sacha/unfill-paragraph)
-
-;; Easily navigate sillycased words
-;(global-subword-mode 1)
-
-;; Keep cursor away from edges when scrolling up/down
-(use-package smooth-scrolling
-  :ensure t
-  )
-
-;; Enable automatic indentation, if possible
-(use-package smart-newline
-  :commands (smart-newline)
-  :init
-  (progn
-    (bind-key "<return>" 'smart-newline prog-mode-map)
-    (bind-key "<return>" 'smart-newline emacs-lisp-mode-map))
-  :ensure t)
-
-;; Case toggling: from Oleg Krehel http://oremacs.com/2014/12/25/ode-to-toggle/
-(defun oremacs/char-upcasep (letter)
-  (eq letter (upcase letter)))
-
-(defun oremacs/capitalize-word-toggle ()
-  (interactive)
-  (let ((start
-         (car
-          (save-excursion
-            (backward-word)
-            (bounds-of-thing-at-point 'symbol)))))
-    (if start
-        (save-excursion
-          (goto-char start)
-          (funcall
-           (if (oremacs/char-upcasep (char-after))
-               'downcase-region
-             'upcase-region)
-           start (1+ start)))
-      (capitalize-word -1))))
-(bind-key "M-c" 'oremacs/capitalize-word-toggle)
-
-(defun oremacs/upcase-word-toggle ()
-  (interactive)
-  (let ((bounds (bounds-of-thing-at-point 'symbol))
-        beg end
-        (regionp
-         (if (eq this-command last-command)
-             (get this-command 'regionp)
-           (put this-command 'regionp nil))))
-    (cond
-      ((or (region-active-p) regionp)
-       (setq beg (region-beginning)
-             end (region-end))
-       (put this-command 'regionp t))
-      (bounds
-       (setq beg (car bounds)
-             end (cdr bounds)))
-      (t
-       (setq beg (point)
-             end (1+ beg))))
-    (save-excursion
-      (goto-char (1- beg))
-      (and (re-search-forward "[A-Za-z]" end t)
-           (funcall (if (oremacs/char-upcasep (char-before))
-                        'downcase-region
-                      'upcase-region)
-                    beg end)))))
-(bind-key "M-l" 'oremacs/upcase-word-toggle)
-
-;; Zap up to char is more useful than zap-char
-(use-package zop-to-char
-  :bind (("M-z" . zop-up-to-char)
-         ("M-Z" . zop-to-char))
-  :ensure t)
-
-;; Automatic indentation of yanked text
-(dolist (command '(yank yank-pop))
-  (eval `(defadvice ,command (after indent-region activate)
-           (and (not current-prefix-arg)
-                (member major-mode '(emacs-lisp-mode lisp-mode
-                                     clojure-mode    scheme-mode
-                                     haskell-mode    ruby-mode
-                                     rspec-mode      python-mode
-                                     c-mode          c++-mode
-                                     objc-mode       latex-mode
-                                     plain-tex-mode))
-                (let ((mark-even-if-inactive transient-mark-mode))
-                  (indent-region (region-beginning) (region-end) nil))))))
-
-(use-package comment-dwim-2
-  :bind (("M-;" . comment-dwim-2))
-  :ensure t)
-
-;; Keep my navigation simple
-(setq line-move-visual nil)
-
-;; Represent undo-history as an actual tree (visualize with C-x u)
-(use-package undo-tree
-  :init
-  (setq undo-tree-mode-lighter "")
-  :config
-  (progn
-    (global-undo-tree-mode)
-    (setq undo-tree-auto-save-history t)
-    (setq undo-tree-history-directory-alist
-          `(("." . ,(expand-file-name "undotree/" (ravi/emacs-file "past")))))
-    )
-  :ensure t
-  )
-
-;; Discover emacs
-;; Since discover.el replaces keymaps wholesale for "C-x r" and "M-s", it overrides
-;; our additions to them. So we use guide-key for "C-x r" and "M-s".
-(use-package discover
-  :config
-  (progn
-    (add-hook 'dired-mode-hook 'discover-turn-on-in-dired)
-   )
-  :disabled t ;; unstable API and hosing user-provided keybindings
-  :ensure t
-  )
-
-;; Help for prefix key-bindings not in discover-mode
-(use-package guide-key
-  :config
-  (progn
-    (setq guide-key/guide-key-sequence '("C-c p" ;; projectile
-                                         "C-c d" ;; doxymacs
-                                         "C-x 4" ;; other-window
-                                         "C-x r" ;; rectangles/registers
-                                         "M-s"   ;; isearch
-                                         "C-x v" ;; version control
-                                         "M-g"   ;; movement
-                                         "C-x 5" ;; frames
-                                         "C-x n" ;; narrowing
-                                         ))
-    (when (and (boundp ravi/use-helm-instead-of-ido) ravi/use-helm-instead-of-ido)
-      (add-to-list 'guide-key/guide-key-sequence "<escape>"))
-
-    (guide-key-mode 1)
-
-    (use-package guide-key-tip
-      :config
-      (progn
-        (setq guide-key-tip/enabled t))
-      :ensure t
-      :disabled t ;; popups don't always go away; need to file a bug report
-      )
-    )
-  :diminish guide-key-mode
-  :ensure t
-  )
-
-(bind-key "C-h a" 'apropos)
-
-(use-package popwin
-  :init
-  (progn
-    (popwin-mode 1)
-    (push '("*Pp Eval Output*" :height 15) popwin:special-display-config))
-  :ensure t
-  )
-
-(use-package import-popwin
-  :bind (("M-i" . import-popwin))
-  :ensure t
-  )
-
-(use-package ace-window
-  :bind (("M-o" . ace-window))
-  :init
-  (progn
-    (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l ?i ?e)))
-  :ensure t
-  )
-
-(defun ravi/split-window-vertically-and-switch (prefix)
-  (interactive "P")
-  (split-window-vertically (if (consp prefix) nil prefix))
-  (other-window 1)
-  (unless (consp prefix) (switch-to-next-buffer)))
-(bind-key "C-x 2" 'ravi/split-window-vertically-and-switch)
-
-(defun ravi/split-window-horizontally-and-switch (prefix)
-  (interactive "P")
-  (split-window-horizontally (if (consp prefix) nil prefix))
-  (other-window 1)
-  (unless (consp prefix) (switch-to-next-buffer)))
-(bind-key "C-x 3" 'ravi/split-window-horizontally-and-switch)
-
-(provide 'ravi-init-appearance)
-;;; ravi-init-appearance.el ends here