Write core initfiles + defuns

core/lib/defuns-workgroup.el

@@ -0,0 +1,56 @@
+;;; defuns-workgroup.el
+
+;;;###autoload
+(defun narf/wg-helm-switch-to-workgroup (name)
+  (wg-switch-to-workgroup (wg-get-workgroup name)))
+
+;;;###autoload
+(defun narf:helm-wg ()
+  (interactive)
+  (helm :sources '(narf/helm-source-wg)))
+
+;;;###autoload
+(defun narf/wg-projectile-switch-project ()
+  (let ((workgroup-name (file-name-nondirectory (directory-file-name (narf/project-root)))))
+    (wg-create-workgroup workgroup-name t)
+    (helm-projectile-find-file)))
+
+;;;###autoload (autoload 'narf:save-session "defuns-workgroup" nil t)
+(evil-define-command narf:save-session (&optional bang session-name)
+  (interactive "<!><a>")
+  (if session-name
+      (wg-save-session-as (concat wg-workgroup-directory session-name) (not bang))
+    (wg-save-session)))
+
+;;;###autoload (autoload 'narf:load-session "defuns-workgroup" nil t)
+(evil-define-command narf:load-session (&optional bang session-name)
+  (interactive "<!><a>")
+  (wg-open-session (if session-name
+                       (concat wg-workgroup-directory session-name)
+                     wg-session-file)))
+
+;;;###autoload (autoload 'narf:workgroup-new "defuns-workgroup" nil t)
+(evil-define-command narf:workgroup-new (bang name)
+  (interactive "<!><a>")
+  (unless name
+    (user-error "No name specified for new workgroup"))
+  (if bang
+      (wg-clone-workgroup (wg-current-workgroup) name)
+    (wg-create-workgroup name t)))
+
+;;;###autoload (autoload 'narf:workgroup-rename "defuns-workgroup" nil t)
+(evil-define-command narf:workgroup-rename (new-name)
+  (interactive "<a>")
+  (wg-rename-workgroup new-name))
+
+;;;###autoload
+(defun narf:kill-other-workgroups ()
+  "Kill all other workgroups."
+  (interactive)
+  (let (workgroup (wg-current-workgroup))
+    (dolist (w (wg-workgroup-list))
+      (unless (wg-current-workgroup-p w)
+        (wg-kill-workgroup w)))))
+
+(provide 'defuns-workgroup)
+;;; defuns-workgroup.el ends here