;; This file:
;;   http://angg.twu.net/elisp/emacsconf2021.el.html
;;   http://angg.twu.net/elisp/emacsconf2021.el
;;           (find-angg "elisp/emacsconf2021.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun eel () (interactive) (find-angg "elisp/emacsconf2021.el"))

' (load "~/eev-current/eev-beginner.el")
' (load "/home/edrx/eev-current/eev-beginner.el")

;; (find-esetkey-links (kbd "M-o") 'other-window)
(global-set-key (kbd "M-o") 'other-window)
(global-set-key (kbd "s-f") 'toggle-frame-fullscreen)
(global-set-key (kbd "s-b") 'blink-cursor-mode)
(global-set-key (kbd "<f12>") 'ee-svg-screenshot)

(defun eepitch-shell () (eepitch-bash))
(defun eejump-16 () (set-frame-font "Monospace 16" t))
(defun eejump-14 () (set-frame-font "Monospace 14" t))
(defun eejump-12 () (set-frame-font "Monospace 11" t))

' (eejump-16)

(defun ee-svg-screenshot (&optional fname)
  (interactive)
  (write-region
   (x-export-frames nil 'svg) nil
   (or fname "/tmp/screenshot.svg")))

(if (fboundp 'menu-bar-mode)   (menu-bar-mode 0))
(if (fboundp 'tool-bar-mode)   (tool-bar-mode 0))
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))

(setq show-paren-mode nil)

;; (find-es "eev" "quick-load")
;; (find-fline "~/.emacs.d/elpa/" "lua-mode")
;; (find-fline "~/.emacs.d/elpa/lua-mode-20210809.1320/")
(add-to-list 'load-path "/home/edrx/.emacs.d/elpa/lua-mode-20210809.1320/")
(require 'lua-mode)

;; Test: (show-tests)
(defun show-tests ()
  (interactive)
  ;; (find-wset "1322ooo2+2+2+oooo")
  (find-wset "1322ooo2+2+2+oooo_o_o_o_o_o_o_o"
	     '(find-fline "~/emacsconf2021/test-c.c"           9)
	     '(find-fline "~/emacsconf2021/test-haskell.hs"    8)
	     '(find-fline "~/emacsconf2021/test-javascript.js" 8)
	     '(find-fline "~/emacsconf2021/test-org.org"       7)
	     '(find-fline "~/emacsconf2021/test-python.py"     8)
	     '(find-fline "~/emacsconf2021/test-shell.sh"      8)
	     '(find-fline "~/emacsconf2021/test-tcl.tcl"       8)
	     )
  )

;; Test: (show-find-eeit-links)
(defun show-find-eeit-links ()
  (interactive)
  (find-2a
   '(progn (find-fline "/tmp/foo.py")
           (find-eeit-links)
           (ee-goto-position 5 '(eek "C-e")))
   '(find-eev "eev-testblocks.el" "examples" '(eek "M-8 C-l")))
  ;; (set-frame-font "Monospace 13" t)
  (set-frame-font "Monospace 11" t)
  )

;; Test: (show-mini-eeit)
(defun show-mini-eeit ()
  (interactive)
  (set-frame-font "Monospace 16" t)
  (find-fline "~/elisp/eev-testblocks-mini.el" 36)
  (eek "M-- M-3 C-l")
  )

;; (find-angg ".zshrc" "emacs28_")
;; (find-fline "~/elisp/eev-testblocks-mini.el")
;;
'("This is a test block:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rfv /tmp/dednat6/
cd /tmp/
emacs28_0 -Q -l ~/elisp/emacsconf2021.el /tmp/o &

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
emacs28_0 -Q -l ~/elisp/emacsconf2021.el ~/LUA/square-cube.lua
emacs28_0 -Q -l ~/elisp/emacsconf2021.el ~/elisp/eev-testblocks-mini.el

emacs28_0 -Q -l ~/elisp/emacsconf2021.el ~/elisp/emacsconf2021.el
emacs28_0 -Q -l ~/elisp/emacsconf2021.el ~/eev-current/eev-videolinks.el
emacs28_0 -Q -l ~/elisp/emacsconf2021.el ~/eev-current/eev-testblocks.el
emacs28_0 -Q -l ~/elisp/emacsconf2021.el

rm -Rv /tmp/fake-home-dir/
mkdir  /tmp/fake-home-dir/
cd     /tmp/fake-home-dir/
emacs28_0 /tmp/title &

cd     /tmp/fake-home-dir/
HOME=$PWD emacs28_0

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv /tmp/fake-home-dir/
mkdir  /tmp/fake-home-dir/
cd     /tmp/fake-home-dir/
HOME=$PWD emacs28_0 -Q -l ~/elisp/emacsconf2021.el /tmp/title &


--")



'("This is a test block:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
emacs28_0 -Q -l /home/edrx/elisp/emacsconf2021.el &

rm -Rv /tmp/fake-home-dir/
mkdir  /tmp/fake-home-dir/
cd     /tmp/fake-home-dir/
HOME=$PWD emacs28_0 -Q -l /home/edrx/elisp/emacsconf2021.el &

--")