svragv/emaks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed everything to tabs

Browse source
This commit is contained in:
qorg11 2022-03-08 16:28:24 +01:00
parent 2941ec5b39
commit 66d5c1f60b
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 206 additions and 205 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

409
config.org
View file

@ -48,8 +48,8 @@ Yeah, this configuration file has a configuration, ironic ha?
;; Lower threshold back to 8 MiB (default is 800kB) ;; Lower threshold back to 8 MiB (default is 800kB)
(add-hook 'emacs-startup-hook (add-hook 'emacs-startup-hook
(lambda () (lambda ()
(setq gc-cons-threshold (expt 2 23)))) (setq gc-cons-threshold (expt 2 23))))
#+end_src #+end_src
* melpa crap, and basic packages installation * melpa crap, and basic packages installation
melpa, where you get the packages. This also installs use-package, melpa, where you get the packages. This also installs use-package,
@ -57,20 +57,20 @@ and other packages I use.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(require 'package) (require 'package)
(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos)) (let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))
(not (gnutls-available-p)))) (not (gnutls-available-p))))
(proto (if no-ssl "http" "https"))) (proto (if no-ssl "http" "https")))
;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired ;; 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" (concat proto "://melpa.org/packages/")) t)
;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t) ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t)
(when (< emacs-major-version 24) (when (< emacs-major-version 24)
;; For important compatibility libraries like cl-lib ;; For important compatibility libraries like cl-lib
(add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/"))))) (add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/")))))
(if (< emacs-major-version 27) (if (< emacs-major-version 27)
(package-initialize)) (package-initialize))
(unless (package-installed-p 'use-package) (unless (package-installed-p 'use-package)
(package-refresh-contents) (package-refresh-contents)
(package-install 'use-package)) (package-install 'use-package))
#+END_SRC #+END_SRC
** Generic packages ** Generic packages
Here I install some packages that don't need configuration. Here I install some packages that don't need configuration.
@ -79,15 +79,15 @@ init to install the fonts.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package markdown-mode (use-package markdown-mode
:defer 1 :defer 1
:ensure t :ensure t
:init(add-hook 'markdown-mode-hook 'auto-fill-mode)) :init(add-hook 'markdown-mode-hook 'auto-fill-mode))
(use-package all-the-icons (use-package all-the-icons
:defer 1 :defer 1
:ensure t) :ensure t)
(use-package which-key (use-package which-key
:ensure t :ensure t
:init (which-key-mode)) :init (which-key-mode))
#+END_SRC #+END_SRC
* Autoindentation * Autoindentation
C-c n for indent-buffer. I don't use the rest. C-c n for indent-buffer. I don't use the rest.
@ -95,12 +95,12 @@ C-c n for indent-buffer. I don't use the rest.
(setq-default tab-width 5) (setq-default tab-width 5)
(defvaralias 'sgml-basic-offset 'tab-width) (defvaralias 'sgml-basic-offset 'tab-width)
(add-hook 'html-mode-hook (add-hook 'html-mode-hook
(lambda () (lambda ()
(set-fill-column 100))) (set-fill-column 100)))
(defun indent-buffer () (defun indent-buffer ()
(interactive) (interactive)
(save-excursion (save-excursion
(indent-region (point-min) (point-max) nil))) (indent-region (point-min) (point-max) nil)))
(global-set-key (kbd "C-c n") 'indent-buffer) (global-set-key (kbd "C-c n") 'indent-buffer)
;; C bullshit ;; C bullshit
(c-set-offset 'arglist-cont-nonempty '+) (c-set-offset 'arglist-cont-nonempty '+)
@ -121,16 +121,16 @@ it. I don't think i'd ever use the overwritten.
(setq auto-save-default nil) ; stop creating #autosave# files (setq auto-save-default nil) ; stop creating #autosave# files
(put 'upcase-region 'disabled nil) (put 'upcase-region 'disabled nil)
(defun contextual-menubar (&optional frame) (defun contextual-menubar (&optional frame)
"Display the menubar in FRAME (default: selected frame) if on a "Display the menubar in FRAME (default: selected frame) if on a
graphical display, but hide it if in terminal." graphical display, but hide it if in terminal."
(interactive) (interactive)
(set-frame-parameter frame 'menu-bar-lines (set-frame-parameter frame 'menu-bar-lines
(if (display-graphic-p frame) (if (display-graphic-p frame)
1 0))) 1 0)))
(add-hook 'after-make-frame-functions 'contextual-menubar) (add-hook 'after-make-frame-functions 'contextual-menubar)
(use-package zencoding-mode (use-package zencoding-mode
:ensure t :ensure t
:defer 1) :defer 1)
#+END_SRC #+END_SRC
* Programs * Programs
Emacs customization, Here is where most of the configuration is. Emacs customization, Here is where most of the configuration is.
@ -140,15 +140,15 @@ The basic emacs persdonalization lol
(tool-bar-mode -1) (tool-bar-mode -1)
(menu-bar-mode -1) (menu-bar-mode -1)
(global-hl-line-mode) (global-hl-line-mode)
(set-face-background hl-line-face "gray13") (set-face-background hl-line-face "blue12")
(setq-default cursor-type 'box) (setq-default cursor-type 'box)
(blink-cursor-mode 1) (blink-cursor-mode 1)
(setq-default major-mode 'text-mode) (setq-default major-mode 'text-mode)
(defalias 'yes-or-no-p 'y-or-n-p) (defalias 'yes-or-no-p 'y-or-n-p)
;; Are you experienced? ;; Are you experienced?
(set-cursor-color "purple") (set-cursor-color "purple")
(set-face-background 'line-number "gray3") (set-face-background 'line-number nil)
(set-face-background 'line-number-current-line "gray13") (set-face-background 'line-number-current-line nil)
(setq-default Man-notify-method 'pushy) (setq-default Man-notify-method 'pushy)
#+END_SRC #+END_SRC
** Highlight matching parentheses ** Highlight matching parentheses
@ -176,16 +176,16 @@ The basic emacs persdonalization lol
Flycheck is a syntax validator or somehting like that Flycheck is a syntax validator or somehting like that
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package flycheck (use-package flycheck
:ensure t :ensure t
:init :init
(add-hook 'after-init-hook #'global-flycheck-mode)) (add-hook 'after-init-hook #'global-flycheck-mode))
#+END_SRC #+END_SRC
And for raku And for raku
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package flycheck-raku (use-package flycheck-raku
:ensure t :ensure t
:init :init
(add-hook 'raku-mode 'flycheck-raku-mode)) (add-hook 'raku-mode 'flycheck-raku-mode))
#+END_SRC #+END_SRC
** Terminal ** Terminal
@ -195,58 +195,58 @@ it's a price i'm willing to pay.
It should use your default shell by default. It should use your default shell by default.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package "vterm" (use-package "vterm"
:ensure t :ensure t
:bind("C-x t" . vterm)) :bind("C-x t" . vterm))
#+END_SRC #+END_SRC
** Theme ** Theme
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package alect-themes (use-package base16-theme
:ensure t :ensure t
:init(load-theme 'alect-black t)) :init(load-theme 'base16-harmonic-dark t))
(set-face-attribute 'default nil :font "IBM Plex Mono 12") (set-face-attribute 'default nil :font "IBM Plex Mono 12")
(set-frame-font "IBM Plex Mono 12") (set-frame-font "Inconsolata 14")
#+end_src #+end_src
** ctrlf ** ctrlf
So, you know, C-s in emacs sucks, so this is a repleacement for that. So, you know, C-s in emacs sucks, so this is a repleacement for that.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package ctrlf (use-package ctrlf
:ensure t :ensure t
:defer 1 :defer 1
:init :init
(ctrlf-mode +1)) (ctrlf-mode +1))
#+END_SRC #+END_SRC
** Company and Irony ** 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 #+BEGIN_SRC emacs-lisp
(use-package company (use-package company
:defer 1 :defer 1
:ensure t :ensure t
:config :config
(setq company-idle-delay 0) (setq company-idle-delay 0)
(setq company-minimum-prefix-length 3) (setq company-minimum-prefix-length 3)
(global-company-mode)) (global-company-mode))
(with-eval-after-load 'company (with-eval-after-load 'company
(define-key company-active-map (kbd "M-n") nil) (define-key company-active-map (kbd "M-n") nil)
(define-key company-active-map (kbd "M-p") 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-n") #'company-select-next)
(define-key company-active-map (kbd "C-p") #'company-select-previous)) (define-key company-active-map (kbd "C-p") #'company-select-previous))
(use-package company-irony (use-package company-irony
:defer 1 :defer 1
:ensure t :ensure t
:config :config
(require 'company) (require 'company)
(add-to-list 'company-backends 'company-irony)) (add-to-list 'company-backends 'company-irony))
(use-package irony (use-package irony
:defer 1 :defer 1
:ensure t :ensure t
:config :config
(add-hook 'c-mode-hook 'irony-mode) (add-hook 'c-mode-hook 'irony-mode)
(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)) (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
(with-eval-after-load 'company (with-eval-after-load 'company
(add-hook 'c-mode-hook 'company-mode)) (add-hook 'c-mode-hook 'company-mode))
#+END_SRC #+END_SRC
** Programming language things ** Programming language things
*** Lisp *** Lisp
@ -254,11 +254,11 @@ Parentheses highlight in lisp modes. So you can easily identify
them. them.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package rainbow-delimiters (use-package rainbow-delimiters
:ensure t :ensure t
:init :init
(add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode) (add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)
(add-hook 'lisp-mode-hook 'rainbow-delimiters-mode) (add-hook 'lisp-mode-hook 'rainbow-delimiters-mode)
(add-hook 'scheme-mode-hook 'rainbow-delimiters-mode)) (add-hook 'scheme-mode-hook 'rainbow-delimiters-mode))
(setq lisp-indent-offset 5) (setq lisp-indent-offset 5)
#+END_SRC #+END_SRC
@ -274,13 +274,13 @@ minibuffer. Which is very useful since Irony works when it wants
to. to.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package c-eldoc (use-package c-eldoc
:ensure t :ensure t
:init :init
(add-hook 'c-mode-hook 'c-turn-on-eldoc-mode)) (add-hook 'c-mode-hook 'c-turn-on-eldoc-mode))
(setq c-default-style "k&r") (setq c-default-style "k&r")
(add-hook 'c-mode-hook '(lambda () (add-hook 'c-mode-hook '(lambda ()
(lsp 1) (lsp 1)
(flycheck-select-checker 'c/c++-clang))) (flycheck-select-checker 'c/c++-clang)))
(setq c-mode-hook nil) (setq c-mode-hook nil)
#+END_SRC #+END_SRC
*** Raku *** Raku
@ -295,20 +295,20 @@ human race, but it's a necessary evil these days. So here's a little
configuration for web-mode. Which is an improved shit for editing html documents. configuration for web-mode. Which is an improved shit for editing html documents.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package web-mode (use-package web-mode
:ensure t :ensure t
:init :init
(setq web-mode-markup-indent-offset 5) (setq web-mode-markup-indent-offset 5)
(setq web-mode-indent-style nil) (setq web-mode-indent-style nil)
(setq web-mode-css-indent-offset 5) (setq web-mode-css-indent-offset 5)
(setq web-mode-code-indent-offset 5) (setq web-mode-code-indent-offset 5)
(add-to-list 'web-mode-indentation-params '("lineup-args" . nil)) (add-to-list 'web-mode-indentation-params '("lineup-args" . nil))
(add-to-list 'web-mode-indentation-params '("lineup-calls" . nil)) (add-to-list 'web-mode-indentation-params '("lineup-calls" . nil))
(add-to-list 'web-mode-indentation-params '("lineup-concats" . nil)) (add-to-list 'web-mode-indentation-params '("lineup-concats" . nil))
(add-to-list 'web-mode-indentation-params '("lineup-ternary" . nil)) (add-to-list 'web-mode-indentation-params '("lineup-ternary" . nil))
(setq web-mode-enable-current-element-highlight t) (setq web-mode-enable-current-element-highlight t)
(set-face-attribute 'web-mode-html-tag-face nil :foreground "Green3") (set-face-attribute 'web-mode-html-tag-face nil :foreground "Green3")
(set-face-attribute 'web-mode-html-attr-value-face nil :foreground "Orange4") (set-face-attribute 'web-mode-html-attr-value-face nil :foreground "Orange4")
(set-face-attribute 'web-mode-html-attr-name-face nil :foreground "Yellow4")) (set-face-attribute 'web-mode-html-attr-name-face nil :foreground "Yellow4"))
#+end_src #+end_src
Now for indent shit, so it matches the tabsize Now for indent shit, so it matches the tabsize
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -327,7 +327,7 @@ Now for indent shit, so it matches the tabsize
(add-hook 'org-mode-hook 'no-lines) (add-hook 'org-mode-hook 'no-lines)
;; Syntax highlighting in exports ;; Syntax highlighting in exports
(use-package htmlize (use-package htmlize
:ensure t) :ensure t)
#+end_src #+end_src
**** Org-agenda **** Org-agenda
>Le attention deficit destroyer >Le attention deficit destroyer
@ -339,15 +339,15 @@ Here I put functions I won't bother to document because they're so
simple. simple.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun git-pushall () (defun git-pushall ()
(interactive) (interactive)
(shell-command "git pushall")) (shell-command "git pushall"))
(defun no-lines() (defun no-lines()
(display-line-numbers-mode -1)) (display-line-numbers-mode -1))
(defun kill-inner-word () (defun kill-inner-word ()
(interactive) (interactive)
(forward-char 1) (forward-char 1)
(backward-word) (backward-word)
(kill-word 1))) (kill-word 1))
(global-set-key (kbd "M-d") 'kill-inner-word) (global-set-key (kbd "M-d") 'kill-inner-word)
(global-set-key (kbd "M-.") 'repeat) (global-set-key (kbd "M-.") 'repeat)
(global-set-key (kbd "C-x k") 'kill-buffer) (global-set-key (kbd "C-x k") 'kill-buffer)
@ -368,23 +368,23 @@ Hide dotfiles:
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package dired-hide-dotfiles (use-package dired-hide-dotfiles
:ensure t :ensure t
:init :init
(defun my-dired-mode-hook () (defun my-dired-mode-hook ()
"My `dired' mode hook." "My `dired' mode hook."
;; To hide dot-files by default ;; To hide dot-files by default
(dired-hide-dotfiles-mode) (dired-hide-dotfiles-mode)
;; To toggle hiding ;; To toggle hiding
(define-key dired-mode-map "." #'dired-hide-dotfiles-mode)) (define-key dired-mode-map "." #'dired-hide-dotfiles-mode))
(add-hook 'dired-mode-hook #'my-dired-mode-hook)) (add-hook 'dired-mode-hook #'my-dired-mode-hook))
(use-package async (use-package async
:ensure t :ensure t
:init (dired-async-mode 1)) :init (dired-async-mode 1))
(add-hook 'dired-mode-hook (add-hook 'dired-mode-hook
(lambda () (lambda ()
(dired-hide-details-mode))) (dired-hide-details-mode)))
#+END_SRC #+END_SRC
Now let's make the thing lysergic Now let's make the thing lysergic
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -396,8 +396,8 @@ Now let's make the thing lysergic
** kill ring popup ** kill ring popup
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package popup-kill-ring (use-package popup-kill-ring
:ensure t :ensure t
:bind ("M-y" . popup-kill-ring)) :bind ("M-y" . popup-kill-ring))
#+END_SRC #+END_SRC
@ -412,8 +412,8 @@ Scroll by lines rather than by pages.
** Sidebar ** Sidebar
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package dired-sidebar (use-package dired-sidebar
:ensure t :ensure t
:commands (dired-sidebar-toggle-sidebar)) :commands (dired-sidebar-toggle-sidebar))
(global-set-key (kbd "<f7>") 'dired-sidebar-toggle-sidebar) (global-set-key (kbd "<f7>") 'dired-sidebar-toggle-sidebar)
#+END_SRC #+END_SRC
** Shell ** Shell
@ -423,24 +423,24 @@ Scroll by lines rather than by pages.
(add-hook 'shell-mode-hook 'company-mode) (add-hook 'shell-mode-hook 'company-mode)
(defun shell-mode-company-init () (defun shell-mode-company-init ()
(setq-local company-backends '((company-shell (setq-local company-backends '((company-shell
company-shell-env company-shell-env
company-etags company-etags
company-dabbrev-code)))) company-dabbrev-code))))
(use-package company-shell (use-package company-shell
:ensure t :ensure t
:config :config
(require 'company) (require 'company)
(add-hook 'shell-mode-hook 'shell-mode-company-init)) (add-hook 'shell-mode-hook 'shell-mode-company-init))
#+end_src #+end_src
** Mark multiple ** Mark multiple
Multiple cursors :DD Multiple cursors :DD
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "multiple-cursors" (use-package "multiple-cursors"
:ensure t :ensure t
:bind ("C-c q" . 'mc/mark-next-like-this)) :bind ("C-c q" . 'mc/mark-next-like-this))
#+end_src #+end_src
@ -448,24 +448,24 @@ Multiple cursors :DD
I don't really know, it looks cool. I don't really know, it looks cool.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "highlight-indent-guides" (use-package "highlight-indent-guides"
:ensure t :ensure t
:defer :defer
:init (add-hook 'prog-mode-hook 'highlight-indent-guides-mode) :init (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
(setq highlight-indent-guides-method 'bitmap)) (setq highlight-indent-guides-method 'bitmap))
#+end_src #+end_src
** Ace jump mode ** Ace jump mode
So you can jump to characters fast af So you can jump to characters fast af
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "ace-jump-mode" (use-package "ace-jump-mode"
:ensure t :ensure t
:bind("C-l" . 'ace-jump-mode)) :bind("C-l" . 'ace-jump-mode))
#+end_src #+end_src
And same but jumping between frames And same but jumping between frames
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "ace-window" (use-package "ace-window"
:ensure t :ensure t
:bind("M-l" . 'ace-window) :bind("M-l" . 'ace-window)
:bind("M-o" . 'ace-delete-window)) :bind("M-o" . 'ace-delete-window))
;; Gotta remove the bad habits ;; Gotta remove the bad habits
(global-unset-key (kbd "C-x o")) (global-unset-key (kbd "C-x o"))
#+end_src #+end_src
@ -473,40 +473,40 @@ And same but jumping between frames
** Expand region ** Expand region
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package expand-region (use-package expand-region
:ensure t :ensure t
:init(global-unset-key (kbd "C-q")) :init(global-unset-key (kbd "C-q"))
(global-set-key (kbd"C-q") 'er/expand-region)) (global-set-key (kbd"C-q") 'er/expand-region))
#+end_src #+end_src
** Beacon mode ** Beacon mode
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "beacon" (use-package "beacon"
:ensure t :ensure t
:init(beacon-mode 1)) :init(beacon-mode 1))
#+end_src #+end_src
** LSP ** LSP
Le language server Le language server
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "lsp-mode" (use-package "lsp-mode"
:ensure t :ensure t
) )
(use-package "lsp-ui" (use-package "lsp-ui"
:ensure t :ensure t
:init(add-hook 'lsp-mode-hook 'lsp-ui-mode)) :init(add-hook 'lsp-mode-hook 'lsp-ui-mode))
#+end_src #+end_src
** Workspaces ** Workspaces
I'm a tilling window manager user, so i know what i'm talking about. I'm a tilling window manager user, so i know what i'm talking about.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "workgroups" (use-package "workgroups"
:ensure t :ensure t
:init(workgroups-mode)) :init(workgroups-mode))
#+end_src #+end_src
** Buffers ** Buffers
Well, you know sometimes you just want to change to the previous Well, you know sometimes you just want to change to the previous
buffer and don't want a whole interface for just pressing enter. buffer and don't want a whole interface for just pressing enter.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun switch-to-previous-buffer () (defun switch-to-previous-buffer ()
(interactive) (interactive)
(switch-to-buffer (other-buffer (current-buffer) 1))) (switch-to-buffer (other-buffer (current-buffer) 1)))
(global-set-key (kbd "C-x C-b") 'switch-to-previous-buffer) (global-set-key (kbd "C-x C-b") 'switch-to-previous-buffer)
#+end_src #+end_src
@ -525,51 +525,51 @@ Having to delete multiple whitespaces is one of the things I hate,
thankfully there's this thing. thankfully there's this thing.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "hungry-delete" (use-package "hungry-delete"
:ensure t :ensure t
:init(global-hungry-delete-mode)) :init(global-hungry-delete-mode))
#+end_src #+end_src
** Yasnippet ** Yasnippet
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "yasnippet" (use-package "yasnippet"
:ensure t :ensure t
:config :config
(use-package "yasnippet-snippets" (use-package "yasnippet-snippets"
:ensure t) :ensure t)
(yas-reload-all)) (yas-reload-all))
#+end_src #+end_src
** Org-mode customization ** Org-mode customization
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "org-bullets" (use-package "org-bullets"
:ensure t :ensure t
:config :config
(add-hook 'org-mode-hook 'org-bullets-mode)) (add-hook 'org-mode-hook 'org-bullets-mode))
(local-unset-key (kbd"C-c C-q")) (local-unset-key (kbd"C-c C-q"))
#+end_src #+end_src
** diff-hl ** diff-hl
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "diff-hl" (use-package "diff-hl"
:ensure t :ensure t
:config :config
(global-diff-hl-mode) (global-diff-hl-mode)
(add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh) (add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
(add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)) (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh))
#+end_src #+end_src
** zzz-to-char ** zzz-to-char
It's like ace-whatever but for zapping characters. It's like ace-whatever but for zapping characters.
=zap-to-char= =zap-to-char=
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package zzz-to-char (use-package zzz-to-char
:ensure t :ensure t
:bind("M-z" . 'zzz-up-to-char)) :bind("M-z" . 'zzz-up-to-char))
#+end_src #+end_src
** Helpful ** Helpful
Better \*help\* buffer Better \*help\* buffer
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package helpful (use-package helpful
:ensure t :ensure t
:bind ("C-h f". #'helpful-callable) :bind ("C-h f". #'helpful-callable)
:bind ("C-h v". #'helpful-variable) :bind ("C-h v". #'helpful-variable)
:bind ("C-h k". #'helpful-key)) :bind ("C-h k". #'helpful-key))
#+end_src #+end_src
@ -608,14 +608,14 @@ fuck Ido lol
This thing add sane shortcuts for emacs This thing add sane shortcuts for emacs
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "crux" (use-package "crux"
:ensure t :ensure t
:bind("C-k" . 'crux-smart-kill-line) :bind("C-k" . 'crux-smart-kill-line)
:bind("C-c o" . 'crux-open-with) :bind("C-c o" . 'crux-open-with)
:bind("C-c D" . 'crux-delete-buffer-and-file) :bind("C-c D" . 'crux-delete-buffer-and-file)
:bind("C-x C-r" . 'crux-reopen-as-root) :bind("C-x C-r" . 'crux-reopen-as-root)
:bind("C-x C-d" . 'crux-duplicate-current-line-or-region) :bind("C-x C-d" . 'crux-duplicate-current-line-or-region)
:bind("C-c u" . 'crux-view-url) :bind("C-c u" . 'crux-view-url)
:bind("C-c s" . 'crux-create-scratch-buffer)) :bind("C-c s" . 'crux-create-scratch-buffer))
#+end_src #+end_src
* Dashboard * Dashboard
The dashboard is a good index for your things. So it's useful to have The dashboard is a good index for your things. So it's useful to have
@ -626,39 +626,40 @@ create it in case you accidentally killed the buffer)
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun goto-dashboard () (defun goto-dashboard ()
(interactive) (interactive)
(switch-to-buffer "*dashboard*") (switch-to-buffer "*dashboard*")
;; In case it doesn't exist. ;; In case it doesn't exist.
(dashboard-mode)) (dashboard-mode))
(global-set-key (kbd "C-c C-d") 'goto-dashboard) (global-set-key (kbd "C-c C-d") 'goto-dashboard)
#+end_src #+end_src
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package dashboard (use-package dashboard
:ensure t :ensure t
:init :init
(dashboard-setup-startup-hook) (dashboard-setup-startup-hook)
(setq dashboard-items '( (setq dashboard-items '(
(recents . 7) (recents . 7)
(bookmarks . 7) (bookmarks . 7)
(agenda . 7))) (agenda . 7)))
(setq dashboard-startup-banner 'logo) (setq dashboard-startup-banner 'logo)
(setq dashboard-banner-logo-title "Welcome to Editor MACroS") (setq dashboard-banner-logo-title "Welcome to Editor MACroS")
(setq dashboard-startup-banner "~/.emacs.d/img/banner.png") (setq dashboard-startup-banner "~/.emacs.d/img/banner.png")
(setq dashboard-set-heading-icons t) (setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t)) (setq dashboard-set-file-icons t))
#+END_SRC #+END_SRC
* Modeline * Modeline
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "doom-modeline" (use-package "doom-modeline"
:ensure t :ensure t
:config :config
(setq doom-modeline-lsp t) (setq doom-modeline-lsp t)
(setq doom-modeline-indent-info t) (setq doom-modeline-indent-info t)
(setq doom-modeline-buffer-encoding t) (setq doom-modeline-buffer-encoding t)
:init (doom-modeline-mode 1)) :init (doom-modeline-mode 1))
#+end_src #+end_src