diff options
| author |  Tom Willemse | 2015-09-23 15:15:33 +0200 |
|---|---|---|
| committer | Tom Willemse | 2015-09-23 15:15:33 +0200 |
| commit | 780bd0f3c457f792c6f11c5b6ae7e7888eb9aa17 (patch) | |
| tree | 1ce745f5de31fd5abc067a74580de322eb09ae54 /emacs | |
| parent | a25de0f81736ebebc020ef891c260ef35af878ba (diff) | |
| download | dotfiles-780bd0f3c457f792c6f11c5b6ae7e7888eb9aa17.tar.gz dotfiles-780bd0f3c457f792c6f11c5b6ae7e7888eb9aa17.zip | |
Remove stumpwm integration
I don't currently use stumpwm
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/.emacs.d/init.org | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org index 7d344a6..a52c0ec 100644 --- a/emacs/.emacs.d/init.org +++ b/emacs/.emacs.d/init.org @@ -707,50 +707,6 @@ `(add-hook 'emacs-startup-hook #'(lambda () ,@body))) #+END_SRC -* Stumpwm integration - - This variable, macro and function help with integrating Emacs and - Stumpwm. They are used by some other functions to make the two seem - extra connected. - - #+BEGIN_SRC emacs-lisp - (defvar oni:stumpish-program - (expand-file-name - "~/.local/share/quicklisp/local-projects/stumpwm/contrib/util/stumpish/stumpish") - "The location of the stumpish executable.") - - (defmacro oni:stumpwm (&rest body) - "Execute BODY in stumpwm." - (declare (indent 0)) - `(call-process oni:stumpish-program nil nil nil - ,(format "eval '%S'" `(progn ,@body)))) - - (defun oni:stumpwm-command (cmd) - "Execute CMD in stumpwm." - (call-process oni:stumpish-program nil nil nil cmd)) - - (defun oni:stumpwm-echo (message) - (call-process oni:stumpish-program nil nil nil (format "echo %s" message))) - #+END_SRC - -** Fall back on stumpwm when moving around - - Using the function specified in [[Stumpwm integration]] wrap the - =windmove-do-window-select= function and catch any error produced, - hoping it's the error that there's no more window to move to and - then request that stumpwm move the focus in the same direction as - windmove would have. - - #+BEGIN_SRC emacs-lisp - (defadvice windmove-do-window-select - (around oni:windmove-stumpwm activate) - "If no window can be moved to, move stumpwm." - (condition-case err - ad-do-it - (error (oni:stumpwm-command - (format "move-focus %s" (ad-get-arg 0)))))) - #+END_SRC - * Use the right dictionary One of the caveats of using two (or more) languages in a single |