refactor: add lots of white spacing

This commit is contained in:
Flinner 2021-08-06 02:18:52 +03:00
parent 3b3fa09b53
commit c5073d4f3d
Signed by: flinner
GPG Key ID: 95CE0DA7F0E58CA6
1 changed files with 54 additions and 0 deletions

View File

@ -55,6 +55,7 @@
;; they are implemented. ;; they are implemented.
;; ;;
#+end_src #+end_src
* Global Settings * Global Settings
Place your private configuration here! Remember, you do not need to run 'doom Place your private configuration here! Remember, you do not need to run 'doom
sync' after modifying this file! sync' after modifying this file!
@ -67,10 +68,12 @@ clients, file templates and snippets.
(setq user-full-name "Serben" (setq user-full-name "Serben"
user-mail-address "serben@disroot.org") user-mail-address "serben@disroot.org")
#+end_src #+end_src
** Start as a server ** Start as a server
#+begin_src emacs-lisp #+begin_src emacs-lisp
;;(server-start) ;;(server-start)
#+end_src #+end_src
** UI ** UI
Doom exposes five (optional) variables for controlling fonts in Doom. Here Doom exposes five (optional) variables for controlling fonts in Doom. Here
@ -93,6 +96,7 @@ with the src_elisp{`load-theme'} function. This is the default src_elisp{(setq
(setq leuven-scale-outline-headlines nil) (setq leuven-scale-outline-headlines nil)
(setq doom-theme 'doom-gruvbox) (setq doom-theme 'doom-gruvbox)
#+end_src #+end_src
*** Font *** Font
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -110,15 +114,18 @@ with the src_elisp{`load-theme'} function. This is the default src_elisp{(setq
;;(setq doom-font (font-spec :family "Open Sans" :size 12 :weight 'regular) ;;(setq doom-font (font-spec :family "Open Sans" :size 12 :weight 'regular)
;;doom-variable-pitch-font (font-spec :family "sans" :size 12)) ;;doom-variable-pitch-font (font-spec :family "sans" :size 12))
#+end_src #+end_src
*** Line Numbers *** Line Numbers
#+begin_src elisp #+begin_src elisp
(setq display-line-numbers-type 't) (setq display-line-numbers-type 't)
#+end_src #+end_src
*** Neotree *** Neotree
Use Icons Use Icons
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq neo-theme (if (display-graphic-p) 'icons 'arrow)) (setq neo-theme (if (display-graphic-p) 'icons 'arrow))
#+end_src #+end_src
** KeyBinds ** KeyBinds
*** Function row <F-{1-12}> *** Function row <F-{1-12}>
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -131,16 +138,19 @@ Use Icons
:n "<f12>" 'delve-open-or-select :n "<f12>" 'delve-open-or-select
) )
#+end_src #+end_src
*** alt Leader key *** alt Leader key
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq doom-leader-alt-key "C-SPC") (setq doom-leader-alt-key "C-SPC")
(setq doom-localleader-alt-key "C-SPC m") (setq doom-localleader-alt-key "C-SPC m")
#+end_src #+end_src
*** Text Manipulation *** Text Manipulation
**** C-h as backspace **** C-h as backspace
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(map! "C-h" 'backward-delete-char-untabify) (map! "C-h" 'backward-delete-char-untabify)
#+end_src #+end_src
**** ediff init and example **** ediff init and example
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(defun doom/ediff-init-and-example () (defun doom/ediff-init-and-example ()
@ -153,15 +163,18 @@ Use Icons
"di" #'doom/ediff-init-and-example "di" #'doom/ediff-init-and-example
) )
#+end_src #+end_src
** Fill column ** Fill column
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq-default fill-column 80) (setq-default fill-column 80)
#+end_src #+end_src
** Scroll ** Scroll
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq scroll-conservatively 10) (setq scroll-conservatively 10)
(setq scroll-margin 3) (setq scroll-margin 3)
#+end_src #+end_src
* Modes * Modes
Global Mixed Pitch mode! Global Mixed Pitch mode!
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -169,6 +182,7 @@ Global Mixed Pitch mode!
(add-hook 'text-mode-hook 'blink-cursor-mode) (add-hook 'text-mode-hook 'blink-cursor-mode)
#+end_src #+end_src
* Org-Mode * Org-Mode
** ROAM ** ROAM
*** Setup *** Setup
@ -195,10 +209,12 @@ Global Mixed Pitch mode!
(org-roam-server-mode 1)) (org-roam-server-mode 1))
(browse-url-xdg-open (format "http://localhost:%d" org-roam-server-port)))) (browse-url-xdg-open (format "http://localhost:%d" org-roam-server-port))))
#+end_src #+end_src
*** Set Directory *** Set Directory
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
;; Moved to Org Directory ;; Moved to Org Directory
#+end_src #+end_src
*** Deft *** Deft
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq deft-directory "~/org/roam") (setq deft-directory "~/org/roam")
@ -206,6 +222,7 @@ Global Mixed Pitch mode!
(setq deft-recursive t) (setq deft-recursive t)
(setq deft-strip-title-regexp "\\(?:^%+\\|^#\\+TITLE: *\\|^[#* ]+\\|-\\*-[[:alpha:]]+-\\*-\\|^Title:[ ]*\\|#+$\\)") (setq deft-strip-title-regexp "\\(?:^%+\\|^#\\+TITLE: *\\|^[#* ]+\\|-\\*-[[:alpha:]]+-\\*-\\|^Title:[ ]*\\|#+$\\)")
#+end_src #+end_src
*** Dailies Template *** Dailies Template
me is Smurt me is Smurt
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -251,6 +268,7 @@ me is Smurt
:immediate-finish t)))) :immediate-finish t))))
#+end_src #+end_src
#+RESULTS: #+RESULTS:
| j | journal | entry | #'org-roam-capture--get-point | * %<%H:%M> %? | :file-name | daily/%<%Y-%m-%d> | :head | :PROPERTIES: | | j | journal | entry | #'org-roam-capture--get-point | * %<%H:%M> %? | :file-name | daily/%<%Y-%m-%d> | :head | :PROPERTIES: |
@ -271,6 +289,7 @@ me is Smurt
"RET" #'lister-key-action "RET" #'lister-key-action
"TAB" #'delve-expand-toggle-sublist "TAB" #'delve-expand-toggle-sublist
#+end_src #+end_src
*** fixes *** fixes
smartparens breaks file viewer! [[https://github.com/org-roam/org-roam-server/issues/115][org-roam/org-roam-server#115 Calling "org-roam-server-mode" throws "Wrong typ...]] smartparens breaks file viewer! [[https://github.com/org-roam/org-roam-server/issues/115][org-roam/org-roam-server#115 Calling "org-roam-server-mode" throws "Wrong typ...]]
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -287,10 +306,12 @@ smartparens breaks file viewer! [[https://github.com/org-roam/org-roam-server/is
;; (org-roam-server-mode) ;; (org-roam-server-mode)
;; (smartparens-global-mode 1)) ;; (smartparens-global-mode 1))
#+end_src #+end_src
for v2, for v2,
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq org-roam-prefer-id-links t) (setq org-roam-prefer-id-links t)
#+end_src #+end_src
** Org Directory ** Org Directory
If you use `org' and don't want your org files in the default location below, If you use `org' and don't want your org files in the default location below,
change `org-directory'. It must be set before org loads!, end it with a slash "/" change `org-directory'. It must be set before org loads!, end it with a slash "/"
@ -304,6 +325,7 @@ change `org-directory'. It must be set before org loads!, end it with a slash "/
(setq org-roam-goals-file (concat org-roam-directory "goals.org")) (setq org-roam-goals-file (concat org-roam-directory "goals.org"))
#+end_src #+end_src
** Agenda ** Agenda
*** custom commands [Inactive] *** custom commands [Inactive]
#+begin_src elisp :tangle no #+begin_src elisp :tangle no
@ -321,6 +343,7 @@ change `org-directory'. It must be set before org loads!, end it with a slash "/
'(or (org-agenda-skip-entry-if 'done))) '(or (org-agenda-skip-entry-if 'done)))
(org-agenda-overriding-header "Tasks:"))))))) (org-agenda-overriding-header "Tasks:")))))))
#+end_src #+end_src
*** Org super agenda mode *** Org super agenda mode
[[https://github.com/alphapapa/org-super-agenda][Documentation]] [[https://github.com/alphapapa/org-super-agenda][Documentation]]
This is the raw example This is the raw example
@ -410,20 +433,24 @@ This is the raw example
:config :config
(org-super-agenda-mode)) (org-super-agenda-mode))
#+end_src #+end_src
*** UI *** UI
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(add-hook 'org-agenda-mode-hook 'elegant-agenda-mode) (add-hook 'org-agenda-mode-hook 'elegant-agenda-mode)
#+end_src #+end_src
*** fixes *** fixes
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(with-eval-after-load 'org-agenda (with-eval-after-load 'org-agenda
(define-key org-super-agenda-header-map "j" nil) (define-key org-super-agenda-header-map "j" nil)
(define-key org-super-agenda-header-map "k" nil)) (define-key org-super-agenda-header-map "k" nil))
#+end_src #+end_src
save before quiting! save before quiting!
#+begin_src elisp #+begin_src elisp
(advice-add 'org-agenda-quit :before 'org-save-all-org-buffers) (advice-add 'org-agenda-quit :before 'org-save-all-org-buffers)
#+end_src #+end_src
** Org-Latex ** Org-Latex
*** Latex Image Preview options *** Latex Image Preview options
#+begin_src elisp :tangle no #+begin_src elisp :tangle no
@ -433,10 +460,12 @@ save before quiting!
("begin" "$1" "$" "$$" "\\(" "\\[")))) ("begin" "$1" "$" "$$" "\\(" "\\["))))
(set-default 'preview-scale-function 0.2) (set-default 'preview-scale-function 0.2)
#+end_src #+end_src
Imagemagick since dvipng can't handle tikz \LaTeX Imagemagick since dvipng can't handle tikz \LaTeX
#+begin_src elisp :tangle no #+begin_src elisp :tangle no
(setq org-latex-create-formula-image-program 'imagemagick) (setq org-latex-create-formula-image-program 'imagemagick)
#+end_src #+end_src
*** Update Latex Fragments with font change *** Update Latex Fragments with font change
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(add-hook 'org-mode-hook 'turn-on-auto-fill) (add-hook 'org-mode-hook 'turn-on-auto-fill)
@ -446,15 +475,18 @@ Imagemagick since dvipng can't handle tikz \LaTeX
(org-latex-preview '(16))) (org-latex-preview '(16)))
(add-hook 'text-scale-mode-hook 'update-org-latex-fragments) (add-hook 'text-scale-mode-hook 'update-org-latex-fragments)
#+end_src #+end_src
*** Tikz Preview *** Tikz Preview
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(eval-after-load "preview" (eval-after-load "preview"
'(add-to-list 'preview-default-preamble "\\PreviewEnvironment{tikzpicture}" t)) '(add-to-list 'preview-default-preamble "\\PreviewEnvironment{tikzpicture}" t))
#+end_src #+end_src
*** nice to be able to use cdlatex. *** nice to be able to use cdlatex.
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(after! org (add-hook 'org-mode-hook 'turn-on-org-cdlatex)) (after! org (add-hook 'org-mode-hook 'turn-on-org-cdlatex))
#+end_src #+end_src
*** Now, by default, LSPs dont really function at all in src blocks. *** Now, by default, LSPs dont really function at all in src blocks.
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(cl-defmacro lsp-org-babel-enable (lang) (cl-defmacro lsp-org-babel-enable (lang)
@ -486,6 +518,7 @@ Imagemagick since dvipng can't handle tikz \LaTeX
(dolist (lang org-babel-lang-list) (dolist (lang org-babel-lang-list)
(eval `(lsp-org-babel-enable ,lang))) (eval `(lsp-org-babel-enable ,lang)))
#+end_src #+end_src
** Capture templates ** Capture templates
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(after! org (after! org
@ -559,25 +592,30 @@ Imagemagick since dvipng can't handle tikz \LaTeX
))) )))
#+end_src #+end_src
** Modes ** Modes
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
;;(add-hook 'org-mode-hook #'mixed-pitch-mode) ;;(add-hook 'org-mode-hook #'mixed-pitch-mode)
(setq geiser-default-implementation 'guile) (setq geiser-default-implementation 'guile)
#+end_src #+end_src
*** ditaa *** ditaa
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq org-ditaa-jar-path "/usr/share/java/ditaa/ditaa-0.11.jar") (setq org-ditaa-jar-path "/usr/share/java/ditaa/ditaa-0.11.jar")
#+end_src #+end_src
*** Mixed pitch mode *** Mixed pitch mode
#+begin_src emacs-lisp :tangle yes #+begin_src emacs-lisp :tangle yes
(add-hook 'markdown-mode-hook 'mixed-pitch-mode) (add-hook 'markdown-mode-hook 'mixed-pitch-mode)
(add-hook 'org-mode-hook 'mixed-pitch-mode) (add-hook 'org-mode-hook 'mixed-pitch-mode)
#+end_src #+end_src
** UI ** UI
*** hide the emphasis markup (e.g. /.../ for italics, *...* for bold, etc.): *** hide the emphasis markup (e.g. /.../ for italics, *...* for bold, etc.):
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq org-hide-emphasis-markers t) (setq org-hide-emphasis-markers t)
#+end_src #+end_src
*** Fonts *** Fonts
#+begin_src elisp :tangle no #+begin_src elisp :tangle no
(let* ((variable-tuple (let* ((variable-tuple
@ -601,6 +639,7 @@ Imagemagick since dvipng can't handle tikz \LaTeX
`(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75)))) `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
`(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil)))))) `(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil))))))
#+end_src #+end_src
*** Image preview from urls *** Image preview from urls
#+begin_src elisp :tangle no #+begin_src elisp :tangle no
(defun org-image-link (protocol link _description) (defun org-image-link (protocol link _description)
@ -623,12 +662,14 @@ Imagemagick since dvipng can't handle tikz \LaTeX
"imghttps" "imghttps"
:image-data-fun #'org-image-link) :image-data-fun #'org-image-link)
#+end_src #+end_src
*** align tags *** align tags
aligning tags misses up with capture templates aligning tags misses up with capture templates
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
;(after! org (setq org-tags-column 60)) ;(after! org (setq org-tags-column 60))
#+end_src #+end_src
* Elfeed * Elfeed
** Setup ** Setup
*** Use Filter: *** Use Filter:
@ -636,6 +677,7 @@ aligning tags misses up with capture templates
(setq-default elfeed-search-filter "@1-week-ago") (setq-default elfeed-search-filter "@1-week-ago")
#+end_src #+end_src
*** Source of Feeds *** Source of Feeds
Takes feeds from Org-File Takes feeds from Org-File
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -643,6 +685,7 @@ Takes feeds from Org-File
(setq rmh-elfeed-org-files (list (concat org-roam-directory "elfeed.org"))) (setq rmh-elfeed-org-files (list (concat org-roam-directory "elfeed.org")))
#+end_src #+end_src
*** Refresh Feed *** Refresh Feed
Set up the url-queue variables for swift and complete operation. The Set up the url-queue variables for swift and complete operation. The
defaults are too bad. Especially /url-queue-timeout/ is way too short defaults are too bad. Especially /url-queue-timeout/ is way too short
@ -651,6 +694,7 @@ for loading feeds.
(setf url-queue-parallel-processes 20 (setf url-queue-parallel-processes 20
url-queue-timeout 10) url-queue-timeout 10)
#+end_src #+end_src
** Key Maps ** Key Maps
| KeyBinds | Usage | | KeyBinds | Usage |
|----------+----------------| |----------+----------------|
@ -679,6 +723,7 @@ Search examples: `@1-week-ago +videos -linux` (+/- are used to filter tags)
)) ))
#+end_src #+end_src
** Utils ** Utils
*** elfeed-close-prev-buffer *** elfeed-close-prev-buffer
Closing elfeed forwards to prev buffer Closing elfeed forwards to prev buffer
@ -690,6 +735,7 @@ Closing elfeed forwards to prev buffer
(previous-buffer)) (previous-buffer))
#+end_src #+end_src
*** elfeed-view-mpv *** elfeed-view-mpv
(add-hook 'LaTeX-mode-hook (lambda () (yas-minor-mode -1))) (add-hook 'LaTeX-mode-hook (lambda () (yas-minor-mode -1)))
(add-hook 'LaTeX-mode-hook #'auto-fill-mode) (add-hook 'LaTeX-mode-hook #'auto-fill-mode)
@ -719,19 +765,23 @@ Run video in mpv
(mapc #'elfeed-search-update-entry entries) (mapc #'elfeed-search-update-entry entries)
(unless (use-region-p) (forward-line)))) (unless (use-region-p) (forward-line))))
#+end_src #+end_src
** Modes ** Modes
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
;;(add-hook 'elfeed-show-mode-hook #'mixed-pitch-mode) ;;(add-hook 'elfeed-show-mode-hook #'mixed-pitch-mode)
#+end_src #+end_src
* Languages * Languages
** Rust ** Rust
Fix "waiting blocking file" Fix "waiting blocking file"
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq lsp-rust-target "/tmp/rust-crap") (setq lsp-rust-target "/tmp/rust-crap")
#+end_src #+end_src
** nand2tetris ** nand2tetris
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
#+end_src #+end_src
* IRC * IRC
Include The Irc stuff Include The Irc stuff
##+INCLUDE: "~/Documents/org-roam/internet/irc.org" ##+INCLUDE: "~/Documents/org-roam/internet/irc.org"
@ -754,6 +804,7 @@ Include The Irc stuff
:sasl-password (lambda (&rest _) (+pass-get-secret "irc/example.net")) :sasl-password (lambda (&rest _) (+pass-get-secret "irc/example.net"))
:channels ("#emacs"))) :channels ("#emacs")))
#+end_src #+end_src
* Telega * Telega
k conflicts with evil up k conflicts with evil up
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
@ -762,16 +813,19 @@ k conflicts with evil up
(define-key telega-msg-button-map "l" nil)) (define-key telega-msg-button-map "l" nil))
(setq telega-chat-bidi-display-reordering 'right-to-left) (setq telega-chat-bidi-display-reordering 'right-to-left)
#+end_src #+end_src
* Company mode * Company mode
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(setq company-idle-delay 0.0 (setq company-idle-delay 0.0
company-minimum-prefix-length 1) company-minimum-prefix-length 1)
#+end_src #+end_src
* Ranger * Ranger
replace dired replace dired
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes
(ranger-override-dired-mode t) (ranger-override-dired-mode t)
#+end_src #+end_src
* Fixes * Fixes
In case of Emacs28, In case of Emacs28,
#+begin_src elisp :tangle yes #+begin_src elisp :tangle yes