commit e9f9661e5a96260897e93f3a48d8e5e6c7808cb8
parent 6b103e87f06ab6bbe6d9a4309cba207f17f5f045
Author: Mark Feller <mjfeller1992@gmail.com>
Date: Fri, 19 Jun 2020 13:30:06 -0600
remove dead emacs modules
Diffstat:
4 files changed, 0 insertions(+), 252 deletions(-)
diff --git a/dots/.emacs.d/modules/module-god-mode.el b/dots/.emacs.d/modules/module-god-mode.el
@@ -1,41 +0,0 @@
-;;; module-god-mode.el
-
-;; Author: Mark Feller <mark.feller@member.fsf.org>
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this file. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Code:
-
-(use-package god-mode
- :bind (("<escape>" . god-mode-all)
- :map god-local-mode-map
- ("z" . repeat)
- ("i" . god-mode-all))
- :config
- (progn (defun my-update-cursor ()
- (setq cursor-type (if (or god-local-mode buffer-read-only)
- 'box
- 'bar)))
-
- (add-hook 'god-mode-enabled-hook 'my-update-cursor)
- (add-hook 'god-mode-disabled-hook 'my-update-cursor)))
-
-(provide 'module-god-mode)
-
-;;; module-god-mode.el ends here
-
diff --git a/dots/.emacs.d/modules/module-gruvbox.el b/dots/.emacs.d/modules/module-gruvbox.el
@@ -1,3 +0,0 @@
-(use-package gruvbox-theme)
-
-(provide 'module-gruvbox)
diff --git a/dots/.emacs.d/modules/module-hydra.el b/dots/.emacs.d/modules/module-hydra.el
@@ -1,84 +0,0 @@
-;; (use-package hydra
-;; :ensure t
-;; :bind (("C-c h" . hydra-apropos/body)
-;; ("M-p" . hydra-window/body)
-;; ("C-x SPC" . hydra-rectangle/body))
-;; :config
-;; (progn (defhydra hydra-goto-line (goto-map ""
-;; :pre (linum-mode 1)
-;; :post (linum-mode -1))
-;; "goto-line"
-;; ("g" goto-line "go")
-;; ("m" set-mark-command "mark" :bind nil)
-;; ("q" nil "quit"))
-
-;; (defhydra hydra-apropos (:color blue)
-;; "Apropos"
-;; ("m" man "man")
-;; ("a" apropos "apropos")
-;; ("c" apropos-command "cmd")
-;; ("d" apropos-documentation "doc")
-;; ("e" apropos-value "val")
-;; ("l" apropos-library "lib")
-;; ("o" apropos-user-option "option")
-;; ("u" apropos-user-option "option")
-;; ("v" apropos-variable "var")
-;; ("i" info-apropos "info")
-;; ("t" tags-apropos "tags")
-;; ("z" hydra-customize-apropos/body "customize"))
-
-;; (defhydra hydra-customize-apropos (:color blue)
-;; "Apropos (customize)"
-;; ("a" customize-apropos "apropos")
-;; ("f" customize-apropos-faces "faces")
-;; ("g" customize-apropos-groups "groups")
-;; ("o" customimze-apropos-options "options"))
-
-;; (defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1)
-;; :color pink
-;; :hint nil
-;; :post (deactivate-mark))
-;; "
-;; ^_k_^ _w_ copy _o_pen _N_umber-lines |\\ -,,,--,,_
-;; _h_ _l_ _y_ank _t_ype _e_xchange-point /,`.-'`' .. \-;;,_
-;; ^_j_^ _d_ kill _c_lear _r_eset-region-mark |,4- ) )_ .;.( `'-'
-;; ^^^^ _u_ndo _g_ quit ^ ^ '---''(./..)-'(_\_)
-;; "
-;; ("k" rectangle-previous-line)
-;; ("j" rectangle-next-line)
-;; ("h" rectangle-backward-char)
-;; ("l" rectangle-forward-char)
-;; ("d" kill-rectangle) ;; C-x r k
-;; ("y" yank-rectangle) ;; C-x r y
-;; ("w" copy-rectangle-as-kill) ;; C-x r M-w
-;; ("o" open-rectangle) ;; C-x r o
-;; ("t" string-rectangle) ;; C-x r t
-;; ("c" clear-rectangle) ;; C-x r c
-;; ("e" rectangle-exchange-point-and-mark) ;; C-x C-x
-;; ("N" rectangle-number-lines) ;; C-x r N
-;; ("r" (if (region-active-p)
-;; (deactivate-mark)
-;; (rectangle-mark-mode 1)))
-;; ("u" undo nil)
-;; ("g" nil)) ;; ok
-
-;; (defhydra hydra-window (:color red
-;; :columns nil)
-;; ;; "
-;; ;; ^_k_^ _r_ horiz _a_ balance _s_ swap
-;; ;; _h_ _l_ _v_ vertical _t_ transpose _q_ others
-;; ;; ^_j_^ _w_ kill _u_ undo _g_ quit"
-;; ("h" windmove-left)
-;; ("j" windmove-down)
-;; ("k" windmove-up)
-;; ("l" windmove-right)
-;; ("r" split-window-right)
-;; ("v" split-window-below)
-;; ("t" toggle-window-split)
-;; ("q" delete-other-windows :exit t)
-;; ("w" delete-window)
-;; ("a" balance-windows)
-;; ("s" ace-swap-window)
-;; ("d" ace-delete-window)
-;; ("g" nil)
-;; ("u" (progn (winner-undo) (setq this-command 'winner-undo))))))
diff --git a/dots/.emacs.d/modules/module-solarized.el b/dots/.emacs.d/modules/module-solarized.el
@@ -1,124 +0,0 @@
-;;; module-solarized.el --- solarized module for my emacs
-
-;; Author: Mark Feller <mark.feller@member.fsf.org>
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this file. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Code:
-
-(use-package solarized-theme
- :config
- (progn (setq solarized-emphasize-indicators nil
- solarized-high-contrast-mode-line nil
- solarized-scale-org-headlines nil
- solarized-use-less-bold t
- solarized-use-variable-pitch nil
- solarized-distinct-fringe-background nil)))
-
-(use-package all-the-icons
- :demand
- :init
- (progn (defun -custom-modeline-github-vc ()
- (let ((branch (mapconcat 'concat (cdr (split-string vc-mode "[:-]")) "-")))
- (concat
- (propertize (format " %s" (all-the-icons-octicon "git-branch"))
- 'face `(:height 1 :family ,(all-the-icons-octicon-family))
- 'display '(raise 0))
- (propertize (format " %s" branch))
- (propertize " "))))
-
- (defun -custom-modeline-svn-vc ()
- (let ((revision (cadr (split-string vc-mode "-"))))
- (concat
- (propertize (format " %s" (all-the-icons-faicon "cloud"))
- 'face `(:height 1)
- 'display '(raise 0))
- (propertize (format " %s" revision) 'face `(:height 0.9)))))
-
- (defvar mode-line-my-vc
- '(:propertize
- (:eval (when vc-mode
- (cond
- ((string-match "Git[:-]" vc-mode) (-custom-modeline-github-vc))
- ((string-match "SVN-" vc-mode) (-custom-modeline-svn-vc))
- (t (format "%s" vc-mode)))))
- face mode-line-directory)
- "Formats the current directory."))
- :config
- (progn
- ;; (setq-default mode-line-format
- ;; (list
- ;; evil-mode-line-tag
- ;; mode-line-front-space
- ;; mode-line-mule-info
- ;; mode-line-modified
- ;; mode-line-frame-identification
- ;; mode-line-buffer-identification
- ;; " "
- ;; mode-line-position
- ;; mode-line-my-vc
- ;; mode-line-modes))
- ;; (concat evil-mode-line-tag)
- ))
-
-
-;; (bind-keys ("C-c tl" . (lambda () (interactive) (load-theme 'solarized-light)))
-;; ("C-c td" . (lambda () (interactive) (load-theme 'solarized-dark))))
-
-(load-theme 'solarized-light)
-
-(set-face-attribute 'mode-line nil
- :background "#eee8d5"
- :foreground "#657b83"
- :box '(:line-width 4 :color "#eee8d5")
- :overline nil
- :underline nil)
-
-(set-face-attribute 'mode-line-inactive nil
- :background "#fdf6e3"
- :foreground "#93a1a1"
- :box '(:line-width 4 :color "#eee8d5")
- :overline nil
- :underline nil)
-
-(define-minor-mode minor-mode-blackout-mode
- "Hides minor modes from the mode line."
- t)
-
-(catch 'done
- (mapc (lambda (x)
- (when (and (consp x)
- (equal (cadr x) '("" minor-mode-alist)))
- (let ((original (copy-sequence x)))
- (setcar x 'minor-mode-blackout-mode)
- (setcdr x (list "" original)))
- (throw 'done t)))
- mode-line-modes))
-
-(global-set-key (kbd "C-c m") 'minor-mode-blackout-mode)
-;; ;; window dividers
-;; (window-divider-mode t)
-;; (setq window-divider-default-right-width 2)
-
-;; (set-face-attribute 'window-divider nil :foreground "#eee8d5")
-;; (set-face-attribute 'window-divider-first-pixel nil :foreground "#eee8d5")
-;; (set-face-attribute 'window-divider-last-pixel nil :foreground "#eee8d5")
-
-(provide 'module-solarized)
-
-;;; module-solarized.el ends here
