bump

config.org

@@ -1,9 +1,9 @@
-
 #+AUTHOR: qorg11
 #+TITLE: emacs config
 
 * qorg's Emacs config
   
+  
   This is my Emacs configuration. Hope you like it.
 
 ** Installation
@@ -44,6 +44,16 @@
 
    #+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, where you get the packages. This also installs use-package,
   and other packages I use.
@@ -74,12 +84,6 @@
 	(use-package markdown-mode
 	  :defer 1
 	  :ensure t)
-   (use-package web-mode
-   :defer 1
-   :ensure t)
-   (use-package magit
-   :defer 1
-   :ensure t)
 	(use-package all-the-icons
 	  :defer 1
 	  :ensure t)
@@ -91,6 +95,10 @@
   C-c n for indent-buffer. I don't use the rest.
   #+BEGIN_SRC emacs-lisp
     (setq-default tab-width 5)
+    (defvaralias 'sgml-basic-offset 'tab-width)
+    (add-hook 'html-mode-hook
+		    (lambda ()
+			 (set-fill-column 100)))
     (defun indent-buffer ()
 	 (interactive)
 	 (save-excursion
@@ -103,16 +111,9 @@
 * Shorcuts
   Probably this overwrites another keybinding. But since I overwrited
   it. I don't think i'd ever use the overwritten.
-
   #+BEGIN_SRC emacs-lisp
     (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
-
 * No idea
   #+BEGIN_SRC emacs-lisp
     (setq package-enable-at-startup nil) (package-initialize)
@@ -138,39 +139,20 @@
 	 (add-hook 'sgml-mode-hook 'zencoding-mode))
   #+END_SRC
 
-* custoxmization
+* customization
   Emacs customization, Here is where most of the configuration is.
 ** 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
-
-  (scroll-bar-mode -1)
 		(tool-bar-mode -1)
 		(menu-bar-mode -1)
-  (set-frame-font "Terminus 17" nil t)
+		(set-frame-font "Terminus 14" nil t)
-    (load-file "~/.emacs.d/markup.el")
 		(use-package smex
 		  :ensure t
 		  :init
-   (global-set-key (kbd "M-x") 'smex))
+		  (global-set-key (kbd "M-x") 'helm-M-x))
-
 		(setq-default major-mode 'text-mode)
+	(defalias 'yes-or-no-p 'y-or-n-p)
    #+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
    #+BEGIN_SRC emacs-lisp
 	(show-paren-mode 1)
@@ -181,44 +163,21 @@
 	(defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold))
 	(add-hook 'emacs-startup-hook 'startup/reset-gc)
    #+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
-(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
-** 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
    #+BEGIN_SRC emacs-lisp
 	(global-display-line-numbers-mode 1)
 	(setq display-line-numbers-type 'relative)
 	(global-hl-line-mode 1)
 	(column-number-mode 1)
-
    #+END_SRC
 ** Flycheck
    Flycheck is a syntax validator or somehting like that
@@ -228,21 +187,10 @@
 	  :init
 	  (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
 ** Shell
    #+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)))
 	(ad-activate 'ansi-term)
 
@@ -254,13 +202,13 @@
 	  :defer 1
 	  :init
 	  (global-set-key "\C-s" 'swiper))
-
    #+END_SRC
 ** Company and Irony
    Some shit for autocompletion and that kind of shit.
 
    #+BEGIN_SRC emacs-lisp
 	(use-package company
+	  :defer 1
 	  :ensure t
 	  :config
 	  (setq company-idle-delay 0)
@@ -273,12 +221,14 @@
 	  (define-key company-active-map (kbd "C-p") #'company-select-previous))
 
 	(use-package company-irony
+	  :defer 1
 	  :ensure t
 	  :config
 	  (require 'company)
 	  (add-to-list 'company-backends 'company-irony))
 
 	(use-package irony
+	  :defer 1
 	  :ensure t
 	  :config
 	  (add-hook 'c-mode-hook 'irony-mode)
@@ -324,27 +274,6 @@
 	 (setq c-default-style "k&r")
     #+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
    Here I put functions I won't bother to document because they're so
    simple.
@@ -358,7 +287,19 @@
 	  (forward-word 1)
 	  (backward-word)
 	  (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
 ** Hunspell
    For some reason, there is no ispell spanish in void linux. so i had
@@ -387,25 +328,17 @@
 	    (define-key dired-mode-map "." #'dired-hide-dotfiles-mode))
 
 	  (add-hook 'dired-mode-hook #'my-dired-mode-hook))
-   #+END_SRC
+
-** Highlight identation
+	(use-package async
-   yeah i need it lol
-   #+BEGIN_SRC emacs-lisp
-     (use-package highlight-indent-guides
 	  :ensure t
-         :init
+	  :init (dired-async-mode 1))
-         (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
-         (setq highlight-indent-guides-method 'bitmap))
-
    #+END_SRC
-
 ** kill ring popup
    #+BEGIN_SRC emacs-lisp
 	(use-package popup-kill-ring
 	  :ensure t
 	  :bind ("M-y" . popup-kill-ring))
 
-
    #+END_SRC
 
 ** Dired
@@ -416,37 +349,70 @@
 
    #+END_SRC
 
-** Tabs
+** Scrolling
+   
    #+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
-* ido
+** Sidebar
-  Ido is a replacement for keybindings such as C-x C-f and C-x b. Here
-  I rebinded C-x C-b to ido-switch-buffer because I always press C-x
-  C-b instead of C-x b
-
-  Since for some reason the regular ido-vertical stopped working, i
-  had to use a fork i found in github, so that's why i use (load)
-  instead of (use-package)
    #+BEGIN_SRC emacs-lisp
-  (load "~/.emacs.d/ido-vertical.el")
+	(use-package dired-sidebar
-  (setq ido-enable-flex-matching nil)
+	  :ensure t
-  (setq ido-create-new-buffer 'always)
+	  :commands (dired-sidebar-toggle-sidebar))
-  (setq ido-everywhere t)
+	(global-set-key (kbd "<f8>") 'dired-sidebar-toggle-sidebar)
-  (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)
-
-
    #+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)
+
+	 (defun shell-mode-company-init ()
+	   (setq-local company-backends '((company-shell
+								company-shell-env
+								company-etags
+								company-dabbrev-code))))
+
+	 (use-package company-shell
+	   :ensure t
+	   :config
+		(require 'company)
+		(add-hook 'shell-mode-hook 'shell-mode-company-init))
+    #+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. You can change
@@ -457,25 +423,14 @@
 	 :ensure t
 	 :init
 	 (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-banner-logo-title "Welcome to Editor MACroS")
 	 (setq dashboard-startup-banner "~/.emacs.d/img/banner.txt")
 	 (setq dashboard-set-heading-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
 
-* Screenshot
 
-  [[./screenshot.png]]
+  
-  (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)

emacs.min.el

@@ -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)