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

bump

Browse source
This commit is contained in:
qorg11 2021-06-14 01:40:07 +02:00
parent 57bbc38889
commit 11b35116bf
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
2 changed files with 257 additions and 293 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

541
config.org
View file

@ -1,9 +1,9 @@
#+AUTHOR: qorg11 #+AUTHOR: qorg11
#+TITLE: emacs config #+TITLE: emacs config
* qorg's Emacs config * qorg's Emacs config
This is my Emacs configuration. Hope you like it. This is my Emacs configuration. Hope you like it.
** Installation ** Installation
@ -21,9 +21,9 @@
Here I set variables about personal information i'll use later in Here I set variables about personal information i'll use later in
this config. this config.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq name "qorg11") (setq name "qorg11")
(setq email "qorg@vxempire.xyz") (setq email "qorg@vxempire.xyz")
(setq website "qorg11.net") (setq website "qorg11.net")
#+END_SRC #+END_SRC
** Dependencies ** Dependencies
The only no emacs related dependence in this configuration is the The only no emacs related dependence in this configuration is the
@ -40,30 +40,40 @@
** Configuration ** Configuration
Yeah, this configuration file has a configuration, ironic ha? Yeah, this configuration file has a configuration, ironic ha?
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq i-just-use-emacs-to-be-cool nil) ;; Repleace to true to use EVIL (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)
;; 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 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,
and other packages I use. 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.
@ -71,26 +81,24 @@
init to install the fonts. 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)
(use-package web-mode (use-package all-the-icons
:defer 1 :defer 1
:ensure t) :ensure t)
(use-package magit (use-package which-key
:defer 1 :ensure t
:ensure t) :init (which-key-mode))
(use-package all-the-icons
:defer 1
:ensure t)
(use-package which-key
:ensure t
: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.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq-default tab-width 5) (setq-default tab-width 5)
(defvaralias 'sgml-basic-offset 'tab-width)
(add-hook 'html-mode-hook
(lambda ()
(set-fill-column 100)))
(defun indent-buffer () (defun indent-buffer ()
(interactive) (interactive)
(save-excursion (save-excursion
@ -103,213 +111,155 @@
* Shorcuts * Shorcuts
Probably this overwrites another keybinding. But since I overwrited Probably this overwrites another keybinding. But since I overwrited
it. I don't think i'd ever use the overwritten. it. I don't think i'd ever use the overwritten.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(global-set-key (kbd "M-m") 'mark-whole-buffer) (global-set-key (kbd "M-m") 'mark-whole-buffer)
(use-package sudo-edit
:ensure t
:defer 1
:init
(global-set-key (kbd "C-x C-r") 'sudo-edit-find-file))
#+END_SRC #+END_SRC
* No idea * No idea
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq package-enable-at-startup nil) (package-initialize) (setq package-enable-at-startup nil) (package-initialize)
(setq make-backup-files nil) ; stop creating backup~ files (setq make-backup-files nil) ; stop creating backup~ files
(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
:init :init
(add-hook 'sgml-mode-hook 'zencoding-mode)) (add-hook 'sgml-mode-hook 'zencoding-mode))
#+END_SRC #+END_SRC
* custoxmization * customization
Emacs customization, Here is where most of the configuration is. Emacs customization, Here is where most of the configuration is.
** Disable bars font and pandoc export optxions. ** 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 #+BEGIN_SRC emacs-lisp
(tool-bar-mode -1)
(scroll-bar-mode -1) (menu-bar-mode -1)
(tool-bar-mode -1) (set-frame-font "Terminus 14" nil t)
(menu-bar-mode -1) (use-package smex
(set-frame-font "Terminus 17" nil t) :ensure t
(load-file "~/.emacs.d/markup.el") :init
(use-package smex (global-set-key (kbd "M-x") 'helm-M-x))
:ensure t (setq-default major-mode 'text-mode)
:init (defalias 'yes-or-no-p 'y-or-n-p)
(global-set-key (kbd "M-x") 'smex))
(setq-default major-mode 'text-mode)
#+END_SRC #+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 ** Highlight matching parentheses
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(show-paren-mode 1) (show-paren-mode 1)
(setq show-paren-style 'mixed) (setq show-paren-style 'mixed)
(setq startup/gc-cons-threshold gc-cons-threshold) (setq startup/gc-cons-threshold gc-cons-threshold)
(setq gc-cons-threshold most-positive-fixnum) (setq gc-cons-threshold most-positive-fixnum)
(defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold)) (defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold))
(add-hook 'emacs-startup-hook 'startup/reset-gc) (add-hook 'emacs-startup-hook 'startup/reset-gc)
#+END_SRC #+END_SRC
** Open pdf using zathura ** Tramp mode shit
I don't know how necessary this is. But I use it when working with #+begin_src emacs-lisp
pandoc and that kind of crap. (set-variable 'tramp-copy-size-limit 122222222222)
(set-variable 'tramp-inline-compress-start-size 12222222222222)
#+end_src
** theme
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun open-pdf() (load-theme 'cyberpunk t)
(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 #+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
(if (display-graphic-p)
(add-hook 'org-mode-hook 'org-bullets-mode))
(setq org-hide-emphasis-markers t)
(setq org-src-window-setup 'current-window))
#+END_SRC
** Theme
#+BEGIN_SRC emacs-lisp
(load-theme 'tty-dark t)
#+END_SRC
** Lines and columns ** Lines and columns
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(global-display-line-numbers-mode 1) (global-display-line-numbers-mode 1)
(setq display-line-numbers-type 'relative) (setq display-line-numbers-type 'relative)
(global-hl-line-mode 1) (global-hl-line-mode 1)
(column-number-mode 1) (column-number-mode 1)
#+END_SRC #+END_SRC
** Flycheck ** Flycheck
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
** 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 #+END_SRC
** Shell ** Shell
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq shell "/bin/bash") (setq shell "/bin/mksh")
(defadvice ansi-term (before force-bash) (defadvice ansi-term (before force-mksh)
(interactive (list shell))) (interactive (list shell)))
(ad-activate 'ansi-term) (ad-activate 'ansi-term)
#+END_SRC #+END_SRC
** Swiper ** Swiper
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package swiper (use-package swiper
:ensure t :ensure t
:defer 1 :defer 1
:init :init
(global-set-key "\C-s" 'swiper)) (global-set-key "\C-s" 'swiper))
#+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
:ensure t :defer 1
:config :ensure t
(setq company-idle-delay 0) :config
(setq company-minimum-prefix-length 3) (setq company-idle-delay 0)
(global-company-mode)) (setq company-minimum-prefix-length 3)
(with-eval-after-load 'company (global-company-mode))
(define-key company-active-map (kbd "M-n") nil) (with-eval-after-load 'company
(define-key company-active-map (kbd "M-p") nil) (define-key company-active-map (kbd "M-n") nil)
(define-key company-active-map (kbd "C-n") #'company-select-next) (define-key company-active-map (kbd "M-p") nil)
(define-key company-active-map (kbd "C-p") #'company-select-previous)) (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 (use-package company-irony
:ensure t :defer 1
:config :ensure t
(require 'company) :config
(add-to-list 'company-backends 'company-irony)) (require 'company)
(add-to-list 'company-backends 'company-irony))
(use-package irony (use-package irony
:ensure t :defer 1
:config :ensure t
(add-hook 'c-mode-hook 'irony-mode) :config
(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)) (add-hook 'c-mode-hook 'irony-mode)
(with-eval-after-load 'company (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
(add-hook 'c-mode-hook 'company-mode)) (with-eval-after-load 'company
(add-hook 'c-mode-hook 'company-mode))
#+END_SRC #+END_SRC
** Idk what to name this ** Idk what to name this
Here I put things you can do in M-x or something idk Here I put things you can do in M-x or something idk
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(blink-cursor-mode 0) (blink-cursor-mode 0)
(global-hl-line-mode 0) (global-hl-line-mode 0)
(setq-default cursor-type 'block) (setq-default cursor-type 'block)
#+END_SRC #+END_SRC
** Programming language things ** Programming language things
*** Lisp *** Lisp
Parentheses highlight in lisp modes. So you can easily identify 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))
#+END_SRC #+END_SRC
*** Perl *** Perl
Cperl-mode is better than perl-mode. You can't change my mind. Cperl-mode is better than perl-mode. You can't change my mind.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defalias 'perl-mode 'cperl-mode) (defalias 'perl-mode 'cperl-mode)
#+END_SRC #+END_SRC
*** C* *** C*
@ -317,55 +267,46 @@
minibuffer. Which is very useful since Irony works when it wants 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")
#+END_SRC #+END_SRC
** erc
Erc is an irc client that is used inside emacs.
Here I configure it.
#+BEGIN_SRC emacs-lisp
(setq erc-default-server website)
(setq erc-nick name)
#+END_SRC
Now, erc is annoying as shit for default servers. So here i define
a few functions to quickly connect to them
#+BEGIN_SRC emacs-lisp
(defun erc/freenode ()
(interactive)
(erc :server "irc.freenode.org" :nick "qorg11"))
(defun erc/rizon ()
(interactive)
(erc :server "irc.rizon.net" :nick "qorg11"))
(defun erc/kill9 ()
(interactive)
(erc :server "kill-9.xyz" :nick "qorg11"))
#+END_SRC
** Extra functions ** Extra functions
Here I put functions I won't bother to document because they're so 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 kill-inner-word () (defun kill-inner-word ()
(interactive) (interactive)
(forward-word 1) (forward-word 1)
(backward-word) (backward-word)
(kill-word 1)) (kill-word 1))
(global-set-key (kbd "M-C-k") 'kill-inner-word) (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-c k") 'kill-kill)
(global-set-key (kbd "C-k") 'kill-line)
(global-set-key (kbd "C-x -") 'comment-region)
(global-set-key (kbd "C-x +") 'uncomment-region)
#+END_SRC #+END_SRC
** Hunspell ** Hunspell
For some reason, there is no ispell spanish in void linux. so i had For some reason, there is no ispell spanish in void linux. so i had
to fallback to hunspell. which does the same. to fallback to hunspell. which does the same.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar ispell-program-name "hunspell") ;; Or whatever you use (defvar ispell-program-name "hunspell") ;; Or whatever you use
;; (ispell, aspell...) ;; (ispell, aspell...)
#+END_SRC #+END_SRC
** Dired ** Dired
@ -374,108 +315,122 @@
Hide dotfiles: 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
:ensure t
:init (dired-async-mode 1))
#+END_SRC #+END_SRC
** Highlight identation
yeah i need it lol
#+BEGIN_SRC emacs-lisp
(use-package highlight-indent-guides
:ensure t
:init
(add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
(setq highlight-indent-guides-method 'bitmap))
#+END_SRC
** 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
** Dired ** Dired
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-hook 'dired-mode-hook (add-hook 'dired-mode-hook
(lambda () (lambda ()
(dired-hide-details-mode))) (dired-hide-details-mode)))
#+END_SRC #+END_SRC
** Tabs ** Scrolling
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package centaur-tabs (setq scroll-step 1)
:demand (setq scroll-conservatively 10000)
:config (setq auto-window-vscroll nil)
(centaur-tabs-mode t) (scroll-bar-mode -1)
:bind
("C-<prior>" . centaur-tabs-backward)
("C-<next>" . centaur-tabs-forward))
(setq centaur-tabs-style "zigzag")
#+end_src #+end_src
* ido ** Sidebar
Ido is a replacement for keybindings such as C-x C-f and C-x b. Here #+BEGIN_SRC emacs-lisp
I rebinded C-x C-b to ido-switch-buffer because I always press C-x (use-package dired-sidebar
C-b instead of C-x b :ensure t
:commands (dired-sidebar-toggle-sidebar))
(global-set-key (kbd "<f8>") '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)
Since for some reason the regular ido-vertical stopped working, i (defun shell-mode-company-init ()
had to use a fork i found in github, so that's why i use (load) (setq-local company-backends '((company-shell
instead of (use-package) company-shell-env
#+BEGIN_SRC emacs-lisp company-etags
(load "~/.emacs.d/ido-vertical.el") company-dabbrev-code))))
(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)
(use-package company-shell
:ensure t
:config
(require 'company)
(add-hook 'shell-mode-hook 'shell-mode-company-init))
#+end_src
#+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))
(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
Dashboard. You can change Dashboard. You can change
~/.emacs.d/img/logo.png ~/.emacs.d/img/logo.png
own logo instead of Lain. own logo instead of Lain.
#+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 '((recents . 5) (setq dashboard-items '((recents . 7)
(bookmarks . 5))) (bookmarks . 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.txt") (setq dashboard-startup-banner "~/.emacs.d/img/banner.txt")
(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
* Line
Line, lol
#+BEGIN_SRC emacs-lisp
;;(use-package doom-modeline
;;:ensure t
;;:defer 1
;;:config
;;(doom-modeline-mode))
#+END_SRC #+END_SRC
* Screenshot
[[./screenshot.png]]
(add-hook 'prog-mode-hook 'highlight-indent-guides-mode)

9
emacs.min.el Normal file
View file

@ -0,0 +1,9 @@
(global-display-line-numbers-mode 1)
(setq display-line-numbers-type 'relative)
(column-number-mode -1)
(menu-bar-mode -1)
(setq scroll-step 1)
(setq scroll-conservatively 10000)
(setq auto-window-vscroll nil)
(setq make-backup-files nil)
(setq auto-save-default nil)