forked from colonelpanic/dotfiles
Got rid of buggy starter-kit lisp mode.
This commit is contained in:
parent
58a9a9d0ba
commit
eac51bdc57
@ -1,52 +0,0 @@
|
||||
;;; starter-kit-lisp-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
|
||||
;;;### (autoloads nil "starter-kit-lisp" "starter-kit-lisp.el" (20815
|
||||
;;;;;; 22618 0 0))
|
||||
;;; Generated autoloads from starter-kit-lisp.el
|
||||
|
||||
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
|
||||
|
||||
(add-hook 'emacs-lisp-mode-hook 'esk-remove-elc-on-save)
|
||||
|
||||
(add-hook 'emacs-lisp-mode-hook 'esk-prog-mode-hook)
|
||||
|
||||
(add-hook 'emacs-lisp-mode-hook 'elisp-slime-nav-mode)
|
||||
|
||||
(defun esk-remove-elc-on-save nil "\
|
||||
If you're saving an elisp file, likely the .elc is no longer valid." (make-local-variable (quote after-save-hook)) (add-hook (quote after-save-hook) (lambda nil (if (file-exists-p (concat buffer-file-name "c")) (delete-file (concat buffer-file-name "c"))))))
|
||||
|
||||
(define-key emacs-lisp-mode-map (kbd "C-c v") 'eval-buffer)
|
||||
|
||||
(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol)
|
||||
|
||||
(define-key lisp-mode-shared-map (kbd "RET") 'reindent-then-newline-and-indent)
|
||||
|
||||
(defface esk-paren-face '((((class color) (background dark)) (:foreground "grey50")) (((class color) (background light)) (:foreground "grey55"))) "\
|
||||
Face used to dim parentheses." :group (quote starter-kit-faces))
|
||||
|
||||
(eval-after-load 'paredit '(define-key paredit-mode-map (kbd "M-)") 'paredit-forward-slurp-sexp))
|
||||
|
||||
(dolist (mode '(scheme emacs-lisp lisp clojure)) (when (> (display-color-cells) 8) (font-lock-add-keywords (intern (concat (symbol-name mode) "-mode")) '(("(\\|)" quote esk-paren-face)))) (add-hook (intern (concat (symbol-name mode) "-mode-hook")) 'esk-turn-on-paredit) (add-hook (intern (concat (symbol-name mode) "-mode-hook")) 'esk-turn-on-paredit))
|
||||
|
||||
(defun esk-pretty-fn nil (font-lock-add-keywords nil `(("(\\(fn\\>\\)" (0 (progn (compose-region (match-beginning 1) (match-end 1) "ƒ") nil))))))
|
||||
|
||||
(add-hook 'clojure-mode-hook 'esk-pretty-fn)
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("starter-kit-lisp-pkg.el") (20815 22618
|
||||
;;;;;; 616623 0))
|
||||
|
||||
;;;***
|
||||
|
||||
(provide 'starter-kit-lisp-autoloads)
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; coding: utf-8
|
||||
;; End:
|
||||
;;; starter-kit-lisp-autoloads.el ends here
|
@ -1 +0,0 @@
|
||||
(define-package "starter-kit-lisp" "2.0.3" "Saner defaults and goodies for lisp languages" (quote ((starter-kit "2.0.2") (elisp-slime-nav "0.1"))))
|
@ -1,95 +0,0 @@
|
||||
;;; starter-kit-lisp.el --- Saner defaults and goodies for lisp languages
|
||||
;;
|
||||
;; Copyright (c) 2008-2011 Phil Hagelberg and contributors
|
||||
;;
|
||||
;; Author: Phil Hagelberg <technomancy@gmail.com>
|
||||
;; URL: http://www.emacswiki.org/cgi-bin/wiki/StarterKit
|
||||
;; Version: 2.0.3
|
||||
;; Keywords: convenience
|
||||
;; Package-Requires: ((starter-kit "2.0.2") (elisp-slime-nav "0.1"))
|
||||
|
||||
;; This file is not part of GNU Emacs.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; "Emacs outshines all other editing software in approximately the
|
||||
;; same way that the noonday sun does the stars. It is not just bigger
|
||||
;; and brighter; it simply makes everything else vanish."
|
||||
;; -Neal Stephenson, "In the Beginning was the Command Line"
|
||||
|
||||
;; This file contains tweaks specific to Lisp languages.
|
||||
|
||||
;;; 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
|
||||
;; 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 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.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Emacs Lisp
|
||||
|
||||
;;;###autoload
|
||||
(progn
|
||||
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
|
||||
(add-hook 'emacs-lisp-mode-hook 'esk-remove-elc-on-save)
|
||||
(add-hook 'emacs-lisp-mode-hook 'esk-prog-mode-hook)
|
||||
(add-hook 'emacs-lisp-mode-hook 'elisp-slime-nav-mode)
|
||||
|
||||
(defun esk-remove-elc-on-save ()
|
||||
"If you're saving an elisp file, likely the .elc is no longer valid."
|
||||
(make-local-variable 'after-save-hook)
|
||||
(add-hook 'after-save-hook
|
||||
(lambda ()
|
||||
(if (file-exists-p (concat buffer-file-name "c"))
|
||||
(delete-file (concat buffer-file-name "c"))))))
|
||||
|
||||
(define-key emacs-lisp-mode-map (kbd "C-c v") 'eval-buffer)
|
||||
|
||||
;;; Enhance Lisp Modes
|
||||
|
||||
(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol)
|
||||
(define-key lisp-mode-shared-map (kbd "RET") 'reindent-then-newline-and-indent)
|
||||
|
||||
;; TODO: look into parenface package
|
||||
(defface esk-paren-face
|
||||
'((((class color) (background dark))
|
||||
(:foreground "grey50"))
|
||||
(((class color) (background light))
|
||||
(:foreground "grey55")))
|
||||
"Face used to dim parentheses."
|
||||
:group 'starter-kit-faces)
|
||||
|
||||
(eval-after-load 'paredit
|
||||
;; need a binding that works in the terminal
|
||||
'(define-key paredit-mode-map (kbd "M-)") 'paredit-forward-slurp-sexp))
|
||||
|
||||
(dolist (mode '(scheme emacs-lisp lisp clojure))
|
||||
(when (> (display-color-cells) 8)
|
||||
(font-lock-add-keywords (intern (concat (symbol-name mode) "-mode"))
|
||||
'(("(\\|)" . 'esk-paren-face))))
|
||||
(add-hook (intern (concat (symbol-name mode) "-mode-hook"))
|
||||
'esk-turn-on-paredit)
|
||||
(add-hook (intern (concat (symbol-name mode) "-mode-hook"))
|
||||
'esk-turn-on-paredit))
|
||||
|
||||
(defun esk-pretty-fn ()
|
||||
(font-lock-add-keywords nil `(("(\\(fn\\>\\)"
|
||||
(0 (progn (compose-region (match-beginning 1)
|
||||
(match-end 1)
|
||||
"\u0192") nil))))))
|
||||
(add-hook 'clojure-mode-hook 'esk-pretty-fn))
|
||||
|
||||
(provide 'starter-kit-lisp)
|
||||
;;; starter-kit-lisp.el ends here
|
Loading…
Reference in New Issue
Block a user