From e0f721426a8e3e3c211fe0243e9e107664099738 Mon Sep 17 00:00:00 2001 From: qorg11 Date: Sun, 27 Feb 2022 14:46:07 +0100 Subject: [PATCH] Added CRUX, and personalization shit. --- config.org | 75 +++++++++++++++++++++++++++++++++++++----------------- 1 file changed, 52 insertions(+), 23 deletions(-) diff --git a/config.org b/config.org index 3c4ab21..538682c 100644 --- a/config.org +++ b/config.org @@ -81,15 +81,16 @@ Remember to run M-x all-the-icons-install-fonts after the first init to install the fonts. #+BEGIN_SRC emacs-lisp - (use-package markdown-mode - :defer 1 - :ensure t) - (use-package all-the-icons - :defer 1 - :ensure t) - (use-package which-key - :ensure t - :init (which-key-mode)) + (use-package markdown-mode + :defer 1 + :ensure t + :init(add-hook 'markdown-mode-hook 'auto-fill-mode) + (use-package all-the-icons + :defer 1 + :ensure t) + (use-package which-key + :ensure t + :init (which-key-mode)) #+END_SRC * Autoindentation C-c n for indent-buffer. I don't use the rest. @@ -118,12 +119,9 @@ it. I don't think i'd ever use the overwritten. * No idea #+BEGIN_SRC emacs-lisp (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." @@ -131,13 +129,11 @@ it. I don't think i'd ever use the overwritten. (set-frame-parameter frame 'menu-bar-lines (if (display-graphic-p frame) 1 0))) - (add-hook 'after-make-frame-functions 'contextual-menubar) (use-package zencoding-mode :ensure t :defer 1) #+END_SRC - * Programs Emacs customization, Here is where most of the configuration is. ** Pseudopersonalization @@ -145,13 +141,15 @@ The basic emacs persdonalization lol #+BEGIN_SRC emacs-lisp (tool-bar-mode -1) (menu-bar-mode -1) - (set-frame-font "Terminus 12" 12 t) + (set-frame-font "Terminus 14" 12 t) (global-hl-line-mode) (set-face-background hl-line-face "gray13") (setq-default cursor-type 'box) (blink-cursor-mode 1) (setq-default major-mode 'text-mode) (defalias 'yes-or-no-p 'y-or-n-p) + ;; Are you experienced? + (set-cursor-color "purple") #+END_SRC ** Highlight matching parentheses #+BEGIN_SRC emacs-lisp @@ -207,6 +205,7 @@ It should use your default shell by default. :init(load-theme 'alect-black t)) #+end_src ** ctrlf +So, you know, C-s in emacs sucks, so this is a repleacement for that. #+BEGIN_SRC emacs-lisp (use-package ctrlf :ensure t @@ -306,6 +305,11 @@ configuration for web-mode. Which is an improved shit for editing html documents (set-face-attribute 'web-mode-html-attr-value-face nil :foreground "Orange4") (set-face-attribute 'web-mode-html-attr-name-face nil :foreground "Yellow4")) #+end_src +Now for indent shit, so it matches the tabsize +#+begin_src emacs-lisp + (setq css-indent-offset 5) + (setq sgml-basic-offset 5) +#+end_src *** org #+begin_src emacs-lisp (setq org-ellipsis " ") @@ -315,8 +319,15 @@ configuration for web-mode. Which is an improved shit for editing html documents (setq org-export-with-smart-quotes t) (setq org-src-window-setup 'current-window) (add-hook 'org-mode-hook 'org-indent-mode) + ;; Syntax highlighting in exports + (use-package htmlize + :ensure t) + #+end_src +**** Org-agenda +>Le attention deficit destroyer +#+begin_src emacs-lisp + (setq org-agenda-files (quote ("~/Documentos/agenda.org"))) #+end_src - ** Extra functions Here I put functions I won't bother to document because they're so simple. @@ -442,7 +453,6 @@ I don't really know, it looks cool. :init (add-hook 'prog-mode-hook 'highlight-indent-guides-mode) (setq highlight-indent-guides-method 'bitmap)) #+end_src - ** Ace jump mode So you can jump to characters fast af #+begin_src emacs-lisp @@ -464,7 +474,7 @@ And same but jumping between frames #+begin_src emacs-lisp (use-package expand-region :ensure t - :bind ("C-x e" . 'er/expand-region)) + :bind ("C-c C-e" . 'er/expand-region)) #+end_src ** Beacon mode #+begin_src emacs-lisp @@ -486,7 +496,8 @@ Le language server I'm a tilling window manager user, so i know what i'm talking about. #+begin_src emacs-lisp (use-package "workgroups" - :ensure t) + :ensure t + :init(workgroups-mode)) #+end_src ** Buffers Well, you know sometimes you just want to change to the previous @@ -588,6 +599,19 @@ fuck Ido lol (define-key helm-find-files-map (kbd "C-f") 'helm-execute-persistent-action) #+end_src +* CRUX +This thing add sane shortcuts for emacs +#+begin_src emacs-lisp + (use-package "crux" + :ensure t + :bind("C-k" . 'crux-smart-kill-line) + :bind("C-c o" . 'crux-open-with) + :bind("C-c D" . 'crux-delete-buffer-and-file) + :bind("C-x C-r" . 'crux-reopen-as-root) + :bind("C-c d" . 'crux-duplicate-current-line-or-region) + :bind("C-c u" . 'crux-view-url) + :bind("C-c s" . 'crux-create-scratch-buffer)) +#+end_src * Dashboard Dashboard. You can change ~/.emacs.d/img/logo.png @@ -597,11 +621,13 @@ own logo instead of Lain. :ensure t :init (dashboard-setup-startup-hook) - (setq dashboard-items '((recents . 7) - (bookmarks . 7))) + (setq dashboard-items '( + (recents . 7) + (bookmarks . 7) + (agenda . 7))) (setq dashboard-startup-banner 'logo) (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.png") (setq dashboard-set-heading-icons t) (setq dashboard-set-file-icons t)) #+END_SRC @@ -610,7 +636,10 @@ own logo instead of Lain. #+begin_src emacs-lisp (use-package "doom-modeline" :ensure t + :config + (setq doom-modeline-lsp t) + (setq doom-modeline-indent-info t) + (setq doom-modeline-buffer-encoding t) :init (doom-modeline-mode 1)) #+end_src -