From 47bab6f824fd2a58fd2bd8432c266f57fa5e9fa5 Mon Sep 17 00:00:00 2001
From: Grigory Shipunov <blame@oxapentane.com>
Date: Mon, 8 Jun 2020 00:55:35 +0200
Subject: [PATCH] emacs: a lot of packages removed

Most of the packages are removed since quite
unused. ivy/swiper/counsel combo is substituted by (built-in) ido and
smex. Anything from the list may come back as needed.
---
 init.el | 73 ++++++++++++++-------------------------------------------
 1 file changed, 18 insertions(+), 55 deletions(-)

diff --git a/init.el b/init.el
index 69f5396..711061d 100644
--- a/init.el
+++ b/init.el
@@ -74,9 +74,8 @@
   (setq indent-tabs-mode t))
 (defun tabs-nay () (setq indent-tabs-mode nil))
 
-;;wasteland of hooks regarding tabs behaviour
-;;Remember how it "Just worked"™ in vim?
-;;That's what you pay with for org mode
+;; wasteland of hooks regarding tabs behavior Remember how it "Just
+;; worked"™ in vim? That's what you pay with for org mode
 (add-hook 'prog-mode-hook 'tabs-yay)
 (add-hook 'lisp-mode-hook 'tabs-nay)
 (add-hook 'scheme-mode-hook 'tabs-nay)
@@ -86,7 +85,6 @@
 (setq show-paren-delay 0)
 (show-paren-mode 1)
 
-
 ;; follow symlinks to version-controlled files
 (setq vc-follow-symlinks t)
 
@@ -109,7 +107,15 @@
 (straight-use-package 'leuven-theme)
 (straight-use-package 'zenburn-theme)
 
-(load-theme 'gruvbox-dark-hard t)
+(load-theme 'leuven t)
+
+;; better M-x
+(straight-use-package 'smex)
+(smex-initialize)
+(global-set-key (kbd "M-x") 'smex)
+(global-set-key (kbd "M-X") 'smex-major-mode-commands)
+;; old M-x, just-in-case
+(global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)
 
 ;; healthy people weeks are starting on Monday
 (use-package calendar
@@ -129,34 +135,11 @@
   :mode ("\\.tex\\'" . latex-mode)
   :straight auctex
   :config
-  (setq TeX-parse-self t)
-(use-package company-auctex
-  :straight t
-  :config
-  (company-auctex-init)))
+  (setq TeX-parse-self t))
 
 (use-package latex-preview-pane
   :straight t)
 
-(use-package flycheck
-  :straight t
-  :config (global-flycheck-mode))
-
-(use-package ivy
-  :straight t
-  :demand
-  :bind (("\C-s" . swiper)
-         ("C-c C-r" . ivy-resume))
-  :init
-  (setq ivy-display-style 'fancy)
-  :config
-  (ivy-mode 1))
-
-(use-package counsel
-  :straight t
-  :config
-  (counsel-mode 1))
-
 (use-package rainbow-delimiters
   :straight t
   :hook ((emacs-lisp-mode . rainbow-delimiters-mode)
@@ -219,34 +202,11 @@
   :bind (("C-x C-g" . magit-dispatch)
          ("C-x g" . magit-status)))
 
-(use-package gnuplot-mode
-  :straight t)
-
 (use-package undo-tree
   :straight t
   :config
   (global-undo-tree-mode 1))
 
-(use-package elpy
-  :straight t
-  :after flycheck
-  :hook
-  (elpy-mode . flycheck-mode)
-  :config
-  (setq elpy-modules (delq 'elpy-module-flymake elpy-modules))
-  (elpy-enable))
-
-(use-package markdown-mode
-  :straight t
-  :mode (("README\\.md\\'" . gfm-mode)
-         ("\\.md\\'" . markdown-mode)
-         ("\\.markdown\\'" . markdown-mode))
-  :init (setq markdown-command "multimarkdown"))
-
-(use-package company
-  :straight t
-  :hook ('prog-mode . 'company-mode))
-
 ;; I positively cannot spell :D
 (use-package ispell
   :config
@@ -262,9 +222,6 @@
          ('log-edit-mode . (lambda () (flyspell-mode -1)))
          ('prog-mode . 'flyspell-prog-mode)))
 
-(use-package haskell-mode
-  :straight t)
-
 (use-package comment-tags
   :straight t
   :hook (('prog-mode . 'comment-tags-mode)
@@ -289,6 +246,12 @@
   :init
   (setq geiser-active-implementations '(racket)))
 
+(use-package ido
+  :config
+  (setq ido-enable-flex-matching t
+        ido-everywhere t)
+  (ido-mode 1))
+
 ;; throw away all the list-of-custom-shit!
 (setq custom-file "~/.emacs.d/custom.el")
 (load custom-file 'noerror)