1234567891011121314151617181920212223242526272829303132333435363738394041 |
- (require 'sauron)
- (defun al/sauron-toggle-hide-show ()
- "Toggle between showing/hiding the sauron window or frame.
- If sauron is shown, switch to its window."
- (interactive)
- (sauron-toggle-hide-show)
- (let ((buf (get-buffer-window sr-buffer)))
- (and buf (select-window buf))))
- (defun al/sauron-restart ()
- "Restart sauron."
- (interactive)
- (sauron-stop)
- (sauron-start))
- (provide 'al-sauron)
|