k9core/config.org

emacs config

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.

(setq name "qorg11")
(setq email "qorg@vxempire.xyz")
(setq website "qorg11.net")

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.

melpa crap, and basic packages installation

melpa, where you get the packages. This also installs use-package, and other packages I use.

(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))

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.

(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))

Autoindentation

C-c n for indent-buffer. I don't use the rest.

(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))

Shorcuts

(global-set-key (kbd "C-c n") 'cleanup-buffer)
(global-set-key (kbd "M-m") 'mark-whole-buffer)

No idea

(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)
(add-hook 'sgml-mode-hook 'zencoding-mode)
(setq-default dired-details-hidden-string "---- ")

;; (icomplete-mode 1) Deprecated, used ido-mode instead

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

(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)

Space to - (Like normal M-x)

(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))

Highlight matching parentheses

(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)

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.

(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))

org-mode

org-mode is a markup language which has a lot of stuff (This config file is written in org-mode.

  (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)

Relative lines

(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))

Flycheck

Flycheck is a syntax validator or somehting like that

(use-package flycheck
:ensure t
:init
(add-hook 'after-init-hook #'global-flycheck-mode))

theme

(use-package humanoid-themes
:ensure t
:config
(load-theme 'humanoid-dark t))
(hl-line-mode)

erc

Emacs Irc Client, better than irssi and weechat.

(setq erc-nick name)
(setq erc-server website)

AucTeX

This basically opens zathura when compiling with auctex (C-c C-a)

(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")))

Shell

(setq shell "/bin/bash")
(defadvice ansi-term (before force-bsah)
(interactive (list shell)))
(ad-activate 'ansi-term)

Swiper

(use-package swiper
:ensure t
:init
(global-set-key "\C-s" 'swiper))

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

(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))

Dashboard

Dashboard. You can change ~/.emacs.d/elpa/dashboard-20200306.1344/banners/logo.png to use your own logo instead of Lain.

(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))

Powerline

Powerline, because emacs default bar sucks

(use-package powerline
:ensure t
:init
(powerline-default-theme)

  (set-face-background 'mode-line
  "#080c0d")
  (set-face-foreground 'mode-line
  "#cad5d8"))