aa26332d00
vcs: + +git-gutter to conf-modes; -git-gutter from evil-insert-state-exit + switch github-browse-file for browse-at-remote + fix <leader>ob; add <leader>d[./sr] vc bindings + vc-annotate bindings and initial state Workgroups2 integration: + don't mess with buffers (speeds up emacs a lot!) + unicode numbers in display + single display function + remember workgroup uid instead (and smarter :tabrename) + clean up after wg update Org-mode + give highlight precedence to links in org-mode + enable encryption + config clean up + use different font for org + exclude attachments in recentf + redo latex and inline-image config + add narf/org-open-notes + update file templates for org CRM Mode-line + polish mode-line + decouple from spaceline-segments.el + refactor narf|spaceline-env-update + add macro-recording and buffer-size indicators to mode-line + python: '2>&1' in env-command + flycheck fringe indicator: change to arrow Aesthetics + update narf-dark-theme + add narf-minibuffer-active face + change writing indicator in writing-mode Misc + fix whitespace in display-startup-echo-area-message + reset fonts for more unicode characters + custom imenu entries + helm-imenu fontification + enable yascroll-bar in REPLs + reorganize my-commands.el + force quit iedit on ESC in normal mode + update snippets submodule + remove ido init (helm handles it all) [EXPERIMENTAL] + back to Terminus(TTF) font + popwin: update config for git-gutter and vc-diff windows + highlight :g[lobal] and :al[ign] matches + decouple narf/get-buffers+narf/get-all-buffers from wg-mess-with-buffer-list + fix narf/helm-buffers-dwim (add interactive form)
181 lines
6.2 KiB
EmacsLisp
181 lines
6.2 KiB
EmacsLisp
;;; 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)
|
|
(require 'helm)
|
|
(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)
|
|
;; TODO narf/workgroup-display?
|
|
))
|
|
|
|
;;;###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))
|
|
(narf/workgroup-display t))
|
|
|
|
;;;###autoload (autoload 'narf:workgroup-new "defuns-workgroup" nil t)
|
|
(evil-define-command narf:workgroup-new (bang name &optional silent)
|
|
"Create a new workgroup. If BANG, clone the current one to it."
|
|
(interactive "<!><a>")
|
|
(unless name
|
|
(setq name (format "#%s" (length (wg-workgroup-list)))))
|
|
(if bang
|
|
(wg-clone-workgroup (wg-current-workgroup) name)
|
|
(wg-create-workgroup name t))
|
|
(unless silent
|
|
(narf--workgroup-display (wg-previous-workgroup)
|
|
(format "Created %s" name)
|
|
'success)))
|
|
|
|
;;;###autoload (autoload 'narf:workgroup-rename "defuns-workgroup" nil t)
|
|
(evil-define-command narf:workgroup-rename (bang &optional new-name)
|
|
(interactive "<!><a>")
|
|
(let* ((wg (wg-current-workgroup))
|
|
(wg-uid (wg-workgroup-uid wg))
|
|
(old-name (wg-workgroup-name wg)))
|
|
(if bang
|
|
(setq narf-wg-names (delete wg-uid narf-wg-names))
|
|
(unless new-name
|
|
(user-error "You didn't enter in a name"))
|
|
(wg-rename-workgroup new-name wg)
|
|
(add-to-list 'narf-wg-names wg-uid)
|
|
(narf--workgroup-display wg (format "Renamed '%s'->'%s'" old-name new-name) 'success))))
|
|
|
|
;;;###autoload (autoload 'narf:workgroup-delete "defuns-workgroup" nil t)
|
|
(evil-define-command narf:workgroup-delete (&optional bang name)
|
|
(interactive "<!><a>")
|
|
(let* ((current-wg (wg-current-workgroup))
|
|
(wg-name (or name (wg-workgroup-name current-wg))))
|
|
(when bang
|
|
(setq wg-name (wg-read-workgroup-name)))
|
|
(let ((wg (wg-get-workgroup name)))
|
|
(if (eq wg current-wg)
|
|
(wg-kill-workgroup)
|
|
(wg-delete-workgroup wg))
|
|
(narf--workgroup-display nil (format "Deleted %s" wg-name) 'success))))
|
|
|
|
;;;###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)))))
|
|
|
|
(defun narf--num-to-unicode (num)
|
|
"Return a nice unicode representation of a single-digit number STR."
|
|
(cl-case num
|
|
(1 "➊")
|
|
(2 "➋")
|
|
(3 "➌")
|
|
(4 "➍")
|
|
(5 "➎")
|
|
(6 "❻")
|
|
(7 "➐")
|
|
(8 "➑")
|
|
(9 "➒")
|
|
(0 "➓")))
|
|
|
|
(defun narf--workgroup-display (&optional suppress-update message message-face)
|
|
(message "%s%s" (narf/workgroup-display suppress-update t)
|
|
(propertize message 'face message-face)))
|
|
|
|
;;;###autoload
|
|
(defun narf/workgroup-display (&optional suppress-update return-p)
|
|
(interactive)
|
|
(when (wg-current-session t)
|
|
(unless (eq suppress-update t)
|
|
(narf/workgroup-update-names (if (wg-workgroup-p suppress-update) suppress-update)))
|
|
(let ((output (wg-display-internal
|
|
(lambda (workgroup index)
|
|
(if (not workgroup) wg-nowg-string
|
|
(wg-element-display
|
|
workgroup
|
|
(format " %s %s " (narf--num-to-unicode (1+ index)) (wg-workgroup-name workgroup))
|
|
'wg-current-workgroup-p)))
|
|
(wg-workgroup-list))))
|
|
(if return-p
|
|
output
|
|
(message "%s" output)))))
|
|
|
|
;;;###autoload
|
|
(defun narf/workgroup-update-names (&optional wg)
|
|
(let ((wg (or wg (wg-current-workgroup))))
|
|
(unless (memq wg narf-wg-names)
|
|
(ignore-errors
|
|
(let ((old-name (wg-workgroup-name wg))
|
|
(base (f-filename (buffer-file-name))))
|
|
(unless (string= base old-name)
|
|
(wg-rename-workgroup base wg)))))))
|
|
|
|
;;;###autoload (autoload 'narf:switch-to-workgroup-left "defuns-workgroup" nil t)
|
|
(evil-define-command narf:switch-to-workgroup-left (count)
|
|
(interactive "<c>")
|
|
(narf/workgroup-update-names)
|
|
(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)
|
|
(evil-define-command narf:switch-to-workgroup-right (count)
|
|
(interactive "<c>")
|
|
(narf/workgroup-update-names)
|
|
(if count
|
|
(wg-switch-to-workgroup-at-index (1- count))
|
|
(wg-switch-to-workgroup-right))
|
|
(narf/workgroup-display t))
|
|
|
|
;;;###autoload
|
|
(defun narf:switch-to-workgroup-at-index (index)
|
|
(interactive)
|
|
(narf/workgroup-update-names)
|
|
(let ((wgs (wg-workgroup-list-or-error)))
|
|
(unless (eq (nth index wgs) (wg-current-workgroup t))
|
|
(wg-switch-to-workgroup-at-index index)))
|
|
(narf/workgroup-display t))
|
|
|
|
;;;###autoload
|
|
(defun narf/undo-window-change ()
|
|
(interactive)
|
|
(call-interactively (if (wg-current-workgroup t) 'wg-undo-wconfig-change 'winner-undo)))
|
|
|
|
;;;###autoload
|
|
(defun narf/redo-window-change ()
|
|
(interactive)
|
|
(call-interactively (if (wg-current-workgroup t) 'wg-redo-wconfig-change 'winner-redo)))
|
|
|
|
;;;###autoload
|
|
(defun narf/close-window-or-workgroup ()
|
|
(interactive)
|
|
(if (and (= (length (window-list)) 1)
|
|
(> (length (wg-workgroup-list)) 1))
|
|
(if (string= (wg-workgroup-name (wg-current-workgroup)) wg-first-wg-name)
|
|
(evil-window-delete)
|
|
(narf:workgroup-delete))
|
|
(evil-window-delete)))
|
|
|
|
|
|
(provide 'defuns-workgroup)
|
|
;;; defuns-workgroup.el ends here
|