;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; /data/data/com.termux/files/home/storage/shared/.emacs
; Open main files used as 'gateway' to everything else (Mobile)
(find-file "~/storage/shared/org/_habits.org")
(find-file "~/storage/shared/org/_todo.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)
(setq inhibit-same-window nil)
(setq inhibit-switch-frame nil)
(setq split-height-threshold 200)
(setq split-width-threshold 200)
(defun my-display-buffer-function (buf not-this-window)
(if (and (not pop-up-frames)
(one-window-p)
(or not-this-window
(not (eq (window-buffer (selected-window)) buf)))
(> (frame-width) 162))
(split-window-horizontally))
;; Note: Some modules sets `pop-up-windows' to t before calling
;; `display-buffer' -- Why, oh, why!
(let ((display-buffer-function nil)
(pop-up-windows nil))
(display-buffer buf not-this-window)))
(setq display-buffer-function 'my-display-buffer-function)
