kemonine
/
emacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

move org mode mobile workspace stuff to workspaces elisp file

This commit is contained in:
KemoNine 2023-04-08 15:22:25 -04:00
parent a72c1eff63
commit 1c00b9ac38
2 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
common/workspaces.el
View File

@ -44,6 +44,26 @@
(goto-char 0)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; org-mode workspace for termux devices (mobile / android)
(defun kmn/workspace-org-single-window ()
(interactive)
; start with fresh frame
(delete-other-windows)
(kmn/kill-other-buffers)
; 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)

18
org/config-org-mobile.el
View File

@ -1,20 +1,11 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; /data/data/com.termux/files/home/storage/shared/.emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; misc tweaks
(setq org-habit-graph-column 60)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Open main files used as 'gateway' to everything else (Mobile)
(find-file "~/org/health/health_houdini.org")
(find-file "~/org/health/health_mike.org")
(find-file "~/storage/shared/org/orgzly/_habits.org")
(find-file "~/storage/shared/org/orgzly/_todo.org")
(find-file "~/storage/shared/org/orgzly/_slipbox.org")
(find-file "~/storage/shared/org/_index.org")
; Personal startup screen - orgmode agenda with all TODO (Mobile)
(add-hook 'after-init-hook (lambda () (org-agenda nil "r")))
; Make sure emacs and org don't keep opening new windows (Mobile)
; Not enough screen real estate with on screen keyboards for that
(setq pop-up-windows nil)
@ -36,4 +27,9 @@
(display-buffer buf not-this-window)))
(setq display-buffer-function 'my/display-buffer-function)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; set ui to standard org-workspace at launch
(add-hook 'after-init-hook (lambda ()
(kmn/workspace-org-single-window)
))