Added emacs prelude and config

emacs/.emacs.d/elpa/guru-mode-20170730.31/guru-mode-autoloads.el

@@ -0,0 +1,44 @@
+;;; guru-mode-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
+
+;;;### (autoloads nil "guru-mode" "guru-mode.el" (23122 58412 744920
+;;;;;;  55000))
+;;; Generated autoloads from guru-mode.el
+
+(autoload 'guru-mode "guru-mode" "\
+A minor mode that teaches you to use Emacs effectively.
+
+\(fn &optional ARG)" t nil)
+
+(defvar guru-global-mode nil "\
+Non-nil if Guru-Global mode is enabled.
+See the `guru-global-mode' command
+for a description of this minor mode.
+Setting this variable directly does not take effect;
+either customize it (see the info node `Easy Customization')
+or call the function `guru-global-mode'.")
+
+(custom-autoload 'guru-global-mode "guru-mode" nil)
+
+(autoload 'guru-global-mode "guru-mode" "\
+Toggle Guru mode in all buffers.
+With prefix ARG, enable Guru-Global mode if ARG is positive;
+otherwise, disable it.  If called from Lisp, enable the mode if
+ARG is omitted or nil.
+
+Guru mode is enabled in all buffers where
+`guru-mode' would do it.
+See `guru-mode' for more information on Guru mode.
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; End:
+;;; guru-mode-autoloads.el ends here

emacs/.emacs.d/elpa/guru-mode-20170730.31/guru-mode-pkg.el

@@ -0,0 +1,2 @@
+;;; -*- no-byte-compile: t -*-
+(define-package "guru-mode" "20170730.31" "Become an Emacs guru" 'nil :commit "c180e05ebc1484764aad245c85b69de779826e4e" :url "https://github.com/bbatsov/guru-mode" :keywords '("convenience"))

emacs/.emacs.d/elpa/guru-mode-20170730.31/guru-mode.el

@@ -0,0 +1,101 @@
+;;; guru-mode.el --- Become an Emacs guru   -*- lexical-binding:t -*-
+
+;; Copyright (C) 2012-2016 Bozhidar Batsov
+
+;; Author: Bozhidar Batsov
+;; URL: https://github.com/bbatsov/guru-mode
+;; Package-Version: 20170730.31
+;; Version: 0.2
+;; Keywords: convenience
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License:
+
+;; 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, 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 GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+;;
+;; Guru mode teaches to use Emacs properly.
+;;
+;;; Code:
+
+(defvar guru-mode-map (make-sparse-keymap)
+  "Guru mode's keymap.")
+
+(defvar guru-warn-only nil
+  "When non-nil you'll only get an error message.")
+
+(defvar guru-affected-bindings-list
+  '(("<left>" "C-b" left-char)
+    ("<right>" "C-f" right-char)
+    ("<up>" "C-p" previous-line)
+    ("<down>" "C-n" next-line)
+    ("<C-left>" "M-b" left-word)
+    ("<C-right>" "M-f" right-word)
+    ("<C-up>" "M-{" backward-paragraph)
+    ("<C-down>" "M-}" forward-paragraph)
+    ("<M-left>" "M-b" left-word)
+    ("<M-right>" "M-f" right-word)
+    ("<deletechar>" "C-d" delete-forward-char)
+    ("<C-delete>" "M-d" kill-word)
+    ("<next>" "C-v" scroll-up-command)
+    ("<C-next>" "C-x <" scroll-left)
+    ("<prior>" "M-v" scroll-down-command)
+    ("<C-prior>" "C-x >" scroll-right)
+    ("<home>" "C-a" move-beginning-of-line)
+    ("<end>" "C-e" move-end-of-line)
+    ("<C-home>" "M-<" beginning-of-buffer)
+    ("<C-end>" "M->" end-of-buffer)))
+
+(defun guru-current-key-binding (key)
+  "Look up the current binding for KEY without guru-mode."
+  (prog2 (guru-mode -1) (key-binding (kbd key)) (guru-mode +1)))
+
+(defun guru-rebind (original-key alt-key original-binding)
+  (lambda ()
+    (interactive)
+    (let ((current-binding (guru-current-key-binding original-key)))
+      (if (eq current-binding original-binding)
+          (progn
+            (let ((warning-text (if guru-warn-only "discouraged" "disabled")))
+              (message "%s keybinding is %s! Use <%s> instead" original-key warning-text alt-key))
+            (when guru-warn-only
+              (call-interactively (key-binding (kbd alt-key)))))
+        ;; else: the key has been re-mapped from the global default,
+        ;; use it without interference.
+        (call-interactively current-binding)))))
+
+(dolist (cell guru-affected-bindings-list)
+  (let ((original-key (car cell))
+        (recommended-key (car (cdr cell)))
+        (original-binding (car (cdr (cdr cell)))))
+    (define-key guru-mode-map
+      (read-kbd-macro (car cell)) (guru-rebind original-key recommended-key original-binding))))
+
+;;;###autoload
+(define-minor-mode guru-mode
+  "A minor mode that teaches you to use Emacs effectively."
+  :lighter " guru"
+  :keymap guru-mode-map
+  :group 'guru)
+
+;; define global minor mode
+;;;###autoload
+(define-globalized-minor-mode guru-global-mode guru-mode guru-mode)
+
+(provide 'guru-mode)
+;;; guru-mode.el ends here