From 8d56dc6bae599ba1f4874eee26aaa361a08ace4b Mon Sep 17 00:00:00 2001
From: qorg11 <nbome@riseup.net>
Date: Thu, 10 Feb 2022 00:11:26 +0100
Subject: [PATCH] Fix indentation
---
config.org | 940 ++++++++++++++++++++++++++---------------------------
1 file changed, 470 insertions(+), 470 deletions(-)
diff --git a/config.org b/config.org
index f10dd33..05445ee 100644
--- a/config.org
+++ b/config.org
@@ -4,571 +4,571 @@
* qorg's Emacs config
- This is my Emacs configuration. Hope you like it.
+This is my Emacs configuration. Hope you like it.
** Installation
- Just copy this repository to your .emacs.d. Nothing else is needed.
+Just copy this repository to your .emacs.d. Nothing else is needed.
** Why?
- * I can
- * I don't like doom emacs
- * I don't like spacemacs
- * I don't want to learn doom emacs
- * I don't want to learn spacemacs
- * I don't like Vim
+* I can
+* I don't like doom emacs
+* I don't like spacemacs
+* I don't want to learn doom emacs
+* I don't want to learn spacemacs
+* I don't like Vim
** About me
- Here I set variables about personal information i'll use later in
- this config.
- #+BEGIN_SRC emacs-lisp
- (setq name "qorg11")
- (setq email "qorg@vxempire.xyz")
- (setq website "qorg11.net")
- #+END_SRC
+Here I set variables about personal information i'll use later in
+this config.
+#+BEGIN_SRC emacs-lisp
+ (setq name "qorg11")
+ (setq email "qorg@vxempire.xyz")
+ (setq website "qorg11.net")
+#+END_SRC
** Dependencies
- The only no emacs related dependence in this configuration is the
- IBM Plex Mono font. Install it from your distribution packages.
- You can change it before opening Emacs with this configuration for
- the first time.
+The only no emacs related dependence in this configuration is the
+IBM Plex Mono font. Install it from your distribution packages.
+You can change it before opening Emacs with this configuration for
+the first time.
- For irony-mode (C autocompletion) irony-sever must be
- installed. You can install it with M-x irony-install-server or via
- distribution's packages, in Debian case, apt install irony-server.
- Using M-x irony-install-server requires cmake and a lot of
- dependences I'm to lazy to install.
+For irony-mode (C autocompletion) irony-sever must be
+installed. You can install it with M-x irony-install-server or via
+distribution's packages, in Debian case, apt install irony-server.
+Using M-x irony-install-server requires cmake and a lot of
+dependences I'm to lazy to install.
** Configuration
- Yeah, this configuration file has a configuration, ironic ha?
- #+BEGIN_SRC emacs-lisp
- (setq i-just-use-emacs-to-be-cool nil) ;; Repleace to true to use EVIL
+Yeah, this configuration file has a configuration, ironic ha?
+#+BEGIN_SRC emacs-lisp
+ (setq i-just-use-emacs-to-be-cool nil) ;; Repleace to true to use EVIL
- #+END_SRC
+#+END_SRC
* gc
- #+begin_src emacs-lisp
- ;; Minimize garbage collection during startup
- (setq gc-cons-threshold most-positive-fixnum)
+#+begin_src emacs-lisp
+ ;; Minimize garbage collection during startup
+ (setq gc-cons-threshold most-positive-fixnum)
- ;; Lower threshold back to 8 MiB (default is 800kB)
- (add-hook 'emacs-startup-hook
- (lambda ()
- (setq gc-cons-threshold (expt 2 23))))
- #+end_src
+ ;; Lower threshold back to 8 MiB (default is 800kB)
+ (add-hook 'emacs-startup-hook
+ (lambda ()
+ (setq gc-cons-threshold (expt 2 23))))
+#+end_src
* melpa crap, and basic packages installation
- melpa, where you get the packages. This also installs use-package,
- and other packages I use.
- #+BEGIN_SRC emacs-lisp
- (require 'package)
- (let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))
- (not (gnutls-available-p))))
- (proto (if no-ssl "http" "https")))
- ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired
- (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t)
- ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t)
- (when (< emacs-major-version 24)
- ;; For important compatibility libraries like cl-lib
- (add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/")))))
+melpa, where you get the packages. This also installs use-package,
+and other packages I use.
+#+BEGIN_SRC emacs-lisp
+ (require 'package)
+ (let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))
+ (not (gnutls-available-p))))
+ (proto (if no-ssl "http" "https")))
+ ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired
+ (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t)
+ ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t)
+ (when (< emacs-major-version 24)
+ ;; For important compatibility libraries like cl-lib
+ (add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/")))))
- (if (< emacs-major-version 27)
- (package-initialize))
- (unless (package-installed-p 'use-package)
- (package-refresh-contents)
- (package-install 'use-package))
- #+END_SRC
+ (if (< emacs-major-version 27)
+ (package-initialize))
+ (unless (package-installed-p 'use-package)
+ (package-refresh-contents)
+ (package-install 'use-package))
+#+END_SRC
** Generic packages
- Here I install some packages that don't need configuration.
- Remember to run M-x all-the-icons-install-fonts after the first
- init to install the fonts.
- #+BEGIN_SRC emacs-lisp
+Here I install some packages that don't need configuration.
+Remember to run M-x all-the-icons-install-fonts after the first
+init to install the fonts.
+#+BEGIN_SRC emacs-lisp
- (use-package markdown-mode
- :defer 1
- :ensure t)
- (use-package all-the-icons
- :defer 1
- :ensure t)
- (use-package which-key
- :ensure t
- :init (which-key-mode))
- #+END_SRC
+ (use-package markdown-mode
+ :defer 1
+ :ensure t)
+ (use-package all-the-icons
+ :defer 1
+ :ensure t)
+ (use-package which-key
+ :ensure t
+ :init (which-key-mode))
+#+END_SRC
* Autoindentation
- C-c n for indent-buffer. I don't use the rest.
- #+BEGIN_SRC emacs-lisp
- (setq-default tab-width 5)
- (defvaralias 'sgml-basic-offset 'tab-width)
- (add-hook 'html-mode-hook
- (lambda ()
- (set-fill-column 100)))
- (defun indent-buffer ()
- (interactive)
- (save-excursion
- (indent-region (point-min) (point-max) nil)))
- (global-set-key (kbd "C-c n") 'indent-buffer)
- ;; C bullshit
- (c-set-offset 'arglist-cont-nonempty '+)
- #+END_SRC
+C-c n for indent-buffer. I don't use the rest.
+#+BEGIN_SRC emacs-lisp
+ (setq-default tab-width 5)
+ (defvaralias 'sgml-basic-offset 'tab-width)
+ (add-hook 'html-mode-hook
+ (lambda ()
+ (set-fill-column 100)))
+ (defun indent-buffer ()
+ (interactive)
+ (save-excursion
+ (indent-region (point-min) (point-max) nil)))
+ (global-set-key (kbd "C-c n") 'indent-buffer)
+ ;; C bullshit
+ (c-set-offset 'arglist-cont-nonempty '+)
+#+END_SRC
* Shorcuts
- Probably this overwrites another keybinding. But since I overwrited
- it. I don't think i'd ever use the overwritten.
- #+BEGIN_SRC emacs-lisp
- (global-set-key (kbd "M-m") 'mark-whole-buffer)
- #+END_SRC
+Probably this overwrites another keybinding. But since I overwrited
+it. I don't think i'd ever use the overwritten.
+#+BEGIN_SRC emacs-lisp
+ (global-set-key (kbd "M-m") 'mark-whole-buffer)
+#+END_SRC
* No idea
- #+BEGIN_SRC emacs-lisp
- (setq package-enable-at-startup nil) (package-initialize)
+#+BEGIN_SRC emacs-lisp
+ (setq package-enable-at-startup nil) (package-initialize)
- (setq make-backup-files nil) ; stop creating backup~ files
- (setq auto-save-default nil) ; stop creating #autosave# files
- (put 'upcase-region 'disabled nil)
+ (setq make-backup-files nil) ; stop creating backup~ files
+ (setq auto-save-default nil) ; stop creating #autosave# files
+ (put 'upcase-region 'disabled nil)
- (defun contextual-menubar (&optional frame)
- "Display the menubar in FRAME (default: selected frame) if on a
- graphical display, but hide it if in terminal."
- (interactive)
- (set-frame-parameter frame 'menu-bar-lines
- (if (display-graphic-p frame)
- 1 0)))
+ (defun contextual-menubar (&optional frame)
+ "Display the menubar in FRAME (default: selected frame) if on a
+ graphical display, but hide it if in terminal."
+ (interactive)
+ (set-frame-parameter frame 'menu-bar-lines
+ (if (display-graphic-p frame)
+ 1 0)))
- (add-hook 'after-make-frame-functions 'contextual-menubar)
- (use-package zencoding-mode
- :ensure t
- :defer 1)
- #+END_SRC
+ (add-hook 'after-make-frame-functions 'contextual-menubar)
+ (use-package zencoding-mode
+ :ensure t
+ :defer 1)
+#+END_SRC
* Customization
- Emacs customization, Here is where most of the configuration is.
+Emacs customization, Here is where most of the configuration is.
** Pseudopersonalization
- The basic emacs persdonalization lol
- #+BEGIN_SRC emacs-lisp
- (tool-bar-mode -1)
- (menu-bar-mode -1)
- (set-frame-font "Inconsolata 14" 14 t)
- (global-hl-line-mode)
- (set-face-background hl-line-face "gray13")
- (setq-default cursor-type 'box)
- (blink-cursor-mode 1)
- (setq-default major-mode 'text-mode)
- (defalias 'yes-or-no-p 'y-or-n-p)
- #+END_SRC
+The basic emacs persdonalization lol
+#+BEGIN_SRC emacs-lisp
+ (tool-bar-mode -1)
+ (menu-bar-mode -1)
+ (set-frame-font "Inconsolata 14" 14 t)
+ (global-hl-line-mode)
+ (set-face-background hl-line-face "gray13")
+ (setq-default cursor-type 'box)
+ (blink-cursor-mode 1)
+ (setq-default major-mode 'text-mode)
+ (defalias 'yes-or-no-p 'y-or-n-p)
+#+END_SRC
** Highlight matching parentheses
- #+BEGIN_SRC emacs-lisp
- (show-paren-mode 1)
- (setq show-paren-style 'mixed)
+#+BEGIN_SRC emacs-lisp
+ (show-paren-mode 1)
+ (setq show-paren-style 'mixed)
- (setq startup/gc-cons-threshold gc-cons-threshold)
- (setq gc-cons-threshold most-positive-fixnum)
- (defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold))
- (add-hook 'emacs-startup-hook 'startup/reset-gc)
- #+END_SRC
+ (setq startup/gc-cons-threshold gc-cons-threshold)
+ (setq gc-cons-threshold most-positive-fixnum)
+ (defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold))
+ (add-hook 'emacs-startup-hook 'startup/reset-gc)
+#+END_SRC
** Tramp mode shit
- #+begin_src emacs-lisp
- (set-variable 'tramp-copy-size-limit 122222222222)
- (set-variable 'tramp-inline-compress-start-size 12222222222222)
- #+end_src
+#+begin_src emacs-lisp
+ (set-variable 'tramp-copy-size-limit 122222222222)
+ (set-variable 'tramp-inline-compress-start-size 12222222222222)
+#+end_src
** Lines and columns
- #+BEGIN_SRC emacs-lisp
- (global-display-line-numbers-mode 1)
- (setq display-line-numbers-type 'relative)
- (column-number-mode 1)
- #+END_SRC
+#+BEGIN_SRC emacs-lisp
+ (global-display-line-numbers-mode 1)
+ (setq display-line-numbers-type 'relative)
+ (column-number-mode 1)
+#+END_SRC
** Flycheck
- Flycheck is a syntax validator or somehting like that
- #+BEGIN_SRC emacs-lisp
- (use-package flycheck
- :ensure t
- :init
- (add-hook 'after-init-hook #'global-flycheck-mode))
- #+END_SRC
- And for raku
- #+BEGIN_SRC emacs-lisp
- (use-package flycheck-raku
- :ensure t
- :init
- (add-hook 'raku-mode 'flycheck-raku-mode))
- #+END_SRC
+Flycheck is a syntax validator or somehting like that
+#+BEGIN_SRC emacs-lisp
+ (use-package flycheck
+ :ensure t
+ :init
+ (add-hook 'after-init-hook #'global-flycheck-mode))
+#+END_SRC
+And for raku
+#+BEGIN_SRC emacs-lisp
+ (use-package flycheck-raku
+ :ensure t
+ :init
+ (add-hook 'raku-mode 'flycheck-raku-mode))
+#+END_SRC
** Terminal
- vterm is better than ansi-term and shit, despite it's kinda slow,
- it's a price i'm willing to pay.
+vterm is better than ansi-term and shit, despite it's kinda slow,
+it's a price i'm willing to pay.
- It should use your default shell by default.
- #+BEGIN_SRC emacs-lisp
- (use-package "vterm"
- :ensure t
- :bind("C-x t" . vterm))
- #+END_SRC
+It should use your default shell by default.
+#+BEGIN_SRC emacs-lisp
+ (use-package "vterm"
+ :ensure t
+ :bind("C-x t" . vterm))
+#+END_SRC
** Theme
- #+begin_src emacs-lisp
- (use-package "darktooth-theme"
- :ensure t
- :init(load-theme 'darktooth t))
- #+end_src
+#+begin_src emacs-lisp
+ (use-package "darktooth-theme"
+ :ensure t
+ :init(load-theme 'darktooth t))
+#+end_src
** ctrlf
- #+BEGIN_SRC emacs-lisp
- (use-package ctrlf
- :ensure t
- :defer 1
- :init
- (ctrlf-mode +1))
- #+END_SRC
+#+BEGIN_SRC emacs-lisp
+ (use-package ctrlf
+ :ensure t
+ :defer 1
+ :init
+ (ctrlf-mode +1))
+#+END_SRC
** Company and Irony
- Some shit for autocompletion and that kind of shit.
+Some shit for autocompletion and that kind of shit.
- #+BEGIN_SRC emacs-lisp
- (use-package company
- :defer 1
- :ensure t
- :config
- (setq company-idle-delay 0)
- (setq company-minimum-prefix-length 3)
- (global-company-mode))
- (with-eval-after-load 'company
- (define-key company-active-map (kbd "M-n") nil)
- (define-key company-active-map (kbd "M-p") nil)
- (define-key company-active-map (kbd "C-n") #'company-select-next)
- (define-key company-active-map (kbd "C-p") #'company-select-previous))
+#+BEGIN_SRC emacs-lisp
+ (use-package company
+ :defer 1
+ :ensure t
+ :config
+ (setq company-idle-delay 0)
+ (setq company-minimum-prefix-length 3)
+ (global-company-mode))
+ (with-eval-after-load 'company
+ (define-key company-active-map (kbd "M-n") nil)
+ (define-key company-active-map (kbd "M-p") nil)
+ (define-key company-active-map (kbd "C-n") #'company-select-next)
+ (define-key company-active-map (kbd "C-p") #'company-select-previous))
- (use-package company-irony
- :defer 1
- :ensure t
- :config
- (require 'company)
- (add-to-list 'company-backends 'company-irony))
+ (use-package company-irony
+ :defer 1
+ :ensure t
+ :config
+ (require 'company)
+ (add-to-list 'company-backends 'company-irony))
- (use-package irony
- :defer 1
- :ensure t
- :config
- (add-hook 'c-mode-hook 'irony-mode)
- (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
- (with-eval-after-load 'company
- (add-hook 'c-mode-hook 'company-mode))
- #+END_SRC
+ (use-package irony
+ :defer 1
+ :ensure t
+ :config
+ (add-hook 'c-mode-hook 'irony-mode)
+ (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
+ (with-eval-after-load 'company
+ (add-hook 'c-mode-hook 'company-mode))
+#+END_SRC
** Programming language things
*** Lisp
- Parentheses highlight in lisp modes. So you can easily identify
- them.
- #+BEGIN_SRC emacs-lisp
- (use-package rainbow-delimiters
- :ensure t
- :init
- (add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)
- (add-hook 'lisp-mode-hook 'rainbow-delimiters-mode)
- (add-hook 'scheme-mode-hook 'rainbow-delimiters-mode))
+Parentheses highlight in lisp modes. So you can easily identify
+them.
+#+BEGIN_SRC emacs-lisp
+ (use-package rainbow-delimiters
+ :ensure t
+ :init
+ (add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)
+ (add-hook 'lisp-mode-hook 'rainbow-delimiters-mode)
+ (add-hook 'scheme-mode-hook 'rainbow-delimiters-mode))
- (setq lisp-indent-offset 5)
- #+END_SRC
+ (setq lisp-indent-offset 5)
+#+END_SRC
*** Perl
- Cperl-mode is better than perl-mode. You can't change my mind.
- #+BEGIN_SRC emacs-lisp
- (defalias 'perl-mode 'cperl-mode)
- (setq cperl-indent-level 5)
- #+END_SRC
+Cperl-mode is better than perl-mode. You can't change my mind.
+#+BEGIN_SRC emacs-lisp
+ (defalias 'perl-mode 'cperl-mode)
+ (setq cperl-indent-level 5)
+#+END_SRC
*** C*
- This use c-eldoc mode so it prints the function's prototype in the
- minibuffer. Which is very useful since Irony works when it wants
- to.
- #+BEGIN_SRC emacs-lisp
- (use-package c-eldoc
- :ensure t
- :init
- (add-hook 'c-mode-hook 'c-turn-on-eldoc-mode))
- (setq c-default-style "k&r")
- #+END_SRC
+This use c-eldoc mode so it prints the function's prototype in the
+minibuffer. Which is very useful since Irony works when it wants
+to.
+#+BEGIN_SRC emacs-lisp
+ (use-package c-eldoc
+ :ensure t
+ :init
+ (add-hook 'c-mode-hook 'c-turn-on-eldoc-mode))
+ (setq c-default-style "k&r")
+#+END_SRC
*** Raku
- Raku, the cornerstone of any well designed programming language.
- #+begin_src emacs-lisp
- (setq raku-indent-offset 5)
- (setq raku-exec-path "/home/qorg/.raku/rakudo-moar-2021.10-01-linux-x86_64-gcc/bin/raku")
- #+end_src
+Raku, the cornerstone of any well designed programming language.
+#+begin_src emacs-lisp
+ (setq raku-indent-offset 5)
+ (setq raku-exec-path "/home/qorg/.raku/rakudo-moar-2021.10-01-linux-x86_64-gcc/bin/raku")
+#+end_src
*** org
- #+begin_src emacs-lisp
- (setq org-ellipsis " ")
- (setq org-src-fontify-natively t)
- (setq org-src-tab-acts-natively t)
- (setq org-confirm-babel-evaluate nil)
- (setq org-export-with-smart-quotes t)
- (setq org-src-window-setup 'current-window)
- (add-hook 'org-mode-hook 'org-indent-mode)
- #+end_src
+#+begin_src emacs-lisp
+ (setq org-ellipsis " ")
+ (setq org-src-fontify-natively t)
+ (setq org-src-tab-acts-natively t)
+ (setq org-confirm-babel-evaluate nil)
+ (setq org-export-with-smart-quotes t)
+ (setq org-src-window-setup 'current-window)
+ (add-hook 'org-mode-hook 'org-indent-mode)
+#+end_src
** Extra functions
- Here I put functions I won't bother to document because they're so
- simple.
- #+BEGIN_SRC emacs-lisp
- (defun git-pushall ()
- (interactive)
- (shell-command "git pushall"))
+Here I put functions I won't bother to document because they're so
+simple.
+#+BEGIN_SRC emacs-lisp
+ (defun git-pushall ()
+ (interactive)
+ (shell-command "git pushall"))
- (defun kill-inner-word ()
- (interactive)
- (forward-word 1)
- (backward-word)
- (kill-word 1))
- (global-set-key (kbd "C-x w k") 'kill-inner-word)
- (defun kill-kill ()
- (interactive)
- (beginning-of-line)
- (kill-line)
- (kill-line))
- (global-set-key (kbd "M-.") 'repeat)
- (global-set-key (kbd "C-x k") 'kill-buffer)
- (global-set-key (kbd "C-x C-k") 'kill-current-buffer)
- (global-set-key (kbd "C-c k") 'kill-kill)
- (global-set-key (kbd "C-k") 'kill-line)
- #+END_SRC
+ (defun kill-inner-word ()
+ (interactive)
+ (forward-word 1)
+ (backward-word)
+ (kill-word 1))
+ (global-set-key (kbd "C-x w k") 'kill-inner-word)
+ (defun kill-kill ()
+ (interactive)
+ (beginning-of-line)
+ (kill-line)
+ (kill-line))
+ (global-set-key (kbd "M-.") 'repeat)
+ (global-set-key (kbd "C-x k") 'kill-buffer)
+ (global-set-key (kbd "C-x C-k") 'kill-current-buffer)
+ (global-set-key (kbd "C-c k") 'kill-kill)
+ (global-set-key (kbd "C-k") 'kill-line)
+#+END_SRC
** Hunspell
- For some reason, there is no ispell spanish in void linux. so i had
- to fallback to hunspell. which does the same.
- #+BEGIN_SRC emacs-lisp
- (defvar ispell-program-name "hunspell") ;; Or whatever you use
- ;; (ispell, aspell...)
+For some reason, there is no ispell spanish in void linux. so i had
+to fallback to hunspell. which does the same.
+#+BEGIN_SRC emacs-lisp
+ (defvar ispell-program-name "hunspell") ;; Or whatever you use
+ ;; (ispell, aspell...)
- #+END_SRC
+#+END_SRC
** Dired
- Ahhh, the emacs file browser, better than ranger and others...
- Hide dotfiles:
- #+BEGIN_SRC emacs-lisp
+Ahhh, the emacs file browser, better than ranger and others...
+Hide dotfiles:
+#+BEGIN_SRC emacs-lisp
- (use-package dired-hide-dotfiles
- :ensure t
- :init
- (defun my-dired-mode-hook ()
- "My `dired' mode hook."
- ;; To hide dot-files by default
- (dired-hide-dotfiles-mode)
+ (use-package dired-hide-dotfiles
+ :ensure t
+ :init
+ (defun my-dired-mode-hook ()
+ "My `dired' mode hook."
+ ;; To hide dot-files by default
+ (dired-hide-dotfiles-mode)
- ;; To toggle hiding
- (define-key dired-mode-map "." #'dired-hide-dotfiles-mode))
+ ;; To toggle hiding
+ (define-key dired-mode-map "." #'dired-hide-dotfiles-mode))
- (add-hook 'dired-mode-hook #'my-dired-mode-hook))
- (use-package async
- :ensure t
- :init (dired-async-mode 1))
- (add-hook 'dired-mode-hook
- (lambda ()
- (dired-hide-details-mode)))
- #+END_SRC
- Now let's make the thing lysergic
- #+begin_src emacs-lisp
- (set-face-foreground dired-directory-face "orange")
- (set-face-foreground dired-symlink-face "cyan")
- (set-face-foreground dired-mark-face "green")
- (set-face-foreground dired-marked-face "blue")
- #+end_src
+ (add-hook 'dired-mode-hook #'my-dired-mode-hook))
+ (use-package async
+ :ensure t
+ :init (dired-async-mode 1))
+ (add-hook 'dired-mode-hook
+ (lambda ()
+ (dired-hide-details-mode)))
+#+END_SRC
+Now let's make the thing lysergic
+#+begin_src emacs-lisp
+ (set-face-foreground dired-directory-face "orange")
+ (set-face-foreground dired-symlink-face "cyan")
+ (set-face-foreground dired-mark-face "green")
+ (set-face-foreground dired-marked-face "blue")
+#+end_src
** kill ring popup
- #+BEGIN_SRC emacs-lisp
- (use-package popup-kill-ring
- :ensure t
- :bind ("M-y" . popup-kill-ring))
+#+BEGIN_SRC emacs-lisp
+ (use-package popup-kill-ring
+ :ensure t
+ :bind ("M-y" . popup-kill-ring))
- #+END_SRC
+#+END_SRC
** scrolling
- Scroll by lines rather than by pages.
- #+begin_src emacs-lisp
- (setq scroll-step 1)
- (setq scroll-conservatively 10000)
- (setq auto-window-vscroll nil)
- (scroll-bar-mode -1)
- #+end_src
+Scroll by lines rather than by pages.
+#+begin_src emacs-lisp
+ (setq scroll-step 1)
+ (setq scroll-conservatively 10000)
+ (setq auto-window-vscroll nil)
+ (scroll-bar-mode -1)
+#+end_src
** Sidebar
- #+BEGIN_SRC emacs-lisp
- (use-package dired-sidebar
- :ensure t
- :commands (dired-sidebar-toggle-sidebar))
- (global-set-key (kbd "<f7>") 'dired-sidebar-toggle-sidebar)
- #+END_SRC
+#+BEGIN_SRC emacs-lisp
+ (use-package dired-sidebar
+ :ensure t
+ :commands (dired-sidebar-toggle-sidebar))
+ (global-set-key (kbd "<f7>") 'dired-sidebar-toggle-sidebar)
+#+END_SRC
*** Shell
- #+begin_src emacs-lisp
- (add-hook 'shell-mode-hook 'yas-minor-mode)
- (add-hook 'shell-mode-hook 'flycheck-mode)
- (add-hook 'shell-mode-hook 'company-mode)
+#+begin_src emacs-lisp
+ (add-hook 'shell-mode-hook 'yas-minor-mode)
+ (add-hook 'shell-mode-hook 'flycheck-mode)
+ (add-hook 'shell-mode-hook 'company-mode)
- (defun shell-mode-company-init ()
- (setq-local company-backends '((company-shell
- company-shell-env
- company-etags
- company-dabbrev-code))))
+ (defun shell-mode-company-init ()
+ (setq-local company-backends '((company-shell
+ company-shell-env
+ company-etags
+ company-dabbrev-code))))
- (use-package company-shell
- :ensure t
- :config
- (require 'company)
- (add-hook 'shell-mode-hook 'shell-mode-company-init))
- #+end_src
+ (use-package company-shell
+ :ensure t
+ :config
+ (require 'company)
+ (add-hook 'shell-mode-hook 'shell-mode-company-init))
+#+end_src
** Mark multiple
- Multiple cursors :DD
- #+begin_src emacs-lisp
- (use-package "multiple-cursors"
- :ensure t
- :bind ("C-q" . 'mc/mark-next-like-this))
+Multiple cursors :DD
+#+begin_src emacs-lisp
+ (use-package "multiple-cursors"
+ :ensure t
+ :bind ("C-q" . 'mc/mark-next-like-this))
- #+end_src
+#+end_src
** Highlight indent guides
- I don't really know, it looks cool.
- #+begin_src emacs-lisp
- (use-package "highlight-indent-guides"
- :ensure t
- :defer
- :init (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
- (setq highlight-indent-guides-method 'bitmap))
- #+end_src
+I don't really know, it looks cool.
+#+begin_src emacs-lisp
+ (use-package "highlight-indent-guides"
+ :ensure t
+ :defer
+ :init (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
+ (setq highlight-indent-guides-method 'bitmap))
+#+end_src
** Ace jump mode
- So you can jump to characters fast af
- #+begin_src emacs-lisp
- (use-package "ace-jump-mode"
- :ensure t
- :bind("C-l" . 'ace-jump-mode))
- #+end_src
- And same but jumping between frames
- #+begin_src emacs-lisp
- (use-package "ace-window"
- :ensure t
- :bind("M-l" . 'ace-window))
+So you can jump to characters fast af
+#+begin_src emacs-lisp
+ (use-package "ace-jump-mode"
+ :ensure t
+ :bind("C-l" . 'ace-jump-mode))
+#+end_src
+And same but jumping between frames
+#+begin_src emacs-lisp
+ (use-package "ace-window"
+ :ensure t
+ :bind("M-l" . 'ace-window))
- #+end_src
+#+end_src
** Expand region
- #+begin_src emacs-lisp
- (use-package expand-region
- :ensure t
- :bind ("C-x e" . 'er/expand-region))
- #+end_src
+#+begin_src emacs-lisp
+ (use-package expand-region
+ :ensure t
+ :bind ("C-x e" . 'er/expand-region))
+#+end_src
** Beacon mode
- #+begin_src emacs-lisp
- (use-package "beacon"
- :ensure t
- :init(beacon-mode 1))
- #+end_src
+#+begin_src emacs-lisp
+ (use-package "beacon"
+ :ensure t
+ :init(beacon-mode 1))
+#+end_src
** LSP
- Le language server
- #+begin_src emacs-lisp
- (use-package "lsp-mode"
- :ensure t
- )
- (use-package "lsp-ui"
- :ensure t
- :init(add-hook 'lsp-mode-hook 'lsp-ui-mode))
- #+end_src
+Le language server
+#+begin_src emacs-lisp
+ (use-package "lsp-mode"
+ :ensure t
+ )
+ (use-package "lsp-ui"
+ :ensure t
+ :init(add-hook 'lsp-mode-hook 'lsp-ui-mode))
+#+end_src
** Workspaces
- I'm a tilling window manager user, so i know what i'm talking about.
- #+begin_src emacs-lisp
- (use-package "workgroups"
- :ensure t)
- #+end_src
+I'm a tilling window manager user, so i know what i'm talking about.
+#+begin_src emacs-lisp
+ (use-package "workgroups"
+ :ensure t)
+#+end_src
** Buffers
- Well, you know sometimes you just want to change to the previous
- buffer and don't want a whole interface for just pressing enter.
- #+begin_src emacs-lisp
- (defun switch-to-previous-buffer ()
- (interactive)
- (switch-to-buffer (other-buffer (current-buffer) 1)))
+Well, you know sometimes you just want to change to the previous
+buffer and don't want a whole interface for just pressing enter.
+#+begin_src emacs-lisp
+ (defun switch-to-previous-buffer ()
+ (interactive)
+ (switch-to-buffer (other-buffer (current-buffer) 1)))
- (global-set-key (kbd "C-x C-b") 'switch-to-previous-buffer)
- #+end_src
+ (global-set-key (kbd "C-x C-b") 'switch-to-previous-buffer)
+#+end_src
** Hooks
- I am tired of =M-x auto-fill-mode= in some modes
- #+begin_src emacs-lisp
- (add-hook 'org-mode-hook 'auto-fill-mode)
- (add-hook 'sgml-mode-hook 'auto-fill-mode)
- (add-hook 'sgml-mode-hook 'zencoding-mode)
- #+end_src
+I am tired of =M-x auto-fill-mode= in some modes
+#+begin_src emacs-lisp
+ (add-hook 'org-mode-hook 'auto-fill-mode)
+ (add-hook 'sgml-mode-hook 'auto-fill-mode)
+ (add-hook 'sgml-mode-hook 'zencoding-mode)
+#+end_src
** Hungry delete
- Having to delete multiple whitespaces is one of the things I hate,
- thankfully there's this thing.
- #+begin_src emacs-lisp
- (use-package "hungry-delete"
- :ensure t
- :init(global-hungry-delete-mode))
- #+end_src
+Having to delete multiple whitespaces is one of the things I hate,
+thankfully there's this thing.
+#+begin_src emacs-lisp
+ (use-package "hungry-delete"
+ :ensure t
+ :init(global-hungry-delete-mode))
+#+end_src
** Yasnippet
- #+begin_src emacs-lisp
- (use-package "yasnippet"
- :ensure t
- :config
- (use-package "yasnippet-snippets"
- :ensure t)
- (yas-reload-all))
- #+end_src
+#+begin_src emacs-lisp
+ (use-package "yasnippet"
+ :ensure t
+ :config
+ (use-package "yasnippet-snippets"
+ :ensure t)
+ (yas-reload-all))
+#+end_src
** Org-mode customization
- #+begin_src emacs-lisp
- (use-package "org-bullets"
- :ensure t
- :config
- (add-hook 'org-mode-hook 'org-bullets-mode))
- #+end_src
+#+begin_src emacs-lisp
+ (use-package "org-bullets"
+ :ensure t
+ :config
+ (add-hook 'org-mode-hook 'org-bullets-mode))
+#+end_src
** diff-hl
- #+begin_src emacs-lisp
- (use-package "diff-hl"
- :ensure t
- :config
- (global-diff-hl-mode)
- (add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
- (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh))
- #+end_src
+#+begin_src emacs-lisp
+ (use-package "diff-hl"
+ :ensure t
+ :config
+ (global-diff-hl-mode)
+ (add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
+ (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh))
+#+end_src
* Helm
- fuck Ido lol
- #+begin_src emacs-lisp
- (use-package helm
- :ensure t
- :bind
- ("C-x C-f" . 'helm-find-files)
- ("C-x C-b" . 'helm-buffers-list)
- ("M-x" . 'helm-M-x)
- :config
- (setq helm-autoresize-max-height 0
- helm-autoresize-min-height 40
- helm-M-x-fuzzy-match t
- helm-buffers-fuzzy-matching t
- helm-recentf-fuzzy-match t
- helm-semantic-fuzzy-match t
- helm-imenu-fuzzy-match t
- helm-split-window-in-side-p nil
- helm-move-to-line-cycle-in-source nil
- helm-ff-search-library-in-sexp t
- helm-scroll-amount 8
- helm-echo-input-in-header-line t)
- :init
- (helm-mode 1))
+fuck Ido lol
+#+begin_src emacs-lisp
+ (use-package helm
+ :ensure t
+ :bind
+ ("C-x C-f" . 'helm-find-files)
+ ("C-x C-b" . 'helm-buffers-list)
+ ("M-x" . 'helm-M-x)
+ :config
+ (setq helm-autoresize-max-height 0
+ helm-autoresize-min-height 40
+ helm-M-x-fuzzy-match t
+ helm-buffers-fuzzy-matching t
+ helm-recentf-fuzzy-match t
+ helm-semantic-fuzzy-match t
+ helm-imenu-fuzzy-match t
+ helm-split-window-in-side-p nil
+ helm-move-to-line-cycle-in-source nil
+ helm-ff-search-library-in-sexp t
+ helm-scroll-amount 8
+ helm-echo-input-in-header-line t)
+ :init
+ (helm-mode 1))
- (require 'helm-config)
- (helm-autoresize-mode 1)
- (define-key helm-find-files-map (kbd "C-b") 'helm-find-files-up-one-level)
- (define-key helm-find-files-map (kbd "C-f") 'helm-execute-persistent-action)
- #+end_src
+ (require 'helm-config)
+ (helm-autoresize-mode 1)
+ (define-key helm-find-files-map (kbd "C-b") 'helm-find-files-up-one-level)
+ (define-key helm-find-files-map (kbd "C-f") 'helm-execute-persistent-action)
+#+end_src
* Dashboard
- Dashboard. You can change
- ~/.emacs.d/img/logo.png
- own logo instead of Lain.
- #+BEGIN_SRC emacs-lisp
- (use-package dashboard
- :ensure t
- :init
- (dashboard-setup-startup-hook)
- (setq dashboard-items '((recents . 7)
- (bookmarks . 7)))
- (setq dashboard-startup-banner 'logo)
- (setq dashboard-banner-logo-title "Welcome to Editor MACroS")
- (setq dashboard-startup-banner "~/.emacs.d/img/banner.txt")
- (setq dashboard-set-heading-icons t)
- (setq dashboard-set-file-icons t))
- #+END_SRC
+Dashboard. You can change
+~/.emacs.d/img/logo.png
+own logo instead of Lain.
+#+BEGIN_SRC emacs-lisp
+ (use-package dashboard
+ :ensure t
+ :init
+ (dashboard-setup-startup-hook)
+ (setq dashboard-items '((recents . 7)
+ (bookmarks . 7)))
+ (setq dashboard-startup-banner 'logo)
+ (setq dashboard-banner-logo-title "Welcome to Editor MACroS")
+ (setq dashboard-startup-banner "~/.emacs.d/img/banner.txt")
+ (setq dashboard-set-heading-icons t)
+ (setq dashboard-set-file-icons t))
+#+END_SRC
* Modeline
- #+begin_src emacs-lisp
- (use-package "telephone-line"
- :ensure t
- :init (telephone-line-mode 1))
+#+begin_src emacs-lisp
+ (use-package "telephone-line"
+ :ensure t
+ :init (telephone-line-mode 1))
- #+end_src
+#+end_src