doomemacs/core/core-sessions.el

;;; core-sessions.el

;; I use workgroups to accomplish two things:
;;   1. Vim-like tab emulation (type :tabs to see a list of tabs -- maybe I'll add some
;;      code to make a permanent frame header to display these some day)
;;   2. Session persistence

(use-package workgroups2
  :when (display-graphic-p)
  :init
  (setq-default
   wg-session-file          (expand-file-name "workgroups/last" narf-temp-dir)
   wg-workgroup-directory   (expand-file-name "workgroups/" narf-temp-dir)
   wg-first-wg-name         "*untitled*"
   wg-session-load-on-start nil
   wg-mode-line-display-on  nil
   wg-mess-with-buffer-list nil
   wg-emacs-exit-save-behavior           'save ; Options: 'save 'ask nil
   wg-workgroups-mode-exit-save-behavior 'save
   wg-log-level 0

   ;; NOTE: Some of these make workgroup-restoration unstable
   wg-restore-fringes t
   wg-restore-margins t
   wg-restore-scroll-bars t
   wg-restore-frame-position t
   wg-restore-remote-buffers t
   wg-restore-mark t
   wg-restore-point-max t

   wg-list-display-decor-divider         " "
   wg-list-display-decor-left-brace      ""
   wg-list-display-decor-right-brace     "| "
   wg-list-display-decor-current-left    ""
   wg-list-display-decor-current-right   ""
   wg-list-display-decor-previous-left   ""
   wg-list-display-decor-previous-right  "")

  (add-hook! emacs-startup (workgroups-mode +1))
  :config
  (unless (file-exists-p wg-workgroup-directory)
    (mkdir wg-workgroup-directory))

  (defvar narf-wg-frames '()
    "A list of all the frames opened as separate workgroups. See
defuns/defuns-workgroups.el.")
  (defvar narf-wg-names '()
    "A list of fixed names for workgroups. If a name is set, workgroup names aren't
automatically renamed to the project name.")

  ;; Remember the set names in between sessions
  (add-to-list 'savehist-additional-variables 'narf-wg-names)

  (after! projectile
    ;; Create a new workgroup on switch-project
    (setq projectile-switch-project-action 'narf/wg-projectile-switch-project))

  ;; Save the session every 20 minutes
  (defvar narf-wg-autosave-interval 1200)
  (narf|wg-autosave-enable)
  (add-hook 'focus-out-hook 'narf|wg-autosave-disable)
  (add-hook 'focus-in-hook  'narf|wg-autosave-enable)

  ;; Don't mess with the modeline!
  (advice-add 'wg-change-modeline :override 'ignore)

  ;; Don't remember popup windows
  (add-hook! kill-emacs
    (narf/popup-close-all)
    (when (and (featurep 'neotree) (neo-global--window-exists-p))
      (neotree-hide)))

  ;; This helps abstract some of the underlying functions away, just in case I want to
  ;; switch to a different package in the future, like persp-mode, eyebrowse or wconf.
  (defalias 'narf/tab-display 'narf/workgroup-display)
  (defalias 'narf/helm-tabs 'narf:helm-wg)
  (defalias 'narf/close-window-or-tab 'narf/close-window-or-workgroup)
  (defalias 'narf:tab-create 'narf:workgroup-new)
  (defalias 'narf:tab-rename 'narf:workgroup-rename)
  (defalias 'narf:kill-tab 'narf:workgroup-delete)
  (defalias 'narf:kill-other-tabs  'narf:kill-other-workgroups)
  (defalias 'narf:switch-to-tab 'narf:switch-to-workgroup-at-index)
  (defalias 'narf:switch-to-tab-left 'wg-switch-to-workgroup-left)
  (defalias 'narf:switch-to-tab-right 'wg-switch-to-workgroup-right)
  (defalias 'narf:switch-to-tab-last 'wg-switch-to-previous-workgroup))

(provide 'core-sessions)
;;; core-sessions.el ends here
Clearer names for core files 2016-01-29 02:07:20 -05:00			`;;; core-sessions.el`
Write core initfiles + defuns 2015-06-15 09:05:52 +02:00
wg: improve autosave + don't restore marks 2016-01-02 15:07:01 -05:00			`;; I use workgroups to accomplish two things:`
			`;; 1. Vim-like tab emulation (type :tabs to see a list of tabs -- maybe I'll add some`
			`;; code to make a permanent frame header to display these some day)`
			`;; 2. Session persistence`

Write core initfiles + defuns 2015-06-15 09:05:52 +02:00			`(use-package workgroups2`
Improve workgroups2 integration 2015-11-30 05:32:55 -05:00			`:when (display-graphic-p)`
Write core initfiles + defuns 2015-06-15 09:05:52 +02:00			`:init`
Improve workgroups2 integration 2015-11-30 05:32:55 -05:00			`(setq-default`
wg: make workgroups passively init 2016-03-15 23:33:52 -04:00			`wg-session-file (expand-file-name "workgroups/last" narf-temp-dir)`
Polish workgroups integration 2016-03-03 01:36:42 -05:00			`wg-workgroup-directory (expand-file-name "workgroups/" narf-temp-dir)`
Smarter (and prettier) wg integration (now like tabs in vim) 2015-12-10 20:43:33 -05:00			`wg-first-wg-name "untitled"`
wg: make workgroups passively init 2016-03-15 23:33:52 -04:00			`wg-session-load-on-start nil`
Improve workgroups2 integration 2015-11-30 05:32:55 -05:00			`wg-mode-line-display-on nil`
NARF v0.7.0 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) 2015-12-11 16:51:04 -05:00			`wg-mess-with-buffer-list nil`
Improve workgroups2 integration 2015-11-30 05:32:55 -05:00			`wg-emacs-exit-save-behavior 'save ; Options: 'save 'ask nil`
			`wg-workgroups-mode-exit-save-behavior 'save`
			`wg-log-level 0`

wg: make workgroups passively init 2016-03-15 23:33:52 -04:00			`;; NOTE: Some of these make workgroup-restoration unstable`
			`wg-restore-fringes t`
			`wg-restore-margins t`
			`wg-restore-scroll-bars t`
			`wg-restore-frame-position t`
			`wg-restore-remote-buffers t`
			`wg-restore-mark t`
			`wg-restore-point-max t`
Restore some stability to workgroups2 restore-on-init 2015-12-29 23:14:24 -05:00
Smarter (and prettier) wg integration (now like tabs in vim) 2015-12-10 20:43:33 -05:00			`wg-list-display-decor-divider " "`
			`wg-list-display-decor-left-brace ""`
NARF v0.7.0 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) 2015-12-11 16:51:04 -05:00			`wg-list-display-decor-right-brace "\| "`
Smarter (and prettier) wg integration (now like tabs in vim) 2015-12-10 20:43:33 -05:00			`wg-list-display-decor-current-left ""`
			`wg-list-display-decor-current-right ""`
Improve workgroups2 integration 2015-11-30 05:32:55 -05:00			`wg-list-display-decor-previous-left ""`
			`wg-list-display-decor-previous-right "")`
Write core initfiles + defuns 2015-06-15 09:05:52 +02:00
General clean up 2016-03-01 02:05:04 -05:00			`(add-hook! emacs-startup (workgroups-mode +1))`
			`:config`
NARF v0.7.0 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) 2015-12-11 16:51:04 -05:00			`(unless (file-exists-p wg-workgroup-directory)`
			`(mkdir wg-workgroup-directory))`
Polish workgroups2 integration: tie frames to workgroups 2015-11-08 17:57:41 -05:00
Replace popwin with shackle; refactor window/buffer defuns 2015-12-21 05:44:44 -05:00			`(defvar narf-wg-frames '()`
			`"A list of all the frames opened as separate workgroups. See`
Polish workgroups integration 2016-03-03 01:36:42 -05:00			`defuns/defuns-workgroups.el.")`
Replace popwin with shackle; refactor window/buffer defuns 2015-12-21 05:44:44 -05:00			`(defvar narf-wg-names '()`
			`"A list of fixed names for workgroups. If a name is set, workgroup names aren't`
Polish workgroups integration 2016-03-03 01:36:42 -05:00			`automatically renamed to the project name.")`
Replace popwin with shackle; refactor window/buffer defuns 2015-12-21 05:44:44 -05:00
			`;; Remember the set names in between sessions`
			`(add-to-list 'savehist-additional-variables 'narf-wg-names)`

Write core initfiles + defuns 2015-06-15 09:05:52 +02:00			`(after! projectile`
General clean-up and tiny bugfixes 2015-11-14 02:41:53 -05:00			`;; Create a new workgroup on switch-project`
Write core initfiles + defuns 2015-06-15 09:05:52 +02:00			`(setq projectile-switch-project-action 'narf/wg-projectile-switch-project))`

wg: improve autosave + don't restore marks 2016-01-02 15:07:01 -05:00			`;; Save the session every 20 minutes`
			`(defvar narf-wg-autosave-interval 1200)`
			`(narf\|wg-autosave-enable)`
Polish workgroups integration 2016-03-03 01:36:42 -05:00			`(add-hook 'focus-out-hook 'narf\|wg-autosave-disable)`
			`(add-hook 'focus-in-hook 'narf\|wg-autosave-enable)`
Replace popwin with shackle; refactor window/buffer defuns 2015-12-21 05:44:44 -05:00
			`;; Don't mess with the modeline!`
			`(advice-add 'wg-change-modeline :override 'ignore)`
The ciiiircle of liiiife 2015-11-25 06:00:49 -05:00
Replace popwin with shackle; refactor window/buffer defuns 2015-12-21 05:44:44 -05:00			`;; Don't remember popup windows`
wg: hide neotree when saving session 2016-03-04 22:34:38 -05:00			`(add-hook! kill-emacs`
			`(narf/popup-close-all)`
			`(when (and (featurep 'neotree) (neo-global--window-exists-p))`
			`(neotree-hide)))`
Improve workgroups2 tab emulation 2015-12-29 23:37:43 -05:00
			`;; This helps abstract some of the underlying functions away, just in case I want to`
			`;; switch to a different package in the future, like persp-mode, eyebrowse or wconf.`
wg: clean up 2016-01-27 20:42:48 -05:00			`(defalias 'narf/tab-display 'narf/workgroup-display)`
Improve workgroups2 tab emulation 2015-12-29 23:37:43 -05:00			`(defalias 'narf/helm-tabs 'narf:helm-wg)`
			`(defalias 'narf/close-window-or-tab 'narf/close-window-or-workgroup)`
			`(defalias 'narf:tab-create 'narf:workgroup-new)`
			`(defalias 'narf:tab-rename 'narf:workgroup-rename)`
			`(defalias 'narf:kill-tab 'narf:workgroup-delete)`
			`(defalias 'narf:kill-other-tabs 'narf:kill-other-workgroups)`
wg: clean up 2016-01-27 20:42:48 -05:00			`(defalias 'narf:switch-to-tab 'narf:switch-to-workgroup-at-index)`
Improve workgroups2 tab emulation 2015-12-29 23:37:43 -05:00			`(defalias 'narf:switch-to-tab-left 'wg-switch-to-workgroup-left)`
			`(defalias 'narf:switch-to-tab-right 'wg-switch-to-workgroup-right)`
			`(defalias 'narf:switch-to-tab-last 'wg-switch-to-previous-workgroup))`
Write core initfiles + defuns 2015-06-15 09:05:52 +02:00
Clearer names for core files 2016-01-29 02:07:20 -05:00			`(provide 'core-sessions)`
			`;;; core-sessions.el ends here`