;; This file:
;;   http://anggtwu.net/elisp/straight-bootstrap.el.html
;;   http://anggtwu.net/elisp/straight-bootstrap.el
;;          (find-angg "elisp/straight-bootstrap.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>   <- no no no no no

;; Taken from:
;; https://github.com/radian-software/straight.el?tab=readme-ov-file#getting-started
;;   See: (find-es "emacs" "straight" "## Getting started")
;;
;; Usage: (load "/home/edrx/elisp/straight-bootstrap.el")
;;        (find-tryit-links "s S" '(find-eev-quick-intro "2."))
;;
(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name
        "straight/repos/straight.el/bootstrap.el"
        (or (bound-and-true-p straight-base-dir)
            user-emacs-directory)))
      (bootstrap-version 7))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         ;; "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         "https://radian-software.github.io/straight.el/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))



;; (add-to-list 'load-path "/home/edrx/eev-current/")
;; (require 'eev-load)    ; (find-eev "eev-load.el")
;; (require 'eev-aliases) ; (find-eev "eev-aliases.el")
;; (eev-mode 1)           ; (find-eev "eev-mode.el")
;;
;; (require 'package-vc)
;; (package-vc-install "https://github.com/edrx/eev")
;; (eev-beginner)

;; (defun o   () (interactive) (find-fline "/home/edrx/elisp/straight-bootstrap.el"))
;; (defun fli () (interactive) (find-lean4-intro))
;;
;; ;; See: (find-angg ".emacs" "super-key")
;; (global-set-key "\M-o" 'other-window)
;; (global-set-key (kbd "s-b") 'blink-cursor-mode)
;; (global-set-key (kbd "s-s") 'toggle-scroll-bar)
;; (global-set-key (kbd "s-t") 'tool-bar-mode)
;; (global-set-key (kbd "s-m") 'menu-bar-mode)
;; (global-set-key (kbd "s-f") 'toggle-frame-fullscreen)
;; (global-set-key (kbd "s-w") 'wrap)
;; (defun eejump-16 () (set-frame-font "Monospace 16" t))
;;
;; (eek "s-t  s-m  s-s  M-1 M-1 M-j  s-f")
;; (show-paren-mode -1)
;; (ee-use-red-bullets)
;; (ee-use-red-stars)
;; (find-try-sly-links)
;;
;; (require 'package)
;; (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
;; (find-epackage-links 'pdf-tools)
;; (pdf-tools-install)
;;
'("This is a test block:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
$EMACS30 $EMACSFGBGFONT -Q -l /tmp/o.el &
$EMACS29 $EMACSFGBGFONT -Q -l /tmp/o.el &
$EMACS28 $EMACSFGBGFONT -Q -l /tmp/o.el &
$EMACS27 $EMACSFGBGFONT -Q -l /tmp/o.el &
~/bigsrc/emacs29/src/emacs \
      -fg bisque -bg black -Q -l /tmp/o.el &
emacs -fg bisque -bg black -Q -l /home/edrx/elisp/straight-bootstrap.el &

** (find-eepitch-select-shell-links)

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# Use this to test package managers:
rm -Rfv /tmp/fake-home-dir/
mkdir   /tmp/fake-home-dir/
cd      /tmp/fake-home-dir/
echo '
  PS1="%d(%n:tmp)\# "
  setopt interactivecomments
'    > /tmp/fake-home-dir/.zshrc

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rfv /tmp/fake-home-dir/
mkdir   /tmp/fake-home-dir/
cd      /tmp/fake-home-dir/
export LUA_INIT=
export HOME=$PWD
export    S=$PWD/snarf

HOME=$PWD $EMACS28 $EMACSFGBGFONT -Q -l /tmp/o.el &
HOME=$PWD $EMACS29 $EMACSFGBGFONT -Q -l /tmp/o.el &
HOME=$PWD $EMACS30 $EMACSFGBGFONT -Q -l /tmp/o.el &
HOME=$PWD $EMACS31 $EMACSFGBGFONT -Q -l /tmp/o.el &

EMACS=/home/edrx/bigsrc/emacs29/src/emacs
EMACS=/home/edrx/bigsrc/emacs30/src/emacs
 HOME=$PWD $EMACS -fg bisque -bg black    -l /home/edrx/elisp/straight-bootstrap.el &
#HOME=$PWD $EMACS -fg bisque -bg black -Q -l /home/edrx/elisp/straight-bootstrap.el &

 HOME=$PWD emacs -fg bisque -bg black    -l /home/edrx/elisp/straight-bootstrap.el &
#HOME=$PWD emacs -fg bisque -bg black -Q -l /home/edrx/elisp/straight-bootstrap.el &

--")