;; This file:
;;   http://angg.twu.net/elisp/doom-test-0.el.html
;;   http://angg.twu.net/elisp/doom-test-0.el
;;           (find-angg "elisp/doom-test-0.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; See: (find-es "doom" "fake-home-dir")
;;
;; (defun e () (interactive) (find-angg "elisp/doom-test-0.el"))



(add-to-list 'load-path "/home/edrx/eev-current/")
(require 'eev-load)    ; (find-eev "eev-load.el")
(eev-mode 1)           ; (find-eev "eev-mode.el")

(code-c-d "angg" "/home/edrx/")
(code-c-d "es"   "/home/edrx/e/")
(defun find-es (stem &rest rest)
  (apply 'find-anchor (ee-esfile (concat stem ".e")) rest))

(code-c-d "fakehome" "/tmp/fake-home-dir/" :anchor)
;; (find-fakehomefile "")
;; (find-fakehomefile ".emacs.d/bin/")
;; (find-fakehomefile ".emacs.d/bin/doom")

(global-set-key (kbd "M-o") 'other-window)
(global-set-key (kbd "s-b") 'blink-cursor-mode)
(global-set-key (kbd "s-f") 'toggle-frame-fullscreen)
(global-set-key (kbd "s-m") 'menu-bar-mode)
(global-set-key (kbd "s-s") 'toggle-scroll-bar)
(global-set-key (kbd "s-t") 'tool-bar-mode)



'("This is a test block:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rfv /tmp/fake-home-dir/
mkdir   /tmp/fake-home-dir/
cd      /tmp/fake-home-dir/

export HOME=/tmp/fake-home-dir
export PATH=/tmp/fake-home-dir/.emacs.d/bin/:$PATH
echo ~/.emacs.d

git clone --depth 1 https://github.com/hlissner/doom-emacs ~/.emacs.d
~/.emacs.d/bin/doom install

# (find-fakehomefile ".emacs.d/bin/doom")
# (find-fline "/home/edrx/DOOM/install-0.log")

cd /tmp/fake-home-dir/
tar -cvzf /home/edrx/DOOM/fakehomedir.tgz .* 


* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rf  /tmp/fake-home-dir/
mkdir   /tmp/fake-home-dir/
cd      /tmp/fake-home-dir/
tar -C  /tmp/fake-home-dir/ -xzf /home/edrx/DOOM/fakehomedir.tgz

export HOME=/tmp/fake-home-dir
export PATH=/tmp/fake-home-dir/.emacs.d/bin/:$PATH
echo ~/.emacs.d
# (find-fline "/home/edrx/DOOM/install-0.log")
# (find-fline "/home/edrx/DOOM/install-0.log" "doom help env")
# (find-fline "/home/edrx/DOOM/install-0.log" "doom sync")

doom help env
doom sync

# (find-es "doom" "disable-evil-mode")
# (find-fakehome "")
# (find-fakehomefile ".doom.d/init.el")
# (find-fakehomefile ".doom.d/init.el" "modeline")
# (find-fakehomefile ".doom.d/init.el" "workspaces")
# (find-fakehomefile ".doom.d/init.el" "(evil +everywhere)")
# (find-fakehomefile ".doom.d/init.el" "file-templates")
# (find-fakehomefile ".doom.d/init.el" "dired")
# (find-fakehomesh "find .* | sort")
# (find-fakehomesh "find .* | sort | grep workspace")
# (find-fakehomefile ".emacs.d/modules/ui/workspaces/README.org")
# (find-fakehomefile ".emacs.d/modules/ui/workspaces/README.org" "private/default/+bindings.el")
# (find-fakehomefile ".emacs.d/modules/ui/workspaces/README.org" "private/default/+bindings.el" "M-1")
# (find-fakehomefile ".emacs.d/modules/config/default/")
# (find-fakehomefile ".emacs.d/modules/config/default/+evil-bindings.el")
# (find-fakehomefile ".emacs.d/modules/config/default/+evil-bindings.el" "M-1")


* (eepitch-shell3)
* (eepitch-kill)
* (eepitch-shell3)
cd          /tmp/fake-home-dir/
export PATH=/tmp/fake-home-dir/.emacs.d/bin/:$PATH
export HOME=/tmp/fake-home-dir

# /home/edrx/bigsrc/emacs29/src/emacs -T emacs29 \

e27_0 () {
  HOME=$PWD \
    emacs -T in_fake_home_dir \
      -fg bisque -bg black -fn $EMACSFONT \
        -l /home/edrx/elisp/doom-test-0.el \
          $*
}

echo ~/.emacs.d/
laf  ~/.emacs.d/
e27_0 &


--")



;; Local Variables:
;; coding:  utf-8-unix
;; End: