diff options
Diffstat (limited to '.emacs.d/init.el')
-rw-r--r-- | .emacs.d/init.el | 21 |
1 files changed, 0 insertions, 21 deletions
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) |