(my/outline-overview))

      (ve/outline-overview))

    (setq tcl-application "tclsh") ;; jimsh tclsh wish

    (setq tcl-application "wish") ;; jimsh tclsh wish

    (add-hook 'tcl-mode-hook #'ve/outline-tcl)

    (tcl-mode . outline-minor-mode)

* Functions
#+begin_src emacs-lisp
  (defun indent-buffer ()
    (interactive)
    (indent-region (point-min) (point-max)))
#+end_src
* Meow Modal Mode
#+BEGIN_SRC elisp
  
(use-package meow
  :init  
  (defun meow-setup ()
    (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
    (meow-motion-define-key
     '("|" . split-window-right)
     '("-" . split-window-below)
     '("j" . meow-next)
     '("k" . meow-prev)
     '("." . repeat)
     '("<escape>" . ignore)
     )
    
    (meow-leader-define-key
     ;; '("?" . meow-keypad-describe-key)
     '("/" . indent-region)
     '(">" . indent-buffer)
     '(";" . comment-dwim)
     ;;       '("." . embark-act)
     '("%" . recenter)
     '("o" . other-window)
     '("d" . delete-window)
     '("D" . delete-other-windows)
     '("|" . split-window-right)
     '("-" . split-window-below)
     '("?" . consult-apropos)
     '("," . xref-pop-marker-stack)
     '("." . xref-find-definitions)
     ;;       '("G" . rg)
     ;;       '("G" . consult-ripgrep)
     ;;       '("f" . consult-fd)
     ;;       '("b" . consult-buffer)
     '("k" . kill-buffer-and-window)
     
     '("R" . hydra-rectangle/body)
     '("T" . hydra-toggle/body)
     '("W" . hydra-window/body)
     '("t" . hydra-tab-bar/body)
     '("F" . hydra-desktop/body)
     '("r" . hydra-register/body)    
     '("p" . project-switch-project)
     ;; '("{" . tab-bar-switch-to-prev-tab)
     ;; '("}" . tab-bar-switch-to-next-tab)
     ;; '("d" . dired-jump)
     ;; '("D" . dired-jump-other-window)
     ;; '("j" . avy-goto-char-timer)
     ;; '("J" . crux-top-join-line)
     ;; '("k" . consult-yank-from-kill-ring)
     ;; '("l" . vertico-repeat)
     ;; '("L" . consult-locate)
     ;; '("N" . consult-notes-search-all)
     ;; '("r" . consult-register)
     ;; '("R" . consult-recent-file)
     ;; '("y" . yas-minor-mode-map)
     '("?" . meow-cheatsheet)
     )
    
    (meow-normal-define-key
     '("0" . meow-expand-0)
     '("9" . meow-expand-9)
     '("8" . meow-expand-8)
     '("7" . meow-expand-7)
     '("6" . meow-expand-6)
     '("5" . meow-expand-5)
     '("4" . meow-expand-4)
     '("3" . meow-expand-3)
     '("2" . meow-expand-2)
     '("1" . meow-expand-1)
     )
    (meow-normal-define-key
     '("V" . meow-ved-mode)
     '("q" . meow-quit)
     '("u" . meow-undo)
     '(";" . meow-reverse)
     '("0" . beginning-of-line)
     '("-" . negative-argument)
     '(":" . meow-goto-line)
     ;; thing (tree-sitter)
     '("," . meow-inner-of-thing)
     '("'" . meow-bounds-of-thing)
     '("[" . meow-beginning-of-thing)
     '("]" . meow-end-of-thing)
     
     '("i" . meow-insert)
     '("a" . meow-append)
     '("c" . meow-change)
     '("I" . meow-open-above)
     '("A" . meow-open-below)
     
     '("j" . meow-next)
     '("k" . meow-prev)
     '("J" . meow-join)
     ;;       '("o" . meow-block)
     ;;       '("O" . meow-to-block)
     ;; yank
     '("y" . meow-save)
     ;; paste
     '("p" . meow-yank)
     '("d" . meow-kill)
     '("f" . meow-find)
     '("s" . meow-search)
     '("/" . meow-visit)
     '("t" . meow-till)
     ;;       '("w" . meow-mark-word)
     '("w" . meow-mark-symbol)
     '("x" . meow-line)
     '("=" . meow-grab)
     '("X" . meow-swap-grab)
     '("Y" . meow-sync-grab)
     
     ;; 
     '("&" . meow-query-replace-regexp)
     '("%" . meow-query-replace)
     '("z" . meow-pop-selection)
     '("g" . meow-cancel-selection)
     '("<escape>" . meow-cancel-selection)
     )
    (setq meow-ved-keymap (make-keymap))
    (meow-define-state ved
		       	 "VED state"
			 :lighter "[VED]"
			 :keymap meow-ved-keymap)
      (setq meow-cursor-type-ved 'hollow)
      (meow-define-keys 'ved
			'("<escape>" . meow-normal-mode)
			'("." . embark-act)
			'("?" . consult-apropos)
			'("G" . consult-ripgrep)
			'("f" . consult-fd)
			'("b" . consult-buffer)
			;;	'("r" . consult-register)
			'("u" . meow-undo)
			)
      ;; (meow-define-state consult
      ;;   "paren state"
      ;;   :lighter " [P]"
      ;;   :keymap meow-paren-keymap)
      ;; (setq meow-cursor-type-paren 'hollow)
      ;; (defun nt-wrap-string () (interactive) (sp-wrap-with-pair "\""))
      ;; (defun nt-back-transpose () (interactive) (sp-transpose-sexp -1))
      ;; (meow-define-keys 'paren
      ;;   '("<escape>" . meow-normal-mode)
      ;;   '("f" . sp-backward-sexp)
      ;;   '("r" . sp-forward-sexp)
      ;;   '("h" . sp-down-sexp)
      ;;   '("t" . sp-up-sexp)
      ;;   '("o s" . sp-wrap-square)
      ;;   '("o r" . sp-wrap-round)
      ;;   '("o c" . sp-wrap-curly)
      ;;   '("o g" . nt-wrap-string)
      ;;   '("O" . sp-unwrap-sexp)
      ;;   '("b" . sp-slurp-hybrid-sexp)
      ;;   '("x" . sp-forward-barf-sexp)
      ;;   '("k" . sp-backward-barf-sexp)
      ;;   '("j" . sp-backward-slurp-sexp)
      ;;   '("s" . sp-raise-sexp)
      ;;   '("n" . sp-absorb-sexp)
      ;;   '("," . sp-split-sexp)
      ;;   '("e" . sp-end-of-sexp)
      ;;   '("a" . sp-beginning-of-sexp)
      ;;   '("G" . sp-goto-top)
      ;;   '("y" . sp-transpose-sexp)
      ;;   '("Y" . nt-back-transpose)
      ;;   '("u" . meow-undo))
      )
    :config
    (meow-setup)
    ;; does not work 
    ;; (add-to-list 'meow-mode-state-list '(Eshell . insert) )
    (meow-global-mode 1)
    )
#+END_SRC
#+BEGIN_SRC elisp
  (use-package meow-tree-sitter
    :config
    (meow-tree-sitter-register-defaults)
    )
#+END_SRC

(defun ve/show-value-of-variable (symbol)
  (message (format "The value of '%s' is %S" symbol (symbol-value symbol))))

  (defun ve/show-value-of-variable (symbol)
    (message (format "The value of '%s' is %S" symbol (symbol-value symbol))))

(defun my/bookmark-jump-other-tab (bookmark)
  "Jump to BOOKMARK in another tab. See `bookmark-jump' for more."
  (interactive
   (bookmark-jump bookmark 'switch-to-buffer-other-tab))
  )

  (defun my/bookmark-jump-other-tab (bookmark)
    "Jump to BOOKMARK in another tab. See `bookmark-jump' for more."
    (interactive
     (bookmark-jump bookmark 'switch-to-buffer-other-tab))
    )

#+end_src
* More modifier keys
On windows, I installed sharp-keys.
I disabled CAPS-Lock and defined <f13> = <Rollen> and <f14> = <Pause>.
#+begin_src emacs-lisp

  (defun rename-file-and-buffer ()
    "Rename the current buffer and file it is visiting."
    (interactive)
    (let ((filename (buffer-file-name)))
      (if (not (and filename (file-exists-p filename)))
	  (message "Buffer is not visiting a file!")
	(let ((new-name (read-file-name "New name: " filename)))
	  (cond
	   ((vc-backend filename) (vc-rename-file filename new-name))
	   (t
	    (rename-file filename new-name t)
	    (set-visited-file-name new-name t t)))))))

* General: Leader Map
("Highlight"
;;       ("h l" global-hl-line-mode "line" :toggle t)
;;     ("h s" symbol-overlay-mode "symbol" :toggle t)
;;     ("h r" rainbow-mode "rainbow" :toggle t)
;;     ("h d" rainbow-delimiters-mode "delimiter" :toggle t)
;;     ("h i" highlight-indent-guides-mode "indent" :toggle t)
;;     ("Program"
;;    ("p" smartparens-mode "smart parenthesis" :toggle t)
;;     ("E" toggle-debug-on-error "debug on error" :toggle (default-value 'debug-on-error))
;;     ("v" global-diff-hl-mode "gutter" :toggle t)
;;     ("V" diff-hl-flydiff-mode "live gutter" :toggle t)
;;     ("M" diff-hl-margin-mode "margin gutter" :toggle t)
;;     ("D" diff-hl-dired-mode "dired gutter" :toggle t)

* Search: combine isearch and avy

  (use-package general
    :config
    (defun rename-file-and-buffer ()
      "Rename the current buffer and file it is visiting."
      (interactive)
      (let ((filename (buffer-file-name)))
	(if (not (and filename (file-exists-p filename)))
	    (message "Buffer is not visiting a file!")
	  (let ((new-name (read-file-name "New name: " filename)))
	    (cond
	     ((vc-backend filename) (vc-rename-file filename new-name))
	     (t
	      (rename-file filename new-name t)
	      (set-visited-file-name new-name t t)))))))
    (leader
      ""     nil
      "t"  '(:ignore t :which-key "toggle features")
      "tt" '(modus-themes-toggle          :wk "change theme" :toggle t)
      "tw" '(whitespace-mode              :wk "whitespaces" :toggle t)
      "tl" '(global-page-break-lines-mode :wk "page break lines" :toggle t)
      "tp" '(show-paren-mode              :wk "parenthesis" :toggle t)
      "t_" '(subword-mode                 :wk "subword" :toggle t)
      "tv" '(viper-mode                   :wk "vi-mode" :toggle t)
      "tW" '(which-function-mode          :wk "which function" :toggle t)
      "E"  '(eshell                :wk "eshell")
      "d"  '(hydra-desktop/body      :wk "desktop management")
      "g"  '(rg                    :wk "ripgrep")
      "G"  '(rg-dwim               :wk "ripgrep dwim")
      "l"  '(recenter              :wk "center cursor pos")
      "L"  '(recenter-top-bottom   :wk "center/top/bottom cursor pos")
      "a"  '(avy-goto-char-timer     :wk "avy")
      "m"  '(hydra-move/body         :wk "movement")
      "R"  '(hydra-rectangle/body    :wk "rectangle editing")
      "T"  '(hydra-tab-bar/body      :wk "tab management")
      "w"  '(hydra-window/body       :wk "window management")
      "W"  '(hydra-web-search/body   :wk "web search")
      "e"   '(:ignore t :which-key "embark")
      "ea"  '(embark-act        :wk "act")
      "eA"  '(embark-act-all    :wk "act on all candidates")
      "ee"  '(embark-export     :wk "export")
      "e."  '(embark-dwim       :wk "dwim")
      "s"   '(:ignore t :which-key "search")
      "ss"  '(isearch-forward   :wk "isearch →")
      "sr"  '(isearch-backward  :wk "isearch ←")
      "sg"  '(rg-dwim           :wk "ripgrep dwm")
      "sG"  '(rg-menu           :wk "ripgrep menu")
      "sS"  '(isearch-forward-regexp  :wk "regexp search →")
      "sR"  '(isearch-backward-regexp :wk "regexp search ←")
      "sl"  '(consult-line      :wk "consult line")
      "so"  '(occur             :wk "show lines matching ... (occur)")
      "p"   '(:ignore t :which-key "Project management")
      "pp"  '(project-switch-project  :wk "switch project")
      "pd"  '(project-dired           :wk "dired")
      "pf"  '(project-find-file       :wk "find file")
      "pg"  '(project-find-regexp     :wk "regexp search")
      "pG"  '(rg-project              :wk "ripgrep")
      "pr"  '(project-query-replace-regexp     :wk "query/replace")
      "pc"  '(project-compile         :wk "compile")
      "pv"  '(project-vc-dir          :wk "version control")
      "c"   '(:ignore t :which-key "consult (minibuffer)")
      "cb"  '(consult-buffer    :wk "buffer(b)/recent file(f)/bookmark(m)/project(p)")
      "cB"  '(consult-bookmark  :wk "bookmark")
      "cf"  '(consult-fd        :wk "find (fd)")
      "co"  '(consult-line      :wk "search file (occur)")
      "cr"  '(consult-recent-file :wk "recent file")
      "cg"  '(consult-ripgrep   :wk "ripgrep")
      "."   '(:ignore t :which-key "insert/complete at point")
      "./"  '(cape-dabbrev      :wk "dynamic abbreviation")
      ".w"  '(cape-dict         :wk "dictionary")
      ".t"  '(complete-tag      :wk "complete tag")
      ".e"  '(cape-elisp-symbol :wk "elisp symbol")
      ".\\" '(cape-tex          :wk "tex symbol")
      ".&"  '(cape-sgml         :wk "sgml symbol")
      ".r"  '(cape-rfc1345      :wk "symbol defined in RFC1345")
      ".h"  '(cape-history      :wk "from history")
      ".f"  '(cape-file         :wk "filename")
      ".u"  '(hydra-unicode/body  :wk "Unicode Char Hydra")
      "q"   '(:ignore t :which-key "kill/exit")
      "qz"  '(kill-emacs       :wk "exit Emacs")
      "qw"  '(delete-window    :wk "kill window")
      "qq"  '(kill-this-buffer :wk "kill buffer")
      "qq"  '(delete-frame     :wk "kill frame")
      "b"   '(:ignore t :which-key "buffer")
      "bi"  '(ibuffer            :wk "I-Buffer")
;;      "bN"  '(evil-buffer-new    :wk "new")
      "bn"  '(next-buffer        :wk "next")
      "bp"  '(previous-buffer    :wk "previous")
      "bb"  '(switch-to-buffer   :wk "switch buffer")
      "br"  '(revert-buffer      :wk "revert")
      "bm"  '(switch-to-messages-buffer :wk "*Messages*")
      "bs"  '(switch-to-scratch-buffer  :wk "*scratch*")
      "b0"  '(kill-this-buffer          :wk "kill buffer")
      "bq"  '(kill-buffer-and-window    :wk "kill window & buffer")
      "bR"  '(rename-file-and-buffer    :wk "rename buffer & file")
      "f"  '(:ignore t :which-key "files")
      "fj" '(dired-jump             :wk "open dired for visited file")
      "fl" '(find-file-literally    :wk "open file/no conversion")
      "fo" '(find-file              :wk "open file")
      "fr" '(recentf-open-files     :wk "open recent ...")
      "fR" '(rename-file-and-buffer :wk "rename buffer & file")
      "fw" '(write-file             :wk "save as ...")
      "r"  '(:ignore t :which-key "Register commands")
      "rl" '(list-registers     :wk "Show registers")
      "rs" '(point-to-register  :wk "Save point")
      "rj" '(jump-to-register   :wk "Jump to register")
      "ry" '(copy-to-register   :wk "Copy to register")
      "rp" '(insert-register    :wk "Insert from register")
      "rn" '(number-to-register :wk "Number to register")
      "r+" '(increment-register :wk "Increment number in register")
      "rw" '(window-configuration-to-register :wk "save window config")
      "k"  '(:ignore t :which-key "keyboard macros")
      "kb" '(kmacro-start-macro-or-insert-counter :wk "start")
      "ke" '(kmacro-end-macro                     :wk "end")
      "ks" '(kmacro-to-register                   :wk "save to register")
      "kn" '(kmacro-name-last-macro               :wk "name for later usage")
      "kr" '((apply-macro-to-region-lines nil)    :wk "apply to region")
      "h"  '(:ignore t :which-key "help")
      "h." '(helpful-at-point  :wk "at cursor")
      "hy" '(describe-personal-keybindings :wk "personal key bindings")
      "hk" '(helpful-key       :wk "for key")
      "hK" '(describe-keymap   :wk "for keymap")
      "hf" '(helpful-callable  :wk "for function")
      "hv" '(helpful-variable  :wk "for variable")
      "hs" '(helpful-symbol    :wk "for symbol")
      "hc" '(helpful-command   :wk "for command")
      "he" '(embark-bindings   :wk "embark bindings")
      "hl" '(find-library      :wk "library")
      "hL" '(finder-commentary :wk "commentary section")
      )
    )

  (define-key isearch-mode-map (kbd "M-j") 'avy-isearch)

(bind-key* (kbd "<f5>")   #'ve/desc-completion-functions)
  (bind-key* (kbd "<f8>")     #'toggle-viper-mode)
  (bind-key* (kbd "C-<f8>")   #'viper-go-away)

  (bind-key* (kbd "C-+")     'er/expand-region)
  (bind-key* (kbd "C--")     'er/contract-region)

(bind-key* (kbd "<f4>")   #'eshell)
  (bind-key* (kbd "<f5>")   #'ve/desc-completion-functions)
(bind-key* (kbd "M-p")   #'avy-goto-char-timer)
(bind-key* (kbd "M-o")   'other-window)

  (bind-key* (kbd "C-x C-f") 'find-file)
  (bind-key* (kbd "C-c p")   'proced)
  (bind-key* (kbd "C-S-g")   've/abort)

(bind-key* (kbd "C-x C-f") 'find-file)
(bind-key* (kbd "C-c p")   'proced)
(bind-key* (kbd "C-S-g")   've/abort)

  (bind-key* (kbd "C-x x")   'eval-defun)

  (bind-key* (kbd "C-S-k")    'kill-whole-line)

(bind-key* (kbd "C-S-k")    'kill-whole-line)

  (bind-key* (kbd "C-S-<left>")  'tab-previous)
;;  (bind-key* (kbd "M-.")     'set-mark-command)
  (bind-key* (kbd "M-o")     'ace-window)
  (bind-key* (kbd "C-.")     'embark-act)

(bind-key* (kbd "C-S-<left>")  'tab-previous)
(bind-key* (kbd "C-.")     'embark-act)

  (bind-key* [remap eval-last-sexp] 'pp-eval-last-sexp)

;;  (bind-key* [remap eval-last-sexp] 'pp-eval-last-sexp)

** Movement Hydra
  #+begin_src emacs-lisp
  (pretty-hydra-define hydra-move (:title "move"
					  :foreign-keys warn
					  :quit-key "q")
    (
     "search" (
               ("j" avy-goto-char-timer  "goto char")
	       ("n" avy-next "avy next")
	       ("p" avy-prev "avy prev")
	       )
     "forward" (
		(">" end-of-buffer  "last line")
		("$" end-of-line    "EOL")
		("}" forward-paragraph "paragraph")
		("v" scroll-down  "page")
		)
     "backward" (
		 ("<" beginning-of-buffer "first line")
		 ("0" beginning-of-line "beginning of line")
		 ("{" backward-paragraph "paragraph")
		 ("V" scroll-up "page")
		 )
     "Others" (
	       ("|" move-to-column "→ column")
	       ("l" goto-line      "→ line")
	       )
     )
    )
#+end_src
** Completion Hydra
  #+begin_src emacs-lisp
  (pretty-hydra-define hydra-complete (:title "complete" :exit t)
    ("Abbreviation" (
		     ("/" cape-dabbrev "dynamic abbreviation")
                     ("w" cape-dict "dictionary")
		     )
     "Symbol" (
	       ("t" complete-tag "complete tag")
	       ("s" cape-lisp-symbol "symbol")
	       ("\\" cape-tex "tex symbol")
	       ("&" cape-sgml "sgml symbol")
	       ("r" cape-rfc1345 "symbol defined in RFC1345")
	       )
     "Others" (
	       ("h" cape-history "from history")
	       ("f" cape-file "filename")
	       )
     )
    )
#+end_src
  
** Desktop Hydra

** Toggle Hydra

  (pretty-hydra-define hydra-desktop (:title "Desktop Operations"
					     :color blue)
    ("Load/Save"
     (
      ("l" desktop-read "load default desktop")
      ("s" desktop-save "save")
      ("b" bmkp-set-desktop-bookmark "save as bookmark")
      )
     "Misc"
     (
      ("c" desktop-clear "clear")
      ("d" desktop-change-dir "dir")
      ("r" desktop-revert "revert")
      )
     )

  (defhydra hydra-toggle (:color blue :exit t)
    "toggle features"
    ("t" modus-themes-toggle          "change theme")
    ("c" flyspell-mode                "spell check" )
    ("w" whitespace-mode              "whitespaces" )
    ("l" global-hl-line-mode          "higlight cursor line" )
    ("p" show-paren-mode              "parenthesis" )
    ("_" subword-mode                 "subword" )
    ("W" which-function-mode          "which function" )

** Tabbar
#+begin_src emacs-lisp
  (pretty-hydra-define hydra-tab-bar (:title "Tab Bar Operations"
					     :foreign-keys warn
					     :quit-key "q")
    ("Creation"
     (("t" tab-new "Create a new tab")
      ("d" dired-other-tab "Open Dired in another tab")
      ("f" find-file-other-tab "Find file in another tab")
      ("x" tab-window-detach "move window to tab")
      ("0" tab-close "Close current tab")
      )
     "Management"
     (("m" tab-move "Move current tab")
      ("r" tab-rename "Rename Tab")
      )
     "Navigation"
     (("<return>" tab-bar-select-tab-by-name "Select tab by name")
      ("n" tab-next "Next Tab")
      ("p" tab-previous "Previous Tab")
      )
     )
    )
#+end_src

("s" symbol-overlay-mode "symbol")
("r" rainbow-mode "rainbow")
("d" rainbow-delimiters-mode "delimiter")
("i" highlight-indent-guides-mode "indent")
("p" smartparens-mode "smart parenthesis")
("E" toggle-debug-on-error "debug on error")
("v" global-diff-hl-mode "gutter")
("V" diff-hl-flydiff-mode "live gutter")
("M" diff-hl-margin-mode "margin gutter")
("D" diff-hl-dired-mode "dired gutter")
    

(require 'ace-window)

  (require 'ace-window)

     (("TAB" other-window "switch")

     (("o" other-window "switch")

      ("m" delete-other-windows "maximize")

      ("X" delete-other-windows "delete other windows")

      ("j"(enlarge-window -1) "↓")

      ("j"(enlarge-window-horizontally  1) "↓")

      ("l"(enlarge-window-horizontally 1) "→")
      ("n" balance-windows "balance")

      ("l"(enlarge-window -1) "→")
      ("%" balance-windows "balance")

** Tabbar
#+begin_src emacs-lisp
  (pretty-hydra-define hydra-tab-bar (:title "Tab Bar Operations"
					     :foreign-keys warn
					     :quit-key "q")
    ("Creation"
     (("t" tab-new "Create a new tab")
      ("d" dired-other-tab "Open Dired in another tab")
      ("f" find-file-other-tab "Find file in another tab")
      ("x" tab-window-detach "move window to tab")
      ("0" tab-close "Close current tab")
      )
     "Management"
     (("m" tab-move "Move current tab")
      ("r" tab-rename "Rename Tab")
      )
     "Navigation"
     (("<return>" tab-bar-select-tab-by-name "Select tab by name")
      ("n" tab-next "Next Tab")
      ("p" tab-previous "Previous Tab")
      )
     )
    )
#+end_src
** Desktop Hydra
#+begin_src emacs-lisp
  (pretty-hydra-define hydra-desktop (:title "Desktop Operations"
					     :color blue)
    ("Load/Save"
     (
      ("l" desktop-read "load default desktop")
      ("s" desktop-save "save")
      ("b" bmkp-set-desktop-bookmark "save as bookmark")
      )
     "Misc"
     (
      ("c" desktop-clear "clear")
      ("d" desktop-change-dir "dir")
      ("r" desktop-revert "revert")
      )
     )
    )
#+end_src

(pretty-hydra-define hydra-rectangle (
				      :title "Rectangle Editing"
				      :foreign-keys run
				      :pre (rectangle-mark-mode 1)
				      :post (deactivate-mark)
				      :quit-key "q"
				      )
  (
   "Select" (
	     ("h" rectangle-backward-char "left")
	     ("l" rectangle-forward-char "right")
	     ("k" rectangle-previous-line "up")
	     ("j" rectangle-next-line "down")
	     ("e" my/ex-point-mark "exchange mark with point")
	     )
   "Act" (
	  ("p" kill-rectangle "kill")
	  ("c" copy-rectangle-as-kill "copy")
	  ("R" copy-rectangle-to-register "copy to register")
	  ("y" yank-rectangle "yank" :color blue)
	  ("s" string-rectangle "type to replace")
	  )
   "Undo ..." (
	       ("x" my/reset-rectangle "reset and start again")
	       ("u" undo "undo")
	       ("r" redo "redo")

  (pretty-hydra-define hydra-rectangle (
					:title "Rectangle Editing"
					       :foreign-keys run
					       :pre (rectangle-mark-mode 1)
					       :post (deactivate-mark)
					       :quit-key "q"
					       )
    (
     "Select" (
	       ("h" rectangle-backward-char "left")
	       ("l" rectangle-forward-char "right")
	       ("k" rectangle-previous-line "up")
	       ("j" rectangle-next-line "down")
	       ("e" my/ex-point-mark "exchange mark with point")
	       )
     "Act" (
	    ("p" kill-rectangle "kill")
	    ("c" copy-rectangle-as-kill "copy")
	    ("R" copy-rectangle-to-register "copy to register")
	    ("y" yank-rectangle "yank" :color blue)
	    ("s" string-rectangle "type to replace")
	    )
     "Undo ..." (
		 ("x" my/reset-rectangle "reset and start again")
		 ("u" undo "undo")
		 ("r" redo "redo")
		 )
     )
    )
	#+end_src
** TODO Registers
#+begin_src emacs-lisp
  (pretty-hydra-define hydra-registers (:title "Register commands" :color blue :hint nil)
    ("store"
     (
      ("s" point-to-register "save point" :exit t)
      ("y" copy-to-register "save in r.." :exit t)
      ("n" number-to-register "save number in r.." :exit t)
      ("w" window-configuration-to-register "save window config in r.." :exit t)
      )
     "Other commands"
     (
      ("l" list-registers "show register content")
      ("+" increment-register "increment number" :exit t)
      ("j" jump-to-register "jump to register" :exit t)
      ("p" insert-register "insert from r.." :exit t)
      )
     )
    )
#+end_src
** Completion Hydra
  #+begin_src emacs-lisp
  (pretty-hydra-define hydra-complete (:title "complete" :exit t)
    ("Abbreviation" (
		     ("/" cape-dabbrev "dynamic abbreviation")
                     ("w" cape-dict "dictionary")
		     )
     "Symbol" (
	       ("t" complete-tag "complete tag")
	       ("s" cape-lisp-symbol "symbol")
	       ("\\" cape-tex "tex symbol")
	       ("&" cape-sgml "sgml symbol")
	       ("r" cape-rfc1345 "symbol defined in RFC1345")
	       )
     "Others" (
	       ("h" cape-history "from history")
	       ("f" cape-file "filename")
	       )
     )
    )
#+end_src
** Movement Hydra
  #+begin_src emacs-lisp
  (pretty-hydra-define hydra-move (:title "move"
					  :foreign-keys warn
					  :quit-key "q")
    (
     "search" (
               ("j" avy-goto-char-timer  "goto char")
	       ("n" avy-next "avy next")
	       ("p" avy-prev "avy prev")
	       )
     "forward" (
		(">" end-of-buffer  "last line")
		("$" end-of-line    "EOL")
		("}" forward-paragraph "paragraph")
		("v" scroll-down  "page")
		)
     "backward" (
		 ("<" beginning-of-buffer "first line")
		 ("0" beginning-of-line "beginning of line")
		 ("{" backward-paragraph "paragraph")
		 ("V" scroll-up "page")
		 )
     "Others" (
	       ("|" move-to-column "→ column")
	       ("l" goto-line      "→ line")

     )
    )
#+end_src
** Unicode
#+begin_src emacs-lisp
  (defun my/insert-unicode (unicode-name)
    "Same as: C-x 8 Enter UNICODE-NAME."
    (insert-char (gethash unicode-name (ucs-names))))
(pretty-hydra-define hydra-unicode (:title "Unicode" :exit t)
  ("Sets" (
	   ("N" (insert-char 8469) "ℕ") ;; natural numbers
	   ("R" (insert-char 8477) "ℝ") ;; real numbers
	   ("Z" (insert-char 8484) "ℤ") ;; real numbers
	   )
   "Operators" (
		("e" (insert-char 948) "∈")
		("a" (my/insert-unicode "ALMOST EQUAL TO") "≈")
		("p" (insert-char 8706) "∂ (partial diff)")
		)
   "Statistics" (
		 ("m" (my/insert-unicode "MICRO SIGN") "µ")
		 ("s" (insert-char 963) "σ")
		 ("v" (progn (insert-char 963)(insert-char 178)) "σ²")
		 )
   "Letters" (
	      ("d" (my/insert-unicode "GREEK SMALL LETTER DELTA") "δ")
	      )
   "Misc" (
	   ("o" (my/insert-unicode "DEGREE SIGN") "°")
	   ("E" (my/insert-unicode "EURO SIGN") "€")
	   (">" (my/insert-unicode "RIGHTWARDS ARROW") "→")
	   )

	#+end_src

#+end_src

#+end_src
** Unicode
#+begin_src emacs-lisp
  (defun my/insert-unicode (unicode-name)
    "Same as: C-x 8 Enter UNICODE-NAME."
    (insert-char (gethash unicode-name (ucs-names))))
   (pretty-hydra-define hydra-unicode (:title "Unicode" :exit t)
     ("Sets" (
	      ("N" (insert-char 8469) "ℕ") ;; natural numbers
	      ("R" (insert-char 8477) "ℝ") ;; real numbers
	      ("Z" (insert-char 8484) "ℤ") ;; real numbers
	      )
      "Operators" (
		   ("e" (insert-char 948) "∈")  
		   ("a" (my/insert-unicode "ALMOST EQUAL TO") "≈")
		   ("p" (insert-char 8706) "∂ (partial diff)")
		   )
      "Statistics" (
		    ("m" (my/insert-unicode "MICRO SIGN") "µ")
		    ("s" (insert-char 963) "σ")  
		    ("v" (progn (insert-char 963)(insert-char 178)) "σ²")  
		    )
      "Letters" (
		 ("d" (my/insert-unicode "GREEK SMALL LETTER DELTA") "δ")
		 )
      "Misc" (
	      ("o" (my/insert-unicode "DEGREE SIGN") "°")
	      ("E" (my/insert-unicode "EURO SIGN") "€")
	      (">" (my/insert-unicode "RIGHTWARDS ARROW") "→")
	      )
      )
     )

* Bye

* TODO Denote
let ((map global-map))
(define-key map (kbd "C-c n j") #'my-denote-journal) ; our custom command
(define-key map (kbd "C-c n n") #'denote)
(define-key map (kbd "C-c n N") #'denote-type)
(define-key map (kbd "C-c n d") #'denote-date)
(define-key map (kbd "C-c n i") #'denote-link) ; "insert" mnemonic
(define-key map (kbd "C-c n r") #'denote-rename-file)
(define-key map (kbd "C-c n R") #'denote-rename-file-using-front-matter))
;; Key bindings specifically for Dired.
let ((map dired-mode-map))
(define-key map (kbd "C-c C-d C-i") #'denote-link-dired-marked-notes)
(define-key map (kbd "C-c C-d C-r") #'denote-dired-rename-marked-files)
(define-key map (kbd "C-c C-d C-R") #'denote-dired-rename-marked-files-using-front-matter))

* General: define leader keys
("Highlight"
      ;; Quit operations
      "q"   '(:ignore t :which-key "kill/exit")
      "qz"  'kill-emacs       :wk "exit Emacs"
      "qw"  'delete-window    :wk "kill window"
      "qq"  'kill-this-buffer :wk "kill buffer"
      "qq"  'delete-frame     :wk "kill frame"
      ;; Buffer operations
      "b"   '(:ignore t :which-key "buffer")
      "bb"  'ibuffer            :wk "I-Buffer"
      "bn"  'next-buffer        :wk "next"
      "bs"  'switch-to-buffer   :wk "switch buffer"
      "br"  'revert-buffer      :wk "revert"
      "bm"  '(switch-to-buffer "*Messages*") :wk "*Messages*"
      "bS"  '(switch-to-buffer "*scratch*")  :wk "*scratch*"
      "b0"  'kill-this-buffer                :wk "kill buffer"
      "bq"  'kill-buffer-and-window          :wk "kill window & buffer"
      "bR"  'rename-file-and-buffer          :wk "rename buffer & file"
      ;; File operations
      "f"  '(:ignore t :which-key "files")
      "fj" 'dired-jump             :wk "open dired for visited file"
      "fl" 'find-file-literally    :wk "open file/no conversion"
      "h"   '(:ignore t :which-key "Hydras")
      "h." '(hydra-complete/body     :wk "complete at point")
      "hj" '(hydra-dump-jump/body    :wk "(dump) jump to")
      "hc" '(hydra-consult/body      :wk "consult")
      "hg" '(hydra-web-search/body   :wk "web search")
      "hm" '(hydra-kmacro/body       :wk "keyboard macros")
      "hr" '(hydra-rectangle/body    :wk "rectangle editing")
      "hs" '(hydra-registers/body    :wk "registers")
      "ht" '(hydra-org-template/body :wk "org-templates")
      )
    )
* Bye

  (org-babel-load-file (concat user-emacs-directory "/modal-editing.org"))