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

Fixed the entire config.org file

Browse source
This commit is contained in:
qorg11 2022-02-05 21:33:42 +01:00
parent 1fb4e10735
commit d4eb8f9885
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 175 additions and 163 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

338
config.org
View file

@ -51,8 +51,8 @@
;; 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,
@ -61,19 +61,19 @@
(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.
@ -82,14 +82,14 @@
#+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 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.
@ -97,12 +97,12 @@
(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 '+)
@ -125,32 +125,35 @@
(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
* customization * 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. ** Pseudopersonalization
The basic emacs persdonalization lol
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(tool-bar-mode -1) (tool-bar-mode -1)
(menu-bar-mode -1) (menu-bar-mode -1)
(set-frame-font "Terminus 14" nil t) (set-frame-font "Terminus 14" nil t)
(global-hl-line-mode)
(setq-default cursor-type 'box)
(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)
#+END_SRC #+END_SRC
** Highlight matching parentheses ** Highlight matching parentheses
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(show-paren-mode 1) (show-paren-mode 1)
@ -170,83 +173,78 @@
#+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)
(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))
(use-package flycheck-raku
:ensure t
:init
(add-hook 'raku-mode 'flycheck-raku-mode))
#+END_SRC #+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
** Shell ** Shell
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq shell "/bin/mksh") (setq shell "/bin/mksh")
(defadvice ansi-term (before force-mksh) (defadvice ansi-term (before force-mksh)
(interactive (list shell))) (interactive (list shell)))
(ad-activate 'ansi-term) (ad-activate 'ansi-term)
(global-set-key (kbd "<C-return>") 'ansi-term) (global-set-key (kbd "<C-return>") 'ansi-term)
#+END_SRC #+END_SRC
** Theme ** Theme
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "darktooth-theme" (use-package "darktooth-theme"
:ensure t :ensure t
:init(load-theme 'darktooth t)) :init(load-theme 'darktooth t))
#+end_src #+end_src
** Swiper ** ctrlf
#+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 1) (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
** 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)
(global-hl-line-mode 0)
(setq-default cursor-type 'box)
(blink-cursor-mode 1)
#+END_SRC #+END_SRC
** Programming language things ** Programming language things
*** Lisp *** Lisp
@ -254,17 +252,19 @@
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)
#+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)
(setq cperl-indent-level 5)
#+END_SRC #+END_SRC
*** C* *** C*
@ -273,31 +273,36 @@
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
*** Raku
#+begin_src emacs-lisp
#+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 "C-x w k") 'kill-inner-word) (global-set-key (kbd "C-x w k") 'kill-inner-word)
(defun kill-kill () (defun kill-kill ()
(interactive) (interactive)
(beginning-of-line) (beginning-of-line)
(kill-line) (kill-line)
(kill-line)) (kill-line))
(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)
(global-set-key (kbd "C-c k") 'kill-kill) (global-set-key (kbd "C-c k") 'kill-kill)
@ -321,36 +326,36 @@
#+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))
#+END_SRC #+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
@ -366,8 +371,8 @@
#+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
@ -377,69 +382,75 @@
(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
It's like multiple cursors but well done It's like multiple cursors but well done
#+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
** Highlight indent guides ** Highlight indent guides
#+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
#+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
** Expand region
#+begin_src emacs-lisp
(use-package expand-region
:ensure t
:bind ("C-c C-e" . 'er/expand-region))
#+end_src
* Helm * Helm
fuck helm lol fuck helm lol
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package helm (use-package helm
:ensure t :ensure t
:bind :bind
("C-x C-f" . 'helm-find-files) ("C-x C-f" . 'helm-find-files)
("C-x C-b" . 'helm-buffers-list) ("C-x C-b" . 'helm-buffers-list)
("M-x" . 'helm-M-x) ("M-x" . 'helm-M-x)
:config :config
(setq helm-autoresize-max-height 0 (setq helm-autoresize-max-height 0
helm-autoresize-min-height 40 helm-autoresize-min-height 40
helm-M-x-fuzzy-match t helm-M-x-fuzzy-match t
helm-buffers-fuzzy-matching t helm-buffers-fuzzy-matching t
helm-recentf-fuzzy-match t helm-recentf-fuzzy-match t
helm-semantic-fuzzy-match t helm-semantic-fuzzy-match t
helm-imenu-fuzzy-match t helm-imenu-fuzzy-match t
helm-split-window-in-side-p nil helm-split-window-in-side-p nil
helm-move-to-line-cycle-in-source nil helm-move-to-line-cycle-in-source nil
helm-ff-search-library-in-sexp t helm-ff-search-library-in-sexp t
helm-scroll-amount 8 helm-scroll-amount 8
helm-echo-input-in-header-line t) helm-echo-input-in-header-line t)
:init :init
(helm-mode 1)) (helm-mode 1))
(require 'helm-config) (require 'helm-config)
(helm-autoresize-mode 1) (helm-autoresize-mode 1)
@ -453,22 +464,23 @@
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 . 7) (setq dashboard-items '((recents . 7)
(bookmarks . 7))) (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 #+END_SRC
* Modeline * Modeline
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package "telephone-line" (use-package "telephone-line"
:ensure t :ensure t
:init (telephone-line-mode 1)) :init (telephone-line-mode 1))
#+end_src #+end_src