From 541b4c606f927b0a9506338b05fd52f03b03f3ff Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 7 Nov 2013 21:56:15 +0100
Subject: Update link to stante-after, move stumpwm stuff to init.org

---
 .emacs.d/init.el | 21 ---------------------
 1 file changed, 21 deletions(-)

(limited to '.emacs.d/init.el')

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 93bc348..380e99b 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -35,10 +35,6 @@
 (defvar sql-product)
 (defvar sql-prompt-regexp)
 
-(defvar init-stumpish-program
-  (expand-file-name
-   "~/.local/share/quicklisp/local-projects/stumpwm/contrib/stumpish"))
-
 (defadvice org-agenda-redo (after ext:org-agenda-redo-add-appts)
   "Pressing `r' on the agenda will also add appointments."
   (progn
@@ -49,27 +45,10 @@
   "Kill the term buffer if the process finished."
   (kill-buffer (current-buffer)))
 
-(defadvice windmove-do-window-select
-  (around init-windmove-stumpwm activate)
-  "If no window can be moved to, move stumpwm."
-  (condition-case err
-      ad-do-it
-    (error (stumpwm-command (format "move-focus %s" (ad-get-arg 0))))))
-
 (defmacro addf (place value)
   "Prepend to PLACE VALUE."
   `(setf ,place (cons ,value ,place)))
 
-(defmacro stumpwm (&rest body)
-  "Execute BODY in stumpwm."
-  (declare (indent 0))
-  `(call-process init-stumpish-program nil nil nil
-                 ,(format "eval '%S'" `(progn ,@body))))
-
-(defun stumpwm-command (cmd)
-  "Execute CMD in stumpwm."
-  (call-process init-stumpish-program nil nil nil cmd))
-
 (defun init-augment-sql-prompt ()
   "Add the MariaDB prompt to the `sql-pomrpt-regexp'."
   (if (eq sql-product 'mysql)
-- 
cgit v1.2.3-54-g00ecf