config.org

#+TITLE: doom
* Personal Information
** Set full name
#+begin_src elisp
(setq user-full-name "Nils Froleyks")
#+end_src
** Set email address
#+begin_src elisp
(setq user-mail-address "nfroleyks@gmail.com")
#+end_src
* Visual
** Font
#+begin_src elisp
(setq doom-font (font-spec :family "Source Code Pro" :size 18 :weight 'semi-light)
    ;; doom-variable-pitch-font (font-spec :family "sans" :size 20)
    )
#+end_src
** line numbers
#+begin_src elisp
(setq display-line-numbers-type 'visual)
#+end_src
* Keybindings
** Delete last word
#+begin_src elisp
(map! :map 'ivy-minibuffer-map "M-v" 'backward-kill-word)
(map! :nivr "M-v" 'backward-kill-word)
#+end_src
** global help
#+begin_src elisp
(map! [C-f1] 'helpful-key)
#+end_src
** goto mark
#+begin_src elisp
(map! :n "j" 'evil-goto-mark)
#+end_src
** window
#+begin_src elisp
(map! :after evil-commands :leader
    "wl" 'evil-window-up
    "wa" 'evil-window-down
    "wi" 'evil-window-left
    "we" 'evil-window-right
    )
#+end_src
** gedankenstrich move up
#+begin_src elisp
(map! :after evil-commands :n "−" 'evil-previous-line-first-non-blank)
#+end_src
** last macro
#+begin_src elisp
(map! :n "Q" (kbd"@@"))
#+end_src
** undo
#+begin_src elisp
(map! :after evil-commands
 :n "U" 'evil-redo
 :nivr "C-n" 'undo-fu-only-undo
 )
#+end_src
** open frame other buffer
#+begin_src elisp
(map! :leader "bo" 'display-buffer-other-frame)
#+end_src
* General
** hippie expand :deactivated:
#+begin_src elisp :tangle no
(map! :nivr
    "C-e"   'hippie-expand
    "C-S-e" 'hippie-expand-lines
)
(use-package! hippie-expand
  :defer t
  :custom
  (hippie-expand-ignore-buffers "^ \\*.*\\*$")
  :config
  (defun hippie-expand-lines ()
    (interactive)
    (let ((hippie-expand-try-functions-list '(try-expand-line)))
    (call-interactively 'hippie-expand)))
)
#+end_src
** Narrow to an indirect buffer
#+begin_src elisp
(after! evil-commands
  (map! :nv "h" 'evil-narrow-op)
  (evil-define-operator evil-narrow-op (beg end type)
    "Evil indirect *narrow* operator."
    (interactive "<R>")
    (deactivate-mark)
    (let ((buf (clone-indirect-buffer nil nil)))
      (with-current-buffer buf
        (narrow-to-region beg end))
      (switch-to-buffer buf))))
#+end_src
** ivy
#+begin_src elisp
(use-package! ivy
    :bind (:map ivy-minibuffer-map
        ("C-e" . ivy-unmark)
        ("M-e" . ivy-mark)
        ("M-n" . ivy-absolute-path)
        ("M-r" . ivy-relative-path)
        ("(" . ivy-dispatching-call)
    )
    :config
    (defun ivy-relative-path ()
        (interactive)
        (ivy-exit-with-action
            (lambda (path) (with-ivy-window (insert (file-relative-name path default-directory))))
            ))
    (defun ivy-absolute-path ()
        (interactive)
        (ivy-exit-with-action
            (lambda (path) (with-ivy-window (insert path)))
            ))
)
#+end_src
** dired
*** create parent
#+begin_src elisp
(use-package dired-aux

)
#+end_src
* Utility
** rotate text
#+begin_src elisp
  (map! :n
    "ö" 'froleyks-search-rotate-backward
    "ä" 'froleyks-search-rotate
  )
  (use-package! rotate-text
  :defer t
  :commands (froleyks-search-rotate froleyks-search-rotate-backward)
  :init
  :config
  (defun froleyks-search-rotate()
    (interactive)
    (search-forward-regexp  "\\(\\+\\|-\\)?[0-9]+\\(\\.[0-9]+\\)?\\|true\\|false\\|first\\|second\\|yes\\|no" nil t)
    (call-interactively 'rotate-text)
    (evil-backward-WORD-begin)
    )

  (defun froleyks-search-rotate-backward()
    (interactive)
    (search-forward-regexp  "\\(\\+\\|-\\)?[0-9]+\\(\\.[0-9]+\\)?\\|true\\|false\\|first\\|second\\|yes\\|no" nil t)
    (call-interactively 'rotate-text-backward)
    (evil-backward-WORD-begin)
    )

  ;; override function to keep width
  (defun rotate-text-increment-number (original arg &optional minimum)
  (let ((l (length original)))
  (format (concat "%0" (number-to-string l) "d" )(max (+ (string-to-number original) arg)
                         (or minimum most-negative-fixnum)))))

  (setq rotate-text-words (append rotate-text-words '(
    ("True" "False")
    ("nil" "t")
    ("true" "false")
    ("first" "second")
    ("yes" "no")
  ))))
#+end_src
** temp files
#+begin_src elisp
(after! counsel
    (map! :leader "d" 'open-temp-file)
    (defun open-temp-file()
    (interactive)
    (counsel-find-file "~/temp/temp.")
  ))
#+end_src
** escape saves and exits
#+begin_src elisp
(defadvice! save-on-escape (&rest _)
  :before #'evil-force-normal-state
  (when (or
        (buffer-narrowed-p)
        (buffer-file-name)
        (string-match-p (regexp-quote "Org Src") (buffer-name))
        )
    (save-buffer))
    (when (buffer-narrowed-p)
    (kill-current-buffer))
  )
#+end_src
** evil snipe
#+begin_src elisp
(use-package! evil-snipe
  :defer t
  :init
  (setq evil-snipe-override-evil-repeat-keys nil)
  :custom
  (evil-snipe-scope 'buffer)
  :config
  (evil-snipe-mode -1)
  (map! :n "," 'evil-snipe-repeat
        :n "–" 'evil-snipe-repeat-reverse
        :n "l" 'evil-snipe-s
        :n "L" 'evil-snipe-S
        (:map evil-snipe-parent-transient-map
            "," 'evil-snipe-repeat
            "–" 'evil-snipe-repeat-reverse
        )))
#+end_src
** create body
#+begin_src elisp
(map! "M-o" 'create-body)
(defun create-body()
    (interactive)
    (end-of-line)
    (backward-char)
    (newline-and-indent)
    (evil-open-above 1)
    )
#+end_src
** Line manipulation
#+begin_src elisp

(use-package! replace
    :commands (flush-empty-lines remove-dubplicate-lines)
    :config
    (map! :leader
      "L" '(:ignore t :which-key "Line manipulation")
      (:prefix "L"
       "e" 'flush-empty-lines
       "f" 'flush-lines
       "k" 'keep-lines
       "d" 'remove-dubplicate-lines
       ))
    (defun flush-empty-lines ()
        "removes empty lines from files"
        (interactive)
        (flush-lines "^$")
        )
    (defun remove-dubplicate-lines ()
        "removes duplicate lines form file"
        (interactive)
        (replace-regexp "\\([^\n]+\n\\)\\1+" "\\1")
        )
)
#+end_src
** Search Engine
#+begin_src elisp
  (map! :leader
    "sg" 'engine/search-google
    "sh" 'engine/search-scholar
    "sc" 'engine/search-cpp
    "se" 'engine/search-linguee
    "sE" 'engine/search-deepl
    "sG" 'engine/search-github
    )

  (use-package! engine-mode
    :defer t
    :commands (engine/search-google
               engine/search-scholar
               engine/search-cpp
               engine/search-linguee
               engine/search-deepl
               engine/search-github
               )
    :config
    (defengine google
      "https://www.google.com/search?q=%s")
    (defengine scholar
      "https://scholar.google.de/scholar?hl=de&q=%s&btnG=&lr=")
    (defengine cpp
      "https://en.cppreference.com/mwiki/index.php?title=Special%%3ASearch&search=%s")
    (defengine linguee
      "http://www.linguee.de/deutsch-englisch/search?source=auto&query=%s")
    (defengine deepl
      "https://www.deepl.com/en/translator#de/en/%s")
    (defengine github
      "https://github.com/search?utf8=✓&q=%s&ref=simplesearch")
    )
#+end_src
** pastebin
#+begin_src elisp
(map! :leader
    "BB" 'pastebin-new
    "BL" 'pastebin-list-buffer-refresh
    )

(use-package! neopastebin
    :defer t
    :commands
    pastebin-new
    pastebin-list-buffer-refresh
    :init
    :config
    (pastebin-create-login :dev-key "b05fe24db6a4bca168b463b3fa777bfa"
                           :username "froleyks"
                           :password "shinigami"
                           ))
 #+END_SRC
#+end_src
** spelling
#+begin_src elisp
(map! :map 'flyspell-mode-map
      :nvir "M-n" 'flyspell-auto-correct-previous-word
      :nvir "M-C-n" 'flyspell-correct-previous
      )
(use-package! ispell :defer t :config
  (setenv "LANG" "en_US")
  (setq ispell-program-name "hunspell")
  (setq ispell-dictionary "de_DE,en_US")
  (add-to-list 'ispell-dictionary-alist '("de_DE,en_US"))
  (ispell-set-spellchecker-params)
  (ispell-hunspell-add-multi-dic "de_DE,en_US")
  (setq ispell-personal-dictionary "~/emacs/dictionary")
  (unless (file-exists-p ispell-personal-dictionary)
    (write-region "" nil ispell-personal-dictionary nil 0))
)
#+end_src
* Mode
** Org
*** Visual
#+begin_src elisp
(use-package! org
    :defer t
    :custom
    (org-startup-folded t)
    (org-ellipsis " ▾")
    (org-superstar-headline-bullets-list '("◉" "○" "●" "○" "●" "○" "●"))
    (org-superstar-item-bullet-alist
          '((?+ . ?+)
            (?* . ?⏭)
            (?- . ?•)))
    )
#+end_src