emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wg: refactor defuns lib + narf/wg-autosave

Browse source
This commit is contained in:
Henrik Lissner 2015-12-23 03:44:30 -05:00
parent 3ffde24ca9
commit 980cc8a0a6
1 changed files with 22 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

37
core/lib/defuns-workgroup.el
View file

@ -102,7 +102,7 @@
(propertize message 'face message-face))) (propertize message 'face message-face)))
;;;###autoload ;;;###autoload
(defun narf/workgroup-display (&optional suppress-update return-p) (defun narf/workgroup-display (&optional suppress-update return-p message)
(interactive) (interactive)
(when (wg-current-session t) (when (wg-current-session t)
(unless (eq suppress-update t) (unless (eq suppress-update t)
@ -117,7 +117,7 @@
(wg-workgroup-list)))) (wg-workgroup-list))))
(if return-p (if return-p
output output
(message "%s" output))))) (message "%s%s" output (or message ""))))))
;;;###autoload ;;;###autoload
(defun narf/workgroup-update-names (&optional wg) (defun narf/workgroup-update-names (&optional wg)
@ -125,27 +125,30 @@
(unless (memq wg narf-wg-names) (unless (memq wg narf-wg-names)
(ignore-errors (ignore-errors
(let ((old-name (wg-workgroup-name wg)) (let ((old-name (wg-workgroup-name wg))
(base (f-filename (buffer-file-name)))) (new-name (f-filename (narf/project-root))))
(unless (string= base old-name) (unless (string= new-name old-name)
(wg-rename-workgroup base wg))))))) (wg-rename-workgroup new-name wg)))))))
(defun narf--switch-to-workgroup (direction &optional count)
(interactive "<c>")
(assert (memq direction '(left right)))
(condition-case err
(progn
(if count
(wg-switch-to-workgroup-at-index (1- count))
(funcall (intern (format "wg-switch-to-workgroup-%s" direction))))
(narf/workgroup-display t))
(error (narf/workgroup-display t nil (format "Nope! %s" (cadr err))))))
;;;###autoload (autoload 'narf:switch-to-workgroup-left "defuns-workgroup" nil t) ;;;###autoload (autoload 'narf:switch-to-workgroup-left "defuns-workgroup" nil t)
(evil-define-command narf:switch-to-workgroup-left (count) (evil-define-command narf:switch-to-workgroup-left (count)
(interactive "<c>") (interactive "<c>")
(narf/workgroup-update-names) (narf--switch-to-workgroup 'left))
(if count
(wg-switch-to-workgroup-at-index (1- count))
(wg-switch-to-workgroup-left))
(narf/workgroup-display t))
;;;###autoload (autoload 'narf:switch-to-workgroup-right "defuns-workgroup" nil t) ;;;###autoload (autoload 'narf:switch-to-workgroup-right "defuns-workgroup" nil t)
(evil-define-command narf:switch-to-workgroup-right (count) (evil-define-command narf:switch-to-workgroup-right (count)
(interactive "<c>") (interactive "<c>")
(narf/workgroup-update-names) (narf--switch-to-workgroup 'right))
(if count
(wg-switch-to-workgroup-at-index (1- count))
(wg-switch-to-workgroup-right))
(narf/workgroup-display t))
;;;###autoload ;;;###autoload
(defun narf:switch-to-workgroup-at-index (index) (defun narf:switch-to-workgroup-at-index (index)
@ -176,6 +179,10 @@
(narf:workgroup-delete)) (narf:workgroup-delete))
(evil-window-delete))) (evil-window-delete)))
;;;###autoload
(defun narf/wg-autosave ()
(when (wg-current-session t)
(shut-up! (wg-save-session))))
(provide 'defuns-workgroup) (provide 'defuns-workgroup)
;;; defuns-workgroup.el ends here ;;; defuns-workgroup.el ends here