From 9df6bb4922d08a9db2233f738b691eebc6e3120a Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 15 Jun 2011 12:19:30 +0200
Subject: EMACS: compile, htmlize, js, stumpwm

  * install.sh tries to compile emacs.el before linking the emacs.elc
    to ~/. This is to always have a compiled .emacs.elc for speediest
    startup.
  * I removed a little bit of code from htmlize.el that was causing
    trouble with the naquadah theme.
  * I removed javascript-mode, because the built-in js-mode is better.
  * I Added stumpwm mode
  * When I save a file and it is in html-mode it will try and replace
    all occurrences of é with é before continueing.
---
 emacs.d/elisp/stumpwm-mode.el | 68 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 emacs.d/elisp/stumpwm-mode.el

(limited to 'emacs.d/elisp/stumpwm-mode.el')

diff --git a/emacs.d/elisp/stumpwm-mode.el b/emacs.d/elisp/stumpwm-mode.el
new file mode 100644
index 0000000..0d5fa13
--- /dev/null
+++ b/emacs.d/elisp/stumpwm-mode.el
@@ -0,0 +1,68 @@
+;;; stumpwm-mode.el --- special lisp mode for evaluating code into running stumpwm
+
+;; Copyright (C) 2007  Shawn Betts
+
+;; Maintainer: Shawn Betts
+;; Keywords: comm, lisp, tools
+
+;; This file 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 2, or (at your option)
+;; any later version.
+
+;; This file 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:
+
+;; load this file, set stumpwm-shell-program to point to stumpish and
+;; run M-x stumpwm-mode in your stumpwm lisp files. Now, you can
+;; easily eval code into a running stumpwm using the regular bindings.
+
+;;; Code:
+
+(defvar stumpwm-shell-program "stumpish"
+  "program name, including path if needed, for the stumpish program.")
+
+(define-minor-mode stumpwm-mode
+    "add some bindings to eval code into a running stumpwm using stumpish."
+  :global nil
+  :lighter " StumpWM"
+  :keymap (let ((m (make-sparse-keymap)))
+            (define-key m (kbd "C-M-x") 'stumpwm-eval-defun)
+            (define-key m (kbd "C-x C-e") 'stumpwm-eval-last-sexp)
+            m))
+
+(defun stumpwm-eval-region (start end)
+  (interactive "r")
+  (let ((s (buffer-substring-no-properties start end)))
+    (message "%s"
+             (with-temp-buffer
+               (call-process stumpwm-shell-program nil (current-buffer) nil
+                             "eval"
+                             s)
+               (delete-char -1)
+               (buffer-string)))))
+
+(defun stumpwm-eval-defun ()
+  (interactive)
+  (save-excursion
+    (end-of-defun)
+    (skip-chars-backward " \t\n\r\f")
+    (let ((end (point)))
+      (beginning-of-defun)
+      (stumpwm-eval-region (point) end))))
+
+(defun stumpwm-eval-last-sexp ()
+  (interactive)
+  (stumpwm-eval-region (save-excursion (backward-sexp) (point)) (point)))
+
+(provide 'stumpwm-mode)
+;;; stumpwm-mode.el ends here
-- 
cgit v1.2.3-54-g00ecf