From 5cc8b035e86a8f977ea8ace79f6c5771d238b0df Mon Sep 17 00:00:00 2001 From: Raymaekers Luca Date: Mon, 6 Nov 2023 19:08:48 +0100 Subject: removed emacs config --- config/extra/emacs/config.org | 856 ------------------------------------------ 1 file changed, 856 deletions(-) delete mode 100644 config/extra/emacs/config.org (limited to 'config/extra/emacs/config.org') diff --git a/config/extra/emacs/config.org b/config/extra/emacs/config.org deleted file mode 100644 index 2725fa1..0000000 --- a/config/extra/emacs/config.org +++ /dev/null @@ -1,856 +0,0 @@ -#+TITLE: Emacs Configuration -#+AUTHOR: TlasT -#+STARTUP: showeverything -#+OPTIONS: toc:3 - -* TABLE OF CONTENTS :toc: -- [[#startup][Startup]] - - [[#elpaca-package-manager][Elpaca (Package Manager)]] - - [[#evil-mode][Evil Mode]] - - [[#keybindings][Keybindings]] -- [[#helper-functions][Helper functions]] - - [[#buffer-move][buffer-move]] - - [[#reload-emacs][Reload Emacs]] -- [[#graphical-tweaks][Graphical tweaks]] - - [[#disable-ui-elements][Disable UI elements]] - - [[#display-line-numbers-and-truncated-lines][Display Line Numbers and Truncated Lines]] - - [[#blinking-cursor][blinking cursor]] - - [[#fonts][Fonts]] - - [[#setting-the-font-face][Setting the Font Face]] - - [[#theme][Theme]] - - [[#transparency][Transparency]] - - [[#highlight-todo][Highlight TODO]] -- [[#misc-options][Misc. options]] -- [[#org-mode][ORG Mode]] - - [[#enabling-table-of-contents][Enabling Table of Contents]] - - [[#enabling-org-bullets][Enabling Org Bullets]] -- [[#big-ass-header][Big ass header]] -- [[#shell][Shell]] - - [[#default-shell][Default shell]] - - [[#eshell][Eshell]] -- [[#language-support][Language Support]] -- [[#packages][Packages]] - - [[#dashboard][Dashboard]] - - [[#diminish][Diminish]] - - [[#dired][Dired]] - - [[#git][Git]] - - [[#ivy-counsel][Ivy (Counsel)]] - - [[#language-support-1][Language Support]] - - [[#modeline][Modeline]] - - [[#perspective][Perspective]] - - [[#projectile][Projectile]] - - [[#rainbow-mode][Rainbow Mode]] - - [[#rainbow-delimiters][Rainbow Delimiters]] - - [[#sudo-edit][Sudo edit]] - - [[#tldr][TLDR]] - - [[#which-key][Which-Key]] - -* Startup -** Elpaca (Package Manager) -#+begin_src emacs-lisp -(defvar elpaca-installer-version 0.6) -(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory)) -(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory)) -(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory)) -(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git" - :ref nil - :files (:defaults (:exclude "extensions")) - :build (:not elpaca--activate-package))) -(let* ((repo (expand-file-name "elpaca/" elpaca-repos-directory)) - (build (expand-file-name "elpaca/" elpaca-builds-directory)) - (order (cdr elpaca-order)) - (default-directory repo)) - (add-to-list 'load-path (if (file-exists-p build) build repo)) - (unless (file-exists-p repo) - (make-directory repo t) - (when (< emacs-major-version 28) (require 'subr-x)) - (condition-case-unless-debug err - (if-let ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*")) - ((zerop (call-process "git" nil buffer t "clone" - (plist-get order :repo) repo))) - ((zerop (call-process "git" nil buffer t "checkout" - (or (plist-get order :ref) "--")))) - (emacs (concat invocation-directory invocation-name)) - ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch" - "--eval" "(byte-recompile-directory \".\" 0 'force)"))) - ((require 'elpaca)) - ((elpaca-generate-autoloads "elpaca" repo))) - (kill-buffer buffer) - (error "%s" (with-current-buffer buffer (buffer-string)))) -((error) (warn "%s" err) (delete-directory repo 'recursive)))) - (unless (require 'elpaca-autoloads nil t) - (require 'elpaca) - (elpaca-generate-autoloads "elpaca" repo) - (load "./elpaca-autoloads"))) -(add-hook 'after-init-hook #'elpaca-process-queues) -(elpaca `(,@elpaca-order)) - -;; Install use-package support -(elpaca elpaca-use-package - ;; Enable :elpaca use-package keyword. - (elpaca-use-package-mode) - ;; Assume :elpaca t unless otherwise specified. - (setq elpaca-use-package-by-default t)) - -;; Block until current queue processed. -(elpaca-wait) - -;;When installing a package which modifies a form used at the top-level -;;(e.g. a package which adds a use-package key word), -;;use `elpaca-wait' to block until that package has been installed/configured. -;;For example: -;;(use-package general :demand t) -;;(elpaca-wait) - -;;Turns off elpaca-use-package-mode current declartion -;;Note this will cause the declaration to be interpreted immediately (not deferred). -;;Useful for configuring built-in emacs features. -;;(use-package emacs :elpaca nil :config (setq ring-bell-function #'ignore)) - -;; Don't install anything. Defer execution of BODY -;;(elpaca nil (message "deferred")) -#+end_src - -** Evil Mode - -#+begin_src emacs-lisp - ;; Expands to: (elpaca evil (use-package evil :demand t)) - (use-package evil - :init ;; tweak evil's configuration before loading it - (setq evil-want-integration t) ;; This is optional since it's already set to t by default. - (setq evil-want-keybinding nil) - (setq evil-vsplit-window-right t) - (setq evil-split-window-below t) - (evil-mode)) - (use-package evil-collection - :after evil - :config - (setq evil-collection-mode-list '(dashboard dired ibuffer)) - (evil-collection-init)) - (use-package evil-tutor) - ;; Using RETURN to follow links in Org/Evil - ;; Unmap keys in 'evil-maps if not done, (setq org-return-follows-link t) will not work - (with-eval-after-load 'evil-maps - (define-key evil-motion-state-map (kbd "SPC") nil) - (define-key evil-motion-state-map (kbd "RET") nil) - (define-key evil-motion-state-map (kbd "TAB") nil)) - ;; Setting RETURN key in org-mode to follow links - (setq org-return-follows-link t) - -#+end_src - -** Keybindings -#+begin_src emacs-lisp - (use-package general - :config - (general-evil-setup) - - ;; set up 'SPC' as the global leader key - (general-create-definer user/leader-keys - :states '(normal insert visual emacs) - :keymaps 'override - :prefix "SPC" ;; set leader - :global-prefix "M-SPC") ;; access leader in insert mode - - (user/leader-keys - "SPC" '(counsel-M-x :wk "Counsel M-x") - "." '(find-file :wk "Find file") - "=" '(perspective-map :wk "Perspective") ;; Lists all the perspective keybindings - "TAB TAB" '(comment-line :wk "Comment lines") - "u" '(universal-argument :wk "Univeral argument") - "s" '(universal-argument :wk "say I want to type somet") - "q" '(evil-quit :wk "quit emacs")) - - (user/leader-keys - "b" '(:ignore t :wk "Bookmarks/Buffers") - "b c" '(clone-indirect-buffer :wk "Create indirect buffer copy in a split") - "b C" '(clone-indirect-buffer-other-window :wk "Clone indirect buffer in new window") - "b d" '(bookmark-delete :wk "Delete bookmark") - "b i" '(ibuffer :wk "Ibuffer") - "b k" '(kill-this-buffer :wk "Kill this buffer") - "b K" '(kill-some-buffers :wk "Kill multiple buffers") - "b l" '(list-bookmarks :wk "List bookmarks") - "b m" '(bookmark-set :wk "Set bookmark") - "b n" '(next-buffer :wk "Next buffer") - "b p" '(previous-buffer :wk "Previous buffer") - "b r" '(revert-buffer :wk "Reload buffer") - "b R" '(rename-buffer :wk "Rename buffer") - "b s" '(basic-save-buffer :wk "Save buffer") - "b S" '(save-some-buffers :wk "Save multiple buffers") - "b w" '(bookmark-save :wk "Save current bookmarks to bookmark file")) - - (user/leader-keys - "d" '(:ignore t :wk "Dired") - "d d" '(dired :wk "Open dired") - "d j" '(dired-jump :wk "Dired jump to current") - "d p" '(peep-dired :wk "Peep-dired")) - - (user/leader-keys - "e" '(:ignore t :wk "Eshell/Evaluate/EWW") - "e b" '(eval-buffer :wk "Evaluate elisp in buffer") - "e d" '(eval-defun :wk "Evaluate defun containing or after point") - "e e" '(eval-expression :wk "Evaluate and elisp expression") - "e h" '(counsel-esh-history :which-key "Eshell history") - "e l" '(eval-last-sexp :wk "Evaluate elisp expression before point") - "e r" '(eval-region :wk "Evaluate elisp in region") - "e R" '(eww-reload :which-key "Reload current page in EWW") - "e s" '(eshell :which-key "Eshell") - "e w" '(eww :which-key "EWW emacs web wowser")) - - (user/leader-keys - "f" '(:ignore t :wk "Files") - "f c" '((lambda () (interactive) - (find-file (expand-file-name "config.org" user-emacs-directory))) - :wk "Open emacs config") - "f d" '(find-grep-dired :wk "Search for string in files in DIR") - "f e" '((lambda () (interactive) - (dired user-emacs-directory)) - :wk "Open user-emacs-directory in dired") - "f i" '((lambda () (interactive) - (find-file (expand-file-name "init.el" user-emacs-directory))) - :wk "Open emacs init.el") - "f g" '(counsel-grep-or-swiper :wk "Search for string current file") - "f j" '(counsel-file-jump :wk "Jump to a file below current directory") - "f l" '(counsel-locate :wk "Locate a file") - "f r" '(counsel-recentf :wk "Find recent files") - "f w" '(evil-write :wk "Write current buffer")) - - (user/leader-keys - "g" '(:ignore t :wk "Git") - "g /" '(magit-displatch :wk "Magit dispatch") - "g ." '(magit-file-displatch :wk "Magit file dispatch") - "g b" '(magit-branch-checkout :wk "Switch branch") - "g c" '(:ignore t :wk "Create") - "g c b" '(magit-branch-and-checkout :wk "Create branch and checkout") - "g c c" '(magit-commit-create :wk "Create commit") - "g c f" '(magit-commit-fixup :wk "Create fixup commit") - "g C" '(magit-clone :wk "Clone repo") - "g f" '(:ignore t :wk "Find") - "g f c" '(magit-show-commit :wk "Show commit") - "g f f" '(magit-find-file :wk "Magit find file") - "g f g" '(magit-find-git-config-file :wk "Find gitconfig file") - "g F" '(magit-fetch :wk "Git fetch") - "g g" '(magit-status :wk "Magit status") - "g i" '(magit-init :wk "Initialize git repo") - "g l" '(magit-log-buffer-file :wk "Magit buffer log") - "g r" '(vc-revert :wk "Git revert file") - "g s" '(magit-stage-file :wk "Git stage file") - "g t" '(git-timemachine :wk "Git time machine") - "g u" '(magit-stage-file :wk "Git unstage file")) - - (user/leader-keys - "h" '(:ignore t :wk "Help") - "h a" '(counsel-apropos :wk "Apropos") - "h b" '(describe-bindings :wk "Describe bindings") - "h c" '(describe-char :wk "Describe character under cursor") - "h d" '(:ignore t :wk "Emacs documentation") - "h d a" '(about-emacs :wk "About Emacs") - "h d d" '(view-emacs-debugging :wk "View Emacs debugging") - "h d f" '(view-emacs-FAQ :wk "View Emacs FAQ") - "h d m" '(info-emacs-manual :wk "The Emacs manual") - "h d n" '(view-emacs-news :wk "View Emacs news") - "h d o" '(describe-distribution :wk "How to obtain Emacs") - "h d p" '(view-emacs-problems :wk "View Emacs problems") - "h d t" '(view-emacs-todo :wk "View Emacs todo") - "h d w" '(describe-no-warranty :wk "Describe no warranty") - "h e" '(view-echo-area-messages :wk "View echo area messages") - "h f" '(describe-function :wk "Describe function") - "h F" '(describe-face :wk "Describe face") - "h g" '(describe-gnu-project :wk "Describe GNU Project") - "h i" '(info :wk "Info") - "h I" '(describe-input-method :wk "Describe input method") - "h k" '(describe-key :wk "Describe key") - "h l" '(view-lossage :wk "Display recent keystrokes and the commands run") - "h L" '(describe-language-environment :wk "Describe language environment") - "h m" '(describe-mode :wk "Describe mode") - "h r" '(:ignore t :wk "Reload") - "h r r" '((lambda () (interactive) - (load-file (expand-file-name "init.el" user-emacs-directory)) - (ignore (elpaca-process-queues))) - :wk "Reload emacs config") - "h t" '(load-theme :wk "Load theme") - "h v" '(describe-variable :wk "Describe variable") - "h w" '(where-is :wk "Prints keybinding for command if set") - "h x" '(describe-command :wk "Display full documentation for command")) - - (user/leader-keys - "l" '(:ignore t :wk "load") - "l t" '(load-theme :wk "load theme")) - - ;; org mode - (user/leader-keys - "m" '(:ignore t :wk "Org") - "m a" '(org-agenda :wk "Org agenda") - "m e" '(org-export-dispatch :wk "Org export dispatch") - "m i" '(org-toggle-item :wk "Org toggle item") - "m t" '(org-todo :wk "Org todo") - "m B" '(org-babel-tangle :wk "Org babel tangle") - "m T" '(org-todo-list :wk "Org todo list")) - (user/leader-keys - "m b" '(:ignore t :wk "Tables") - "m b -" '(org-table-insert-hline :wk "Insert hline in table")) - (user/leader-keys - "m d" '(:ignore t :wk "Date/deadline") - "m d t" '(org-time-stamp :wk "Org time stamp")) - - (user/leader-keys - "o" '(:ignore t :wk "Open") - "o d" '(dashboard-open :wk "Dashboard") - ;; "o e" '(elfeed :wk "Elfeed RSS") - "o f" '(make-frame :wk "Open buffer in new frame") - "o F" '(select-frame-by-name :wk "Select frame by name") - "o s" '(shell :wk "open shell")) - - (user/leader-keys - "p" '(projectile-command-map :wk "Projectile")) - - ;; FIXME: fix the error here - ;; (user/leader-keys - ;; "s" '(:ignore t :wk "Search") - ;; "s d" '(dictionary-search :wk "Search dictionary") - ;; "s m" '(man :wk "Man pages") - ;; "s t" '(tldr :wk "Lookup TLDR docs for a command") - ;; "s w" '(woman :wk "Similar to man but doesn't require man") - ;; ) - - (user/leader-keys - "t" '(:ignore t :wk "Toggle") - "t l" '(display-line-numbers-mode :wk "Toggle line numbers") - "t t" '(visual-line-mode :wk "Toggle truncated lines") - "t" '(:ignore t :wk "Toggle") - "t e" '(eshell-toggle :wk "Toggle eshell") - ;; "t f" '(flycheck-mode :wk "Toggle flycheck") - "t o" '(org-mode :wk "Toggle org mode") - "t r" '(rainbow-mode :wk "Toggle rainbow mode") - "t t" '(visual-line-mode :wk "Toggle truncated lines")) - - (user/leader-keys - "w" '(:ignore t :wk "Windows") - ;; Window splits - "w c" '(evil-window-delete :wk "Close window") - "w n" '(evil-window-new :wk "New window") - "w s" '(evil-window-split :wk "Horizontal split window") - "w v" '(evil-window-vsplit :wk "Vertical split window") - ;; Window motions - "w h" '(evil-window-left :wk "Window left") - "w j" '(evil-window-down :wk "Window down") - "w k" '(evil-window-up :wk "Window up") - "w l" '(evil-window-right :wk "Window right") - "w w" '(evil-window-next :wk "Goto next window") - ;; Move Windows - "w H" '(buf-move-left :wk "Buffer move left") - "w J" '(buf-move-down :wk "Buffer move down") - "w K" '(buf-move-up :wk "Buffer move up") - "w L" '(buf-move-right :wk "Buffer move right")) - ) - -#+end_src - -Zooming in and out -#+begin_src emacs-lisp -(global-set-key (kbd "C-=") 'text-scale-increase) -(global-set-key (kbd "C--") 'text-scale-decrease) -(global-set-key (kbd "") 'text-scale-increase) -(global-set-key (kbd "") 'text-scale-decrease) -#+end_src - - -* Helper functions -** buffer-move -Creating some functions to allow us to easily move windows (splits) around. The following block of code was taken from buffer-move.el found on the EmacsWiki: -https://www.emacswiki.org/emacs/buffer-move.el - -#+begin_src emacs-lisp -(require 'windmove) - -;;;###autoload -(defun buf-move-up () - "Swap the current buffer and the buffer above the split. -If there is no split, ie now window above the current one, an -error is signaled." -;; "Switches between the current buffer, and the buffer above the -;; split, if possible." - (interactive) - (let* ((other-win (windmove-find-other-window 'up)) - (buf-this-buf (window-buffer (selected-window)))) - (if (null other-win) - (error "No window above this one") - ;; swap top with this one - (set-window-buffer (selected-window) (window-buffer other-win)) - ;; move this one to top - (set-window-buffer other-win buf-this-buf) - (select-window other-win)))) - -;;;###autoload -(defun buf-move-down () -"Swap the current buffer and the buffer under the split. -If there is no split, ie now window under the current one, an -error is signaled." - (interactive) - (let* ((other-win (windmove-find-other-window 'down)) - (buf-this-buf (window-buffer (selected-window)))) - (if (or (null other-win) - (string-match "^ \\*Minibuf" (buffer-name (window-buffer other-win)))) - (error "No window under this one") - ;; swap top with this one - (set-window-buffer (selected-window) (window-buffer other-win)) - ;; move this one to top - (set-window-buffer other-win buf-this-buf) - (select-window other-win)))) - -;;;###autoload -(defun buf-move-left () -"Swap the current buffer and the buffer on the left of the split. -If there is no split, ie now window on the left of the current -one, an error is signaled." - (interactive) - (let* ((other-win (windmove-find-other-window 'left)) - (buf-this-buf (window-buffer (selected-window)))) - (if (null other-win) - (error "No left split") - ;; swap top with this one - (set-window-buffer (selected-window) (window-buffer other-win)) - ;; move this one to top - (set-window-buffer other-win buf-this-buf) - (select-window other-win)))) - -;;;###autoload -(defun buf-move-right () -"Swap the current buffer and the buffer on the right of the split. -If there is no split, ie now window on the right of the current -one, an error is signaled." - (interactive) - (let* ((other-win (windmove-find-other-window 'right)) - (buf-this-buf (window-buffer (selected-window)))) - (if (null other-win) - (error "No right split") - ;; swap top with this one - (set-window-buffer (selected-window) (window-buffer other-win)) - ;; move this one to top - (set-window-buffer other-win buf-this-buf) - (select-window other-win)))) -#+end_src - -** Reload Emacs -This is just an example of how to create a simple function in Emacs. Use this function to reload Emacs after adding changes to the config. Yes, I am loading the user-init-file twice in this function, which is a hack because for some reason, just loading the user-init-file once does not work properly. - -#+begin_src emacs-lisp -(defun reload-init-file () - (interactive) - (load-file user-init-file) - (load-file user-init-file)) -#+end_src - - -* Graphical tweaks -** Disable UI elements -#+begin_src emacs-lisp -(menu-bar-mode -1) -(tool-bar-mode -1) -(scroll-bar-mode -1) -#+end_src - -** Display Line Numbers and Truncated Lines -#+begin_src emacs-lisp -(global-display-line-numbers-mode 1) -(global-visual-line-mode t) -#+end_src -** blinking cursor -#+begin_src emacs-lisp - (setq blink-cursor-mode nil) -#+end_src - -** Fonts -Defining the various fonts that Emacs will use. - -** Setting the Font Face -#+begin_src emacs-lisp - (set-face-attribute 'default nil - :font "JetBrains Mono" - :height 105 - :weight 'medium) - (set-face-attribute 'variable-pitch nil - :font "Ubuntu" - :height 115 - :weight 'medium) - (set-face-attribute 'fixed-pitch nil - :font "JetBrains Mono" - :height 105 - :weight 'medium) - ;; Makes commented text and keywords italics. - ;; This is working in emacsclient but not emacs. - ;; Your font must have an italic face available. - (set-face-attribute 'font-lock-comment-face nil - :slant 'italic) - (set-face-attribute 'font-lock-keyword-face nil - :slant 'italic) - - ;; This sets the default font on all graphical frames created after restarting Emacs. - ;; Does the same thing as 'set-face-attribute default' above, but emacsclient fonts - ;; are not right unless I also add this method of setting the default font. - (add-to-list 'default-frame-alist '(font . "JetBrains Mono-11")) - - ;; Uncomment the following line if line spacing needs adjusting. - (setq-default line-spacing 0.12) - -#+end_src - -** Theme - -How to make thet theme work even in daemon mode: (https://stackoverflow.com/questions/18904529/after-emacs-deamon-i-can-not-see-new-theme-in-emacsclient-frame-it-works-fr) -#+begin_src emacs-lisp :noeval - (add-to-list 'custom-theme-load-path (expand-file-name "themes/" user-emacs-directory)) - (use-package doom-themes - :config - (setq doom-themes-enable-bold t - doom-themes-enable-italic t) - (load-theme 'doom-nord t) - (doom-themes-org-config)) -#+end_src - -** Transparency - -#+begin_src emacs-lisp - (add-to-list 'default-frame-alist '(alpha-background . 96)) -#+end_src - -** Highlight TODO -Adding highlights to TODO and related words. - -#+begin_src emacs-lisp -(use-package hl-todo - :hook ((org-mode . hl-todo-mode) - (prog-mode . hl-todo-mode)) - :config - (setq hl-todo-highlight-punctuation ":" - hl-todo-keyword-faces - `(("TODO" warning bold) - ("FIXME" error bold) - ("HACK" font-lock-constant-face bold) - ("REVIEW" font-lock-keyword-face bold) - ("NOTE" success bold) - ("DEPRECATED" font-lock-doc-face bold)))) - -#+end_src - - -* Misc. options - -#+begin_src emacs-lisp - - ;; move backup files to trash instead of same directory - (setq backup-directory-alist '((".*" . "~/.local/share/Trash/files"))) - - ;; escape minibuffer with one [escape] - (global-set-key [escape] 'keyboard-escape-quit) - - - ;; Automatically show changes if the file has changed - (global-auto-revert-mode t) - - ;; You can select text and delete it by typing. - (delete-selection-mode 1) - - ;; Turns on automatic parens pairing - (electric-pair-mode 1) - ;; The following prevents <> from auto-pairing when electric-pair-mode is on. - ;; Otherwise, org-tempo is broken when you try to