emacs_config_2022/myconfig.org

#+startup: overview

* Famous init files
- [[https://github.com/zamansky/dot-emacs][The Big Zemansky]]
- [[https://github.com/patrickt/emacs][Patrick: GOAT init emacs]]
- [[https://github.com/manugoyal/.emacs.d][Manugoyal: Emacs config]]
- [[https://github.com/daviwil/dotfiles/blob/master/Emacs.org][System Crafters]]
- [[https://github.com/daviwil/emacs-from-scratch/blob/master/Emacs.org][System Crafters emacs-from-scratch]]
- [[https://github.com/SystemCrafters/crafter-configs][System Crafters configs compilation]]

* Interface tweaks
** Some GUI optimizations
   #+begin_src emacs-lisp
     (setq inhibit-x-resources t)     ; avoid problems with emacs daemon and cursor colors
     (set-face-attribute 'default nil :family "Mensch" :foundry "PfEd" :height 158)
     (setq inhibit-startup-message t) ; Eliminate FSF startup msg
     (setq frame-title-format "%b")   ; Put filename in titlebar
     (setq visible-bell t)            ; Flash instead of beep
     (set-scroll-bar-mode 'right)     ; Scrollbar placement
     (show-paren-mode t)              ; Blinking cursor shows matching parentheses
     (electric-pair-mode t)           ; electric-pair-mode on
     (setq column-number-mode t)      ; Show column number of current cursor location
     (mouse-wheel-mode t)             ; wheel-mouse support
     (setq fill-column 78)
     (setq auto-fill-mode t)                   ; Set line width to 78 columns...
     (setq-default indent-tabs-mode nil)       ; Insert spaces instead of tabs
     (setq-default tab-width 4)                ; set default tab 4 spaces
     (global-set-key "\r" 'newline-and-indent) ; turn autoindenting on
     ;(set-default 'truncate-lines t)          ; Truncate lines for all buffers
     (fset 'yes-or-no-p 'y-or-n-p)
     (setq sentence-end-double-space nil)
     ; delete trailing whitespace before saving
     (add-hook 'before-save-hook 'delete-trailing-whitespace)
     ;; Enable line numbers for some modes
     (dolist (mode '(;;text-mode-hook
                     prog-mode-hook
                     conf-mode-hook))
       (add-hook mode (lambda () (display-line-numbers-mode 1))))

     ;; Override some modes which derive from the above
     (dolist (mode '(org-mode-hook))
       (add-hook mode (lambda () (display-line-numbers-mode 0))))
   #+end_src

** Set encoding
   Use utf-8 please
   #+begin_src emacs-lisp
     ;; Set encoding
     (prefer-coding-system 'utf-8)
   #+end_src

** Some shortcuts
   Useful shortcuts:
   - Revert buffer (recargar)
   - fichero org de configuración de emacs
   - fichero org ppal, aquí está todo
   - journal org file
   - org para el blog público, ideas para el blog
   - org para el blog privado
   - org notes file: para tomar una nota rápida, no lo uso mucho
   - phone org file: por si tomo notas en el teléfono, no lo uso mucho
   #+begin_src emacs-lisp
     (global-set-key (kbd "<f5>") 'revert-buffer)
     ;; emacs configuration org file
     (global-set-key
      (kbd "\e\ec")
      (lambda () (interactive) (find-file "~/.emacs.d/myconfig.org")))
     ;; Main org file
     (global-set-key
      (kbd "\e\ei")
      (lambda () (interactive) (find-file "~/Dropbox/orgfiles/i.org")))
     ;; journal org file
     (global-set-key
      (kbd "\e\ej")
      (lambda () (interactive) (find-file "~/Dropbox/orgfiles/journal.org")))
     ;; Notes file
     (global-set-key
      (kbd "\e\en")
      (lambda () (interactive) (find-file "~/Dropbox/orgfiles/notes.org")))
     ;; public blog org file
     (global-set-key
      (kbd "\e\eb")
      (lambda () (interactive) (find-file "~/Dropbox/orgfiles/b.org")))
     ;; private blog file
     (global-set-key
      (kbd "\e\ep")
      (lambda () (interactive) (find-file "~/work/repos/Personal/blog/comacero_priv/content-org/blog_privado.org")))
     ;; phone org file
     (global-set-key
      (kbd "\e\eh")
      (lambda () (interactive) (find-file "~/share/Mob_orgzly/phone.org")))

     (global-set-key [C-tab] 'hippie-expand)                    ; expand
     (global-set-key [C-kp-subtract] 'undo)                     ; [Undo]
     (global-set-key [C-kp-multiply] 'goto-line)                ; goto line
     (global-set-key [C-kp-add] 'toggle-truncate-lines)         ; truncate lines
     (global-set-key [C-kp-divide] 'delete-trailing-whitespace) ; delete trailing whitespace
     (global-set-key [C-kp-decimal] 'completion-at-point)       ; complete at point
     (global-set-key [C-M-prior] 'previous-buffer)              ; previous-buffer
     (global-set-key [C-M-next] 'next-buffer)                   ; next-buffer
   #+end_src

** Own map
   Defines own key map
   #+begin_src emacs-lisp
     (define-prefix-command 'own-map)
     (global-set-key (kbd "C-ñ") 'own-map)
     (define-key own-map (kbd "y") 'aya-create)
     (define-key own-map (kbd "e") 'aya-expand)
   #+end_src

** General (a new binding system)
   Have a look at [[https://github.com/noctuid/general.el#key-features][doc]]
   #+begin_src emacs-lisp
     ;; (use-package general)
   #+end_src

** Syntax highlight
   Set maximum colors
   #+begin_src emacs-lisp
     (cond ((fboundp 'global-font-lock-mode)        ; Turn on font-lock (syntax highlighting)
            (global-font-lock-mode t)               ; in all modes that support it
            (setq font-lock-maximum-decoration t))) ; Maximum colors
   #+end_src

** Kill buffer quick
   Kill current buffer without questions
   #+begin_src emacs-lisp
     ;;------------------------------------------------------------
     ;; Kill current buffer with C-Supr
     (defun geosoft-kill-buffer ()
       ;; Kill default buffer without the extra emacs questions
       (interactive)
       (kill-buffer (buffer-name))
       (set-name))
     (global-set-key [C-delete] 'geosoft-kill-buffer)
   #+end_src

** rainbow-delimiters
   #+begin_src emacs-lisp
     (use-package rainbow-delimiters
       :hook (prog-mode . rainbow-delimiters-mode)
       )
   #+end_src

** which-key
  Some help with composed hotkeys
  #+begin_src emacs-lisp
    (use-package which-key
      :diminish
      :config
      (which-key-mode)
      (setq which-key-idle-delay 0.3)
      )
  #+end_src

** ace-windows
  To jump to different windows easily
  #+begin_src emacs-lisp
    (use-package ace-window
      :init
      (global-set-key [remap other-window] 'ace-window)
      (custom-set-faces
       '(aw-leading-char-face
         ((t (:inherit ace-jump-face-foreground :height 3.0)))))
      )
  #+end_src

** PCRE2el
   Perl Compatible Regexes
   #+begin_src emacs-lisp
     (use-package pcre2el
       :config
       (pcre-mode +1))
   #+end_src

* Completion systems
** Selectrum
  #+begin_src emacs-lisp
    ;; (use-package selectrum
    ;;   :init
    ;;   (selectrum-mode +1))
  #+end_src

** Vertico (the choosed one)
   Have a look [[https://github.com/minad/vertico][here]]
   #+begin_src emacs-lisp
     (use-package vertico
       :init
       (vertico-mode +1)
       :config
       ;; Different scroll margin
       ;; (setq vertico-scroll-margin 0)

       ;; Show more candidates
       ;; (setq vertico-count 20)

       ;; Grow and shrink the Vertico minibuffer
       ;; (setq vertico-resize t)

       ;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
       (setq vertico-cycle t)
       )
   #+end_src

*** Orderless
    Have a look at [[https://github.com/oantolin/orderless][repo]]
    #+begin_src emacs-lisp
      (use-package orderless
        :init
        (icomplete-mode)
        :custom
        (completion-styles '(orderless))
        (completion-category-defaults nil)
        (completion-category-overrides '((file (styles partial-completion))))
        )
    #+end_src

*** Marginalia
    Check the [[https://github.com/minad/marginalia][doc]]
    #+begin_src emacs-lisp
      (use-package marginalia
      :init
      (marginalia-mode +1)
      :bind
      (; ("M-A" . marginalia-cycle)    ;; Uncomment for global bind
       :map minibuffer-local-map
       ("M-A" . marginalia-cycle))
      )
    #+end_src

* Consult and Embark
  Consult is a collection of programs using emacs =completing-read=
  You must read [[https://github.com/minad/consult][the doc]]!

  #+begin_src emacs-lisp
    (use-package consult
      :bind
      ("C-c h" . consult-history)
      ("C-c m" . consult-mode-command)
      ("C-c k" . consult-kmacro)
      ;; C-x bindings (ctl-x-map)
      ("C-x M-:" . consult-complex-command)     ;; orig. repeat-complex-command
      ("C-x b" . consult-buffer)                ;; orig. switch-to-buffer
      )
  #+end_src

** Embark
   [[https://github.com/oantolin/embark][The doc]]
   #+begin_src emacs-lisp
     (use-package embark
       :bind
       (("C-." . embark-act)         ;; pick some comfortable binding
        ("C-;" . embark-dwim)        ;; good alternative: M-.
        ("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'

       :init

       ;; Optionally replace the key help with a completing-read interface
       (setq prefix-help-command #'embark-prefix-help-command)

       :config

       ;; Hide the mode line of the Embark live/completions buffers
       (add-to-list 'display-buffer-alist
                    '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
                      nil
                       (window-parameters (mode-line-format . none))))

       )

     ;; Consult users will also want the embark-consult package.
     (use-package embark-consult
       :after (embark consult)
       :demand t ; only necessary if you have the hook below
       ;; if you want to have consult previews as you move around an
       ;; auto-updating embark collect buffer
       :hook
       (embark-collect-mode . consult-preview-at-point-mode))
   #+end_src

* next
#+begin_src emacs-lisp
#+end_src

* ivy - counsel - swipper
  An enhanced incremental search and a lot of features from counsel
  - Counsel is a collection of emacs commands rewrited to use Ivy
  - Ivy se encarga del autocompletado
  - Ivy-rich se encarga de completar algunas opciones de Ivy
  - Swipper se encarga de las busquedas en el fichero
  #+begin_src emacs-lisp
    ;; (use-package counsel
    ;;   :bind
    ;;   (("C-S-o" . counsel-rhythmbox)
    ;;    ("M-x" . counsel-M-x)
    ;;    ("C-x b" . counsel-switch-buffer)
    ;;    ("C-x C-f" . counsel-find-file)
    ;;    ("<f1> f" . counsel-describe-function)
    ;;    ("<f1> v" . counsel-describe-variable)
    ;;    ("<f1> l" . counsel-load-library)
    ;;    ("<f2> i" . counsel-info-lookup-symbol)
    ;;    ("<f2> u" . counsel-unicode-char)
    ;;    ("C-c g" . counsel-git)
    ;;    ("C-c j" . counsel-git-grep)
    ;;    ("C-c k" . counsel-ag)    ;; requires installation: apt install silversearcher-ag
    ;;    ("C-x l" . counsel-locate)
    ;;    ("M-y" . counsel-yank-pop)
    ;;    :map ivy-minibuffer-map
    ;;    ("M-y" . ivy-next-line))
    ;;   )
    ;; ;; Takes care of completion in elections menus
    ;; (use-package ivy
    ;;   :diminish (ivy-mode)
    ;;   :bind
    ;;   (
    ;;    ;; ("C-x b" . ivy-switch-buffer)
    ;;    ("<f6>" . ivy-resume)
    ;;    )
    ;;   :config
    ;;   (ivy-mode 1)
    ;;   (setq ivy-use-virtual-buffers t
	;;     ivy-count-format "%d/%d "
	;;     ivy-display-style 'fancy)
    ;;   )
    ;; ;; Ivy enriched
    ;; (use-package ivy-rich
    ;;   :config
    ;;   (ivy-rich-mode 1)
    ;;   )
    ;;
    ;; (use-package swiper
    ;;   :bind
    ;;   (("C-s" . swiper)
    ;;    ("C-r" . swiper-isearch-backward)
    ;;    :map minibuffer-local-map
    ;;    ("C-r" . counsel-minibuffer-history)
    ;;    )
    ;;   :config
    ;;   (ivy-mode 1)
    ;;   (setq ivy-use-virtual-buffers t)
    ;;   )
  #+end_src

* doom-modeline
  A fancy modeline. Remember to execute =M-x all-the-icons-install-fonts=
  See [[http://sodaware.sdf.org/notes/emacs-daemon-doom-modeline-icons/][this]] for fixing icons in terminal

  #+begin_src emacs-lisp
    (use-package all-the-icons
      )
    (use-package doom-modeline
      :init
      (doom-modeline-mode 1)
      (setq doom-modeline-icon 1) ;; this fixes icons in emacs-client
      :custom
      (doom-modeline-height 15)
      ;;(doom-modeline-icon (display-graphic-p))
      )
  #+end_src