156 lines
4.9 KiB
EmacsLisp
156 lines
4.9 KiB
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; various workspaces used day to day
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; load most recent auto save
|
|
(defun kmn/workspace-load-auto ()
|
|
(interactive)
|
|
(persp-load-state-from-file "persp-auto-save")
|
|
(persistent-scratch-restore)
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; save the current workspace to `latest` filename
|
|
(defun kmn/workspace-save-latest ()
|
|
(interactive)
|
|
(persp-save-state-to-file "latest")
|
|
(persistent-scratch-save-to-file
|
|
(expand-file-name ".persistent-scratch-latest" user-emacs-directory))
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; load `latest` file name to current workspace
|
|
(defun kmn/workspace-load-latest ()
|
|
(interactive)
|
|
(persp-load-state-from-file "latest")
|
|
(persistent-scratch-restore-from-file
|
|
(expand-file-name ".persistent-scratch-latest" user-emacs-directory))
|
|
)
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; org-mode workspace
|
|
(when (not kmn/is-dayjob)
|
|
(defun kmn/workspace-org ()
|
|
(interactive)
|
|
; start with fresh frame
|
|
(delete-other-windows)
|
|
(kmn/kill-other-buffers)
|
|
(ignore-errors (kill-buffer "*scratch*"))
|
|
; top window for habits/scheduled
|
|
(org-agenda nil "h")
|
|
(goto-char 0)
|
|
; main todo/slipbox
|
|
(split-window-below)
|
|
(next-multiframe-window)
|
|
(org-agenda nil "t")
|
|
(goto-char 0)
|
|
; show kmn health notes/data tracker
|
|
;(split-window-below)
|
|
;(next-multiframe-window)
|
|
;(find-file "~/org/health/health_mike.org")
|
|
;(goto-char 0)
|
|
; focus top most frame
|
|
(next-multiframe-window)
|
|
)
|
|
)
|
|
|
|
(when kmn/is-dayjob
|
|
(defun kmn/workspace-org ()
|
|
(interactive)
|
|
; start with fresh frame
|
|
(delete-other-windows)
|
|
(kmn/kill-other-buffers)
|
|
(ignore-errors (kill-buffer "*scratch*"))
|
|
; front load org-agenda so it doesnt reshuffle the frame layout on us
|
|
(org-agenda nil "r")
|
|
(split-window-below)
|
|
(next-multiframe-window)
|
|
; show slipbox
|
|
(find-file "~/org/_slipbox.org")
|
|
; split window for additional file to show
|
|
(split-window-below)
|
|
(next-multiframe-window)
|
|
(find-file "~/org/_habits.org")
|
|
(find-file "~/org/_index.org")
|
|
(find-file "~/org/_todo.org")
|
|
; switch to top of agenda window so most useful window is focused
|
|
(next-multiframe-window)
|
|
(goto-char 0)
|
|
)
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; org-mode workspace for termux devices (mobile / android)
|
|
(when (not kmn/is-dayjob)
|
|
(defun kmn/workspace-org-single-window ()
|
|
(interactive)
|
|
; start with fresh frame
|
|
(delete-other-windows)
|
|
(kmn/kill-other-buffers)
|
|
(ignore-errors (kill-buffer "*scratch*"))
|
|
; Open main files used as 'gateway' to everything else
|
|
(find-file "~/org/health/health_houdini.org")
|
|
(find-file "~/org/health/health_mike.org")
|
|
(find-file "~/org/orgzly/_habits.org")
|
|
(find-file "~/org/orgzly/_todo.org")
|
|
(find-file "~/org/orgzly/_slipbox.org")
|
|
(find-file "~/org/_index.org")
|
|
; Personal startup screen - orgmode agenda with all TODO
|
|
(org-agenda nil "r")
|
|
; start at the top of the agenda
|
|
(goto-char 0)
|
|
)
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; empty code workspace
|
|
(defun kmn/workspace-code-empty (&optional dir_path)
|
|
(interactive)
|
|
(delete-other-windows)
|
|
(kmn/kill-other-buffers)
|
|
(ignore-errors (kill-buffer "*scratch*"))
|
|
(scratch 'text-mode)
|
|
; show dired at `~` in left side window
|
|
(kmn/dired-directory-on-left dir_path)
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; emacs config development
|
|
(defun kmn/workspace-code-emacs-config()
|
|
(interactive)
|
|
(kmn/workspace-code-empty "~/.emacs.d.profiles")
|
|
(find-file "~/.emacs.d.profiles/org/init.el")
|
|
(find-file "~/.emacs.d.profiles/code/init.el")
|
|
(find-file "~/.emacs.d.profiles/common/_global.el")
|
|
(find-file "~/.emacs.d.profiles/common/generic_functions.el")
|
|
(find-file "~/.emacs.d.profiles/common/workspaces.el")
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; hugo development
|
|
(defun kmn/workspace-code-generic()
|
|
(interactive)
|
|
(kmn/workspace-code-empty "~/src")
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; scratch buffers frame - use 'scratch and prompts to manage as needed
|
|
(defun kmn/workspace-frame-scratch()
|
|
(interactive)
|
|
(let ((frame (make-frame)))
|
|
(select-frame-set-input-focus frame)
|
|
(delete-other-windows)
|
|
(scratch 'text-mode)
|
|
)
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; scratch buffers frame, prompt for initial mode - use 'scratch and prompts to manage as needed
|
|
(defun kmn/workspace-frame-scratch-prompt()
|
|
(interactive)
|
|
(let ((frame (make-frame)))
|
|
(select-frame-set-input-focus frame)
|
|
(delete-other-windows)
|
|
(scratch (let ((current-prefix-arg t)) (scratch--buffer-querymode)))
|
|
)
|
|
)
|