#-*- mode: org -*-

#-*- mode: org -*-

src emacs-lisp

#+begin_src emacs-lisp

The Prefix is C-S-<space>. The ~which-key~ Package provides help on the keys.

The Prefix is M-<space>. The ~which-key~ Package provides help on the keys.

*** Tree-sitter

*** Tree-sitter and combobulate

  (use-package emacs

  (use-package treesit

    )

    (use-package combobulate
      :preface
      ;; You can customize Combobulate's key prefix here.
      ;; Note that you may have to restart Emacs for this to take effect!
      (setq combobulate-key-prefix "C-c o")
      ;; Optional, but recommended.
      ;;
      ;; You can manually enable Combobulate with `M-x
      ;; combobulate-mode'.
      :hook
      ((python-ts-mode . combobulate-mode)
       (js-ts-mode . combobulate-mode)
       (html-ts-mode . combobulate-mode)
       (css-ts-mode . combobulate-mode)
       (yaml-ts-mode . combobulate-mode)
       (typescript-ts-mode . combobulate-mode)
       (json-ts-mode . combobulate-mode)
       (tsx-ts-mode . combobulate-mode))
      ;; Amend this to the directory where you keep Combobulate's source
      ;; code.
      :load-path ("ve/combobulate")))

          (cmake . ("https://github.com/uyha/tree-sitter-cmake"))

          (clojure "https://github.com/sogaiu/tree-sitter-clojure")	
          (cmake "https://github.com/uyha/tree-sitter-cmake")
          (css "https://github.com/tree-sitter/tree-sitter-css")

          (elisp "https://github.com/Wilfred/tree-sitter-elisp")
          (html "https://github.com/tree-sitter/tree-sitter-html")
          (javascript "https://github.com/tree-sitter/tree-sitter-javascript" "master" "src")
          (json "https://github.com/tree-sitter/tree-sitter-json")
          (java "https://github.com/tree-sitter/tree-sitter-java")

          (python "https://github.com/tree-sitter/tree-sitter-python")

          )

          (toml "https://github.com/tree-sitter/tree-sitter-toml")
          (tsx "https://github.com/tree-sitter/tree-sitter-typescript" "master" "tsx/src")
          (typescript "https://github.com/tree-sitter/tree-sitter-typescript" "master" "typescript/src")
          (yaml "https://github.com/ikatyang/tree-sitter-yaml")          )

**** Textobjects 

#+begin_src emacs-lisp
  (setq treesit-query-dir (concat emacsen-dir "treesit/queries/"))
  ;; (setq treesit-query-dir "~/emacsen/treesit/queries/")
#+end_src
**** TODO Movement
Using ts-movement turned out not to be useful.
**** Selections
very important when working with a REPL:
#+begin_src emacs-lisp
  (use-package expreg)
#+end_src
Bind keys (example):
(define-key map ("C-+") 'expreg-expand)
(define-key map ("C--") 'expreg-contract)
Easiest solution found: expreg.el. Just 2 commands.
**** Folding
Using tree-sitter-fold turned out not to be useful.
** Others
*** TCL/TK

Mark [, {, (:
#+begin_src emacs-lisp
(use-package rainbow-delimiters)
#+end_src

Usage is provided (by me) through a Hydra.

** vim-Style
using viper-mode
Backup: viper mode can temporarily activated

* Source Code Version Control
** Subversion
Not on Melpa

** DONE Puni
wrong direction

#+begin_src emacs-lisp
  (use-package psvn
      :load-path "ve/"
      :bind (:map svn-status-mode-map (
	  ("/ c" . svn-status-toggle-unmodified)
	  ("/ ?" . svn-status-toggle-unknown)
	  ("/ e" . svn-status-toggle-hide-externals)
	 ))
  )
#+end_src

    (use-package project
      :diminish project-mode " Π"
  )

Although flymake is an Emacs built-in, flycheck has more checkers and often works without further configuration when a checker/linter is available vi the OS path settings.

Although flymake is an Emacs built-in, flycheck has more checkers and
often works without further configuration when a
checker/linter is available via the OS path settings.
** My default
Flycheck is very well documented:
https://www.flycheck.org/en/latest/user/installation.html
https://www.flycheck.org/en/latest/user/quickstart.html
https://www.flycheck.org/en/latest/community/extensions.html#language-support
flycheck does not explicitly support windows, but there are rarely issues on windows.
Most checkers/linters are external programs, they have to be installed. The
configuration is found in the language specific section,
After installation, it is easy to check the setup. From the docs:
#+begin_verse
 Visit a Python or Javascript file and check whether your Flycheck setup is complete with C-c ! v.
#+end_verse
As it is turned on per default, it has to be explicitly turned off in modes,
where this is unwanted (e.g. if a flymake-checker is preferred). This is done
via Hooks.
Diagnostics: list-flycheck-errors
#+begin_src emacs-lisp
  (use-package flycheck
    :ensure t
  )
#+end_src

#+end_src
** Tags
*** Built-In semantic
#+begin_src emacs-lisp
  (require 'semantic)

*** Gnu Global
Global has 5 languages built-in and supports ctags with all its 150+ languages.
A reasonable solution using Gnu Global seems to be:
https://github.com/leoliu/ggtags
- completion
- reference
comes with integration for completion-at-point, eldoc- and xref-integration.
#+begin_src emacs-lisp
  (use-package ggtags
    :bind ( :map ggtags-navigation-map
            ("M-o" . nil)
           )
    )
#+end_src
  
**** Prerequisites
  Install
  - Gnu Global
  - Python: pygments

#+end_src
* Navigation
add this hook when no eglot or tags-backend is available:
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
#+begin_src emacs-lisp
  (use-package dumb-jump)

* Folding

** Hydra
An xref-Hydra may be more general and preferrable.
#+begin_src emacs-lisp
    (pretty-hydra-define hydra-dumb-jump (:color blue)
      ("Dumb Jump"
       (
        ("b" dumb-jump-back "Back")
        ("l" dumb-jump-quick-look "Quick look")
        ("j" dumb-jump-go "Go")
        ("i" dumb-jump-go-prompt "Prompt")
        ("o" dumb-jump-go-other-window "Other window")
        ("e" dumb-jump-go-prefer-external "Go external")
        ("x" dumb-jump-go-prefer-external-other-window "Go external other window")
        )
       )
      )
#+end_src
# * Folding

   (use-package hideshow)

   (use-package hideshow
     :config
     (defun hs-cycle (&optional level)
       (interactive "p")
       (let (message-log-max
             (inhibit-message t))
         (if (= level 1)
             (pcase last-command
               ('hs-cycle
                (hs-hide-level 1)
                (setq this-command 'hs-cycle-children))
               ('hs-cycle-children
                ;; TODO: Fix this case. `hs-show-block' needs to be
                ;; called twice to open all folds of the parent
                ;; block.
                (save-excursion (hs-show-block))
                (hs-show-block)
                (setq this-command 'hs-cycle-subtree))
               ('hs-cycle-subtree
                (hs-hide-block))
               (_
                (if (not (hs-already-hidden-p))
                    (hs-hide-block)
                  (hs-hide-level 1)
                  (setq this-command 'hs-cycle-children))))
           (hs-hide-level level)
           (setq this-command 'hs-hide-level))))

   (defun toggle-fold ()
     (interactive)
     (save-excursion
       (end-of-line)
       (hs-toggle-hiding)))

     (defun hs-global-cycle ()
       (interactive)
       (pcase last-command
         ('hs-global-cycle
          (save-excursion (hs-show-all))
          (setq this-command 'hs-global-show))
         (_ (hs-hide-all))))
     )

 Outline minor mode will work for text- and prog-modes, as long as there are
 suitable regexp for detecting the structure. See my TCL config for an example.

 #+begin_src emacs-lisp
   (defun my/outline-overview ()
     "Show only outline headings."
     (outline-show-all)
     (outline-hide-body)))
#+end_src
* Accessing cheat-sheets
The DP-Proxy blocks the requests.
#+begin_src emacs-lisp
  (if sys/linuxp
  (use-package cheat-sh)
  )
#+end_src
* Bye