* Functions
#+begin_src emacs-lisp
  (defun indent-buffer ()
    (interactive)
    (indent-region (point-min) (point-max)))
#+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
* 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
     '("q" . meow-quit)
     '("|" . split-window-right)
     '("-" . split-window-below)
     '("j" . meow-next)
     '("k" . meow-prev)
     '("<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)
     '("k" . kill-buffer-and-window)
     
     '("R" . hydra-rectangle/body)
     '("p" . project-switch-project)
     '("?" . 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
     '("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)
     
     '("k" . meow-prev)
     ;; 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-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)
     )
      )
    )
#+END_SRC
  (use-package meow-tree-sitter
    :config
    (meow-tree-sitter-register-defaults)
    )
  #+END_SRC
                                #+BEGIN_SRC elisp
  :config
  (meow-setup)
  ;; does not work 
  ;; (add-to-list 'meow-mode-state-list '(Eshell . insert) )
  (meow-global-mode 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)
    (defun nt-wrap-string () (interactive) (sp-wrap-with-pair "\""))
    (defun nt-back-transpose () (interactive) (sp-transpose-sexp -1))
    (setq meow-cursor-type-paren 'hollow)
    (setq meow-paren-keymap (make-keymap))
    
    (meow-define-state paren
      "paren state"
      :lighter " [P]"
      :keymap meow-paren-keymap)
     '("n" . ve/narrow-toggle)  
     '("N" . clone-indirect-buffer-other-window)
     '("o" . ve/hydra-outline/body)  
     
     ;; commands
     '("J" . crux-top-join-line)
     '("j" . avy-goto-char-timer)
     '("T" . tab-new)  
     '("P" . meow-paren-mode)  
     '("e" . dired-jump-other-window)
     '("j" . avy-goto-char-timer)
     '("c" . hydra-complete/body)
#+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
#+end_src
** Useful functions from others
#+begin_src emacs-lisp
  (require 'crux)