;; This file:
;;   http://anggtwu.net/.emacs.local.labinfo.html
;;   http://anggtwu.net/.emacs.local.labinfo
;;          (find-angg ".emacs.local.labinfo")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg ".emacs.local.labinfo"))
;; (find-angg ".emacs" ".emacs.local")
;; (find-fline "~/" ".emacs.local")
;; (find-es "x" "setxkbmap-2023")

;; «.s-keys»		(to "s-keys")
;; «.hydra-superkey»	(to "hydra-superkey")
;; «.symlink»		(to "symlink")


;; «s-keys»  (to ".s-keys")
;; (find-angg ".emacs" "super-key")
(defun s-s () (interactive) (toggle-scroll-bar))
(defun s-t () (interactive) (tool-bar-mode))
(defun s-m () (interactive) (menu-bar-mode))
(defun s-f () (interactive) (toggle-frame-fullscreen))
(defun s-x () (interactive) (toggle-frame-maximized))
(defun s-d () (interactive) (display-time-mode))
(defun s-b () (interactive) (blink-cursor-mode))
(defun s-w () (interactive) (wrap))


;; «hydra-superkey»  (to ".hydra-superkey")
;; (find-defhydra-links "superkey" "super")
;; (find-efunction 'find-defhydra-links)
(defhydra hydra-superkey (:hint nil)
  "
_s_croll-bar    _f_ullscreen   _w_rap         
_t_ool-bar    ma_x_imized      _d_isplay-time
_m_enu-bar                   _b_link-cursor
              _q_uit
"
  ("s" (eek "s-s"))   ;; (toggle-scroll-bar)
  ("t" (eek "s-t"))   ;; (tool-bar-mode)
  ("m" (eek "s-m"))   ;; (menu-bar-mode)
  ("f" (eek "s-f"))   ;; (toggle-frame-fullscreen)
  ("x" (eek "s-x"))   ;; (toggle-frame-maximized)
  ("d" (eek "s-d"))   ;; (display-time-mode)
  ("b" (eek "s-b"))   ;; (blink-cursor-mode)
  ("w" (eek "s-w"))   ;; (wrap)
  ;;
  ("q"   nil)
  ("RET" nil)
  )

(defun super ()
  (interactive)
  (hydra-superkey/body))


;; «symlink»  (to ".symlink")
;;
'("This is a test block:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
pwd
ls -lAF .emacs.local*
rm -fv  .emacs.local
cp -s   .emacs.local.labinfo .emacs.local
ls -lAF .emacs.local*

rm -fv  .emacs.local
ls -lAF .emacs.local*

--")





;; Local Variables:
;; coding:  utf-8-unix
;; mode:   emacs-lisp
;; End: