#+end_src
** Useful functions from others
#+begin_src emacs-lisp
  (require 'crux)

#+begin_src emacs-lisp
  (defun ve/narrow-toggle (beginning end)
    "Toggle widening/narrowing of the current buffer.
  If the buffer is narrowed, widen it.
  Else, narrow to region."
    (interactive "r")
    (if (buffer-narrowed-p)
        (widen)
      (if (use-region-p)
	  (narrow-to-region beginning end)
	(narrow-to-defun)
	)
      )
    )
#+end_src

#+begin_src emacs-lisp
  (add-hook 'clone-indirect-buffer-hook (lambda ()
					  (progn
					    (widen)
					    )
					  )
	    )
#+end_src
outline-move-subtree-up
outline-move-subtree-down

     '("q" . meow-quit)

     '("." . repeat)

     ;;       '("G" . rg)
     ;;       '("G" . consult-ripgrep)
     ;;       '("f" . consult-fd)
     ;;       '("b" . consult-buffer)

     '("T" . hydra-toggle/body)
     '("W" . hydra-window/body)
     '("t" . hydra-tab-bar/body)
     '("F" . hydra-desktop/body)
     '("r" . hydra-register/body)    

     '("c" . hydra-complete/body)

     ;; '("{" . 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)

     '("e" . dired-jump-other-window)
     '("j" . avy-goto-char-timer)

     '("V" . meow-ved-mode)

     '("P" . meow-paren-mode)  

     '("T" . tab-new)  

     '("j" . meow-next)

     '("j" . avy-goto-char-timer)

     '("J" . meow-join)
     ;;       '("o" . meow-block)
     ;;       '("O" . meow-to-block)

     '("J" . crux-top-join-line)

     ;;       '("w" . meow-mark-word)

     ;; 

     ;; commands

     '("n" . ve/narrow-toggle)  
     '("N" . clone-indirect-buffer-other-window)
     

    (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-paren-keymap (make-keymap))
    
    (meow-define-state paren
      "paren state"
      :lighter " [P]"
      :keymap meow-paren-keymap)

      ;; (setq meow-cursor-type-paren 'hollow)

    (setq meow-cursor-type-paren 'hollow)

      ;; (defun nt-wrap-string () (interactive) (sp-wrap-with-pair "\""))
      ;; (defun nt-back-transpose () (interactive) (sp-transpose-sexp -1))

    (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))

    (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)

  :config
  (meow-setup)
  ;; does not work 
  ;; (add-to-list 'meow-mode-state-list '(Eshell . insert) )
  (meow-global-mode 1)
  )