svragv/k9core
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
k9core/config.org
qorg11 2da08a1b0e
idk
2020-06-20 18:14:22 +02:00

486 lines
17 KiB
Org Mode
Raw Blame History

#+AUTHOR: qorg11
#+TITLE: emacs config
#+OPTIONS: toc:nil
* qorg's Emacs config
This is my Emacs configuration. Hope you like it.
** Installation
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
** 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
** 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.
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.
* 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/")))))
(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
(use-package markdown-mode
:ensure t)
(use-package web-mode
:ensure t)
(use-package magit
:ensure t)
(use-package all-the-icons
: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
(defun untabify-buffer ()
(interactive)
(untabify (point-min) (point-max)))
(defun indent-buffer ()
(interactive)
(indent-region (point-min) (point-max)))
(defun cleanup-buffer ()
"Perform a bunch of operations on the whitespace content of a buffer.
Including indent-buffer, which should not be called automatically on save."
(interactive)
(untabify-buffer)
(delete-trailing-whitespace)
(indent-buffer))
#+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 "C-c n") 'cleanup-buffer)
(global-set-key (kbd "M-m") 'mark-whole-buffer)
(use-package sudo-edit
:ensure t
:init
(global-set-key (kbd "C-x C-r") 'sudo-edit-find-file))
;; dd in Vim, this is here because call-cc told me.
(defun delete-shit ()
(interactive)
(move-beginning-of-line nil)
(kill-line)
(forward-line -1))
(global-set-key (kbd "M-m") 'delete-shit)
#+END_SRC
* No idea
#+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)
(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
:init
(add-hook 'sgml-mode-hook 'zencoding-mode))
(setq-default dired-details-hidden-string "---- ")
;; (icomplete-mode 1) Deprecated, used ido-mode instead
#+END_SRC
* customization
Emacs customization, Here is where most of the configuration is.
** Disable bars font and pandoc export optxions.
Basic customization. I also use smex instead of default M-x. I
don't like heml
#+BEGIN_SRC emacs-lisp
(scroll-bar-mode -1)
(tool-bar-mode -1)
(menu-bar-mode -1)
(set-frame-font "IBM Plex Mono 13" nil t)
(load-file "~/.emacs.d/markup.el")
(use-package smex
:ensure t
:init
(global-set-key (kbd "M-x") 'smex))
(setq-default major-mode 'text-mode)
#+END_SRC
*** Space to - (Like normal M-x)
#+BEGIN_SRC emacs-lisp
(defadvice smex (around space-inserts-hyphen activate compile)
(let ((ido-cannot-complete-command
`(lambda ()
(interactive)
(if (string= " " (this-command-keys))
(insert ?-)
(funcall ,ido-cannot-complete-command)))))
ad-do-it))
#+END_SRC
** Highlight matching parentheses
#+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
** Open pdf using zathura
I don't know how necessary this is. But I use it when working with
pandoc and that kind of crap.
#+BEGIN_SRC emacs-lisp
(defun open-pdf()
(interactive)
(setq file (buffer-substring (mark) (point)))
(shell-command (concat "zathura " file "&")
))
;; Borders
(set-face-attribute 'fringe nil
:foreground (face-foreground 'default)
:background (face-background 'default))
#+END_SRC
** org-mode
org-mode is a markup language which has a lot of stuff (This config
file is written in org-mode.
#+BEGIN_SRC emacs-lisp
(use-package org-bullets
:ensure t
:init
(add-hook 'org-mode-hook 'org-bullets-mode))
(setq org-hide-emphasis-markers t)
(setq org-src-window-setup 'current-window)
#+END_SRC
** Relative lines
#+BEGIN_SRC emacs-lisp
(use-package linum-relative
:ensure t
:init
(setq-default display-line-numbers-type 'relative
display-line-numbers-current-relative t
display-line-numbers-width 1
display-line-numbers-widen t)
(add-hook 'text-mode-hook #'display-line-numbers-mode)
(add-hook 'prog-mode-hook #'display-line-numbers-mode)
(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
** theme
Emacs theme, among other things.
#+BEGIN_SRC emacs-lisp
(use-package zerodark-theme
:ensure t
:init
(load-theme 'zerodark t))
#+END_SRC
Fixed to the theme, I literally copy-pasted uncle dave's this-theme fixing:
#+BEGIN_SRC emacs-lisp
(let ((class '((class color) (min-colors 89)))
(default (if (true-color-p) "#abb2bf" "#afafaf"))
(light (if (true-color-p) "#ccd4e3" "#d7d7d7"))
(background (if (true-color-p) "#282c34" "#333333"))
(background-dark (if (true-color-p) "#24282f" "#222222"))
(background-darker (if (true-color-p) "#22252c" "#222222"))
(mode-line-inactive (if "#1c2129" "#222222"))
(mode-line-active (if (true-color-p) "#6f337e" "#875f87"))
(background-lighter (if (true-color-p) "#3a3f4b" "#5f5f5f"))
(background-red (if (true-color-p) "#4c3840" "#5f5f5f"))
(bright-background-red (if (true-color-p) "#744a5b" "#744a5b"))
(background-purple (if (true-color-p) "#48384c" "#5f5f5f"))
(background-blue (if (true-color-p) "#38394c" "#444444"))
(bright-background-blue (if (true-color-p) "#4e5079" "#4e5079"))
(background-green (if (true-color-p) "#3d4a41" "#5f5f5f"))
(bright-background-green (if (true-color-p) "#3f6d54" "#3f6d54"))
(background-orange (if (true-color-p) "#4a473d" "#5f5f5f"))
(hl-line (if (true-color-p) "#2c323b" "#333333"))
(grey (if (true-color-p) "#cccccc" "#cccccc"))
(grey-dark (if (true-color-p) "#666666" "#666666"))
(highlight (if (true-color-p) "#3e4451" "#5f5f5f"))
(comment (if (true-color-p) "#687080" "#707070"))
(orange (if (true-color-p) "#da8548" "#d7875f"))
(orange-light (if (true-color-p) "#ddbd78" "#d7af87"))
(red (if (true-color-p) "#ff6c6b" "#ff5f5f"))
(purple (if (true-color-p) "#c678dd" "#d787d7"))
(purple-dark (if (true-color-p) "#64446d" "#5f5f5f"))
(blue (if (true-color-p) "#61afef" "#5fafff"))
(blue-dark (if (true-color-p) "#1f5582" "#005f87"))
(green (if (true-color-p) "#98be65" "#87af5f"))
(green-light (if (true-color-p) "#9eac8c" "#afaf87"))
(peach "PeachPuff3")
(diff-added-background (if (true-color-p) "#284437" "#284437"))
(diff-added-refined-background (if (true-color-p) "#1e8967" "#1e8967"))
(diff-removed-background (if (true-color-p) "#583333" "#580000"))
(diff-removed-refined-background (if (true-color-p) "#b33c49" "#b33c49"))
(diff-current-background (if (true-color-p) "#29457b" "#29457b"))
(diff-current-refined-background (if (true-color-p) "#4174ae" "#4174ae")))
(custom-theme-set-faces
'zerodark
`(fancy-battery-charging ((,class (:background ,background-blue :height 1.0 :bold t))))
`(fancy-battery-discharging ((,class (:background ,background-blue :height 1.0))))
`(fancy-battery-critical ((,class (:background ,background-blue :height 1.0))))
;; mode line stuff
`(mode-line ((,class (:background ,background-blue :height 1.0 :foreground ,blue
:distant-foreground ,background-blue
:box ,(when zerodark-use-paddings-in-mode-line
(list :line-width 6 :color background-blue))))))
`(mode-line-inactive ((,class (:background ,background-blue :height 1.0 :foreground ,default
:distant-foreground ,background-blue
:box ,(when zerodark-use-paddings-in-mode-line
(list :line-width 6 :color background-blue))))))
`(header-line ((,class (:inherit mode-line-inactive))))
`(powerline-active0 ((,class (:height 1.0 :foreground ,blue :background ,background-blue
:distant-foreground ,background-blue))))
`(powerline-active1 ((,class (:height 1.0 :foreground ,blue :background ,background-blue
:distant-foreground ,background-blue))))
`(powerline-active2 ((,class (:height 1.0 :foreground ,blue :background ,background-blue
:distant-foreground ,background-blue))))
`(powerline-inactive0 ((,class (:height 1.0 :foreground ,blue :background ,background-blue
:distant-foreground ,background-blue))))
`(powerline-inactive1 ((,class (:height 1.0 :foreground ,blue :background ,background-blue
distant-foreground ,background-blue))))
`(powerline-inactive2 ((,class (:height 1.0 :foreground ,blue :background ,background-blue
:distant-foreground ,background-blue))))
`(dashboard-heading-face ((,class (:background ,background :foreground ,blue
:bold t :height 1.2))))
`(dashboard-banner-logo-title-face ((,class (:background ,background :foreground ,blue
:bold t :height 1.2))))
`(widget-button ((,class (:background ,background :foreground ,default :bold nil
:underline t :height 0.9))))
;; erc stuff
`(erc-nick-default-face ((,class :foreground ,blue :background ,background :weight bold)))
;; org stuff
`(outline-1 ((,class (:foreground ,blue :weight bold :height 1.5 :bold nil))))
`(outline-2 ((,class (:foreground ,purple :weight bold :height 1.3 :bold nil))))
`(outline-3 ((,class (:foreground ,peach :weight bold :height 1.1 :bold nil))))
`(outline-4 ((,class (:foreground ,green-light :weight bold :height 1 :bold nil))))
`(outline-5 ((,class (:foreground ,blue :weight bold :height 1 :bold nil))))
`(outline-6 ((,class (:foreground ,purple :weight bold :height 1 :bold nil))))
`(outline-7 ((,class (:foreground ,peach :weight bold :height 1 :bold nil))))
`(outline-8 ((,class (:foreground ,green-light :weight bold :height 1.1 :bold nil))))
`(org-block-begin-line ((,class (:background ,background-blue :foreground ,blue
:bold t :height 1.0))))
`(org-block-end-line ((,class (:background ,background-blue :foreground ,blue
:bold t :height 1.0))))
`(org-block ((,class (:background "#111"))))))
#+END_SRC
** AucTeX
This basically opens zathura when compiling with auctex (C-c C-a)
#+BEGIN_SRC emacs-lisp
(with-eval-after-load 'tex
(setq TeX-source-correlate-method 'synctex)
(TeX-source-correlate-mode)
(setq TeX-source-correlate-start-server t)
(add-to-list 'TeX-view-program-selection
'(output-pdf "Zathura")))
#+END_SRC
** Shell
#+BEGIN_SRC emacs-lisp
(setq shell "/bin/bash")
(defadvice ansi-term (before force-bsah)
(interactive (list shell)))
(ad-activate 'ansi-term)
#+END_SRC
** Swiper
#+BEGIN_SRC emacs-lisp
(use-package swiper
:ensure t
:init
(global-set-key "\C-s" 'swiper))
#+END_SRC
** Company and Irony
Some shit for autocompletion and that kind of shit.
#+BEGIN_SRC emacs-lisp
(use-package company
: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
:ensure t
:config
(require 'company)
(add-to-list 'company-backends 'company-irony))
(use-package irony
: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
** Yasnippet
Sometimes i'm just to lazy to write.
#+BEGIN_SRC emacs-lisp
(use-package yasnippet
:ensure t
:init
(yas-global-mode 1))
(use-package yasnippet-snippets
:ensure t)
#+END_SRC
** Idk what to name this
Here I put things you can do in M-x or something idk
#+BEGIN_SRC emacs-lisp
(blink-cursor-mode 0)
#+END_SRC
** Lisp things
#+BEGIN_SRC emacs-lisp
(use-package rainbow-delimiters
:ensure t
:init
(add-hook 'emacs-lisp-mode 'rainbow-delimiters-mode))
#+END_SRC
* ido
Ido is a replacement for keybindings such as C-x C-f and C-x b. Here
I rebinded C-x C-b to ido-switch-buffer because I always press C-x
C-b instead of C-x b
#+BEGIN_SRC emacs-lisp
(use-package ido-vertical-mode
:ensure t
:init
(setq ido-enable-flex-matching nil)
(setq ido-create-new-buffer 'always)
(setq ido-everywhere t)
(ido-mode 1)
(ido-vertical-mode 1)
(setq ido-vertical-define-keys 'C-n-and-C-p-only)
(global-set-key (kbd "C-x C-b") 'ido-switch-buffer))
#+END_SRC
* Dashboard
Dashboard. You can change
~/.emacs.d/elpa/dashboard-20200306.1344/banners/logo.png to use your
own logo instead of Lain.
#+BEGIN_SRC emacs-lisp
(use-package dashboard
:ensure t
:init
(dashboard-setup-startup-hook)
(setq dashboard-items '((recents . 5)
(bookmarks . 5)))
(setq dashboard-startup-banner 'logo)
(setq dashboard-banner-logo-title "Welcome to Editor MACroS")
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t))
#+END_SRC
* Powerline
Powerline, because emacs default bar sucks
#+BEGIN_SRC emacs-lisp
(use-package powerline
:ensure t
:init
(powerline-default-theme)
(set-face-background 'mode-line
"#080c0d")
(set-face-foreground 'mode-line
"#cad5d8"))
#+
Reference in a new issue View git blame Copy permalink