From 1c00b9ac386086868f96281e8b88d5da675a0a3b Mon Sep 17 00:00:00 2001
From: KemoNine <kemonine@kemonine.info>
Date: Sat, 8 Apr 2023 15:22:25 -0400
Subject: [PATCH] move org mode mobile workspace stuff to workspaces elisp file

---
 common/workspaces.el     | 20 ++++++++++++++++++++
 org/config-org-mobile.el | 18 +++++++-----------
 2 files changed, 27 insertions(+), 11 deletions(-)

diff --git a/common/workspaces.el b/common/workspaces.el
index ac0f51a..b251e32 100644
--- a/common/workspaces.el
+++ b/common/workspaces.el
@@ -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)
diff --git a/org/config-org-mobile.el b/org/config-org-mobile.el
index 91f0158..5e6221c 100644
--- a/org/config-org-mobile.el
+++ b/org/config-org-mobile.el
@@ -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)
+))