From 8c11b417a373d4a8eb7a4b3772ebf956e825edfc Mon Sep 17 00:00:00 2001 From: Grant Hunter Date: Mon, 25 Nov 2019 09:37:12 -0700 Subject: [PATCH] remove old emacs --- emacs/init.el | 32 ------- emacs/super-emacs/file-modes.el | 12 --- emacs/super-emacs/interface.el | 31 ------- emacs/super-emacs/key-bindings.el | 46 ---------- emacs/super-emacs/misc.el | 97 -------------------- emacs/super-emacs/packages.el | 142 ------------------------------ emacs/super-emacs/repositories.el | 10 --- 7 files changed, 370 deletions(-) delete mode 100644 emacs/init.el delete mode 100644 emacs/super-emacs/file-modes.el delete mode 100644 emacs/super-emacs/interface.el delete mode 100644 emacs/super-emacs/key-bindings.el delete mode 100644 emacs/super-emacs/misc.el delete mode 100644 emacs/super-emacs/packages.el delete mode 100644 emacs/super-emacs/repositories.el diff --git a/emacs/init.el b/emacs/init.el deleted file mode 100644 index fbfc09e..0000000 --- a/emacs/init.el +++ /dev/null @@ -1,32 +0,0 @@ -;Record startup timestamp - -;; Added by Package.el. This must come before configurations of -;; installed packages. Don't delete this line. If you don't want it, -;; just comment it out by adding a semicolon to the start of the line. -;; You may delete these explanatory comments. -(package-initialize) - -(defvar super-emacs/invokation-time - (current-time)) - -;Load configuration files -(load-file "~/.emacs.d/super-emacs/repositories.el") -(load-file "~/.emacs.d/super-emacs/packages.el") -(load-file "~/.emacs.d/super-emacs/interface.el") -(load-file "~/.emacs.d/super-emacs/misc.el") -(load-file "~/.emacs.d/super-emacs/key-bindings.el") -(load-file "~/.emacs.d/super-emacs/file-modes.el") -(custom-set-variables - ;; custom-set-variables was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - '(package-selected-packages - (quote - (csharp-mode dired-dups swift-mode highlight-indent-guides rainbow-delimiters vue-mode multi-web-mode web-mode quack elpy importmagic py-autopep8 flycheck excorporate ivy nginx-mode helm-projectile projectile json-mode jinja2-mode company-terraform terraform-mode yaml-mode company racer rust-mode magit theme-looper myterminal-controls meta-presenter which-key dired-launch material-theme neotree undo-tree ztree buffer-move powerline ace-window ace-jump-mode multiple-cursors helm)))) -(custom-set-faces - ;; custom-set-faces was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - '(default ((t (:height 120))))) diff --git a/emacs/super-emacs/file-modes.el b/emacs/super-emacs/file-modes.el deleted file mode 100644 index 5500c35..0000000 --- a/emacs/super-emacs/file-modes.el +++ /dev/null @@ -1,12 +0,0 @@ -(setq auto-mode-alist (append '(("\\.sls$" . yaml-mode)) - auto-mode-alist)) - - - - - -(setq lisp-body-indent 2) - -;cc mode -(setq c-default-style "linux" - c-basic-offset 4) diff --git a/emacs/super-emacs/interface.el b/emacs/super-emacs/interface.el deleted file mode 100644 index 5e8b5d2..0000000 --- a/emacs/super-emacs/interface.el +++ /dev/null @@ -1,31 +0,0 @@ -;Change title-bar text -(setq frame-title-format - "%F %b ") - -;Disable menu-bar -(menu-bar-mode -1) - -;Disable tool-bar -(tool-bar-mode -1) - -;Disable scroll-bar -(scroll-bar-mode -1) - -;Activate material theme -(load-theme 'material - t) - -;Set font -(custom-set-faces - '(default ((t (:height 120))))) - -;line numbers -(global-linum-mode) - - ;; ITERM2 MOUSE SUPPORT -(unless window-system - (require 'mouse) - (xterm-mouse-mode t) - (defun track-mouse (e)) - (setq mouse-sel-mode t) - ) diff --git a/emacs/super-emacs/key-bindings.el b/emacs/super-emacs/key-bindings.el deleted file mode 100644 index 73ff2c5..0000000 --- a/emacs/super-emacs/key-bindings.el +++ /dev/null @@ -1,46 +0,0 @@ -(defvar super-emacs--my-keyboard-bindings - '(("C-}" . mc/mark-next-like-this) - ("C-{" . mc/mark-previous-like-this) - ("C-|" . mc/mark-all-like-this) - ("C->" . ace-jump-mode) - ("C-<" . ace-jump-mode-pop-mark) - ("M-/" . undo-tree-visualize) - ("C-\," . neotree-toggle) - ("C-\"" . theme-looper-enable-next-theme) - ("C-M-'" . myterminal-controls-open-controls) - ("C-c M-x" . execute-extended-command) - ("M-x" . helm-M-x) - ("C-x b" . helm-mini) - ("C-x C-b" . helm-buffers-list) - ("C-x C-f" . helm-find-files) - ("C-x C-r" . helm-recentf) - ("C-c p h" . helm-projectile) - ("M-y" . helm-show-kill-ring) - ("C-;" . ace-window) - ("C-S-" . buf-move-up) - ("C-S-" . buf-move-down) - ("C-S-" . buf-move-left) - ("C-S-" . buf-move-right) - ("" . super-emacs-reload-current-file) - ("C--" . undo) - ("C-x p" . previous-multiframe-window) - ("s--" . text-scale-decrease) - ("s-=" . text-scale-increase) - ("C-c m" . magit-status) - ("C-c g" . helm-projectile-grep) - ("C-S-s" . helm-occur) - ("C-c b" . helm-semantic-or-imenu) - ("C-c j" . helm-all-mark-rings) - )) - -(defun super-emacs-apply-keyboard-bindings (pair) - "Apply keyboard-bindings for supplied list of key-pair values" - (global-set-key (kbd (car pair)) - (cdr pair))) - -(mapc 'super-emacs-apply-keyboard-bindings - super-emacs--my-keyboard-bindings) - -(add-hook 'python-mode-hook (lambda () - (local-set-key (kbd "C-c i") (lambda () (interactive) ( - insert "import pdb; pdb.set_trace()"))))) diff --git a/emacs/super-emacs/misc.el b/emacs/super-emacs/misc.el deleted file mode 100644 index 0fd1d80..0000000 --- a/emacs/super-emacs/misc.el +++ /dev/null @@ -1,97 +0,0 @@ -(defun super-emacs-reload-current-file () - "Reload the file loaded in current buffer from the disk" - (interactive) - (cond (buffer-file-name (progn (find-alternate-file buffer-file-name) - (message "File reloaded"))) - (t (message "You're not editing a file!")))) - -;Disable splash message, start *scratch* buffer by default -(setq inhibit-startup-screen t - initial-buffer-choice nil) -(setq initial-scratch-message - "") - -;Enforce spaces for indentation, instead of tabs -(setq-default indent-tabs-mode - nil) - -;Enable show-paren-mode -(show-paren-mode) - -;Enable whitespace mode -(global-whitespace-mode) - (setq whitespace-line-column 500) - -(add-hook 'before-save-hook 'delete-trailing-whitespace) -;Enable winner-mode -(winner-mode t) - -;Enable windmove -(windmove-default-keybindings) - -;;keep search highlight -(setq lazy-highlight-cleanup nil) - -;turn off bell - (setq ring-bell-function 'ignore) - - -;;cleanup buffers - -(require 'midnight) - -;;kill buffers if they were last disabled more than this seconds ago -(setq clean-buffer-list-delay-special 900) - -(defvar clean-buffer-list-timer nil - "Stores clean-buffer-list timer if there is one. You can disable clean-buffer-list by (cancel-timer clean-buffer-list-timer).") - -;; run clean-buffer-list every 2 hours -(setq clean-buffer-list-timer (run-at-time t 7200 'clean-buffer-list)) - -;; kill everything, clean-buffer-list is very intelligent at not killing -;; unsaved buffer. -(setq clean-buffer-list-kill-regexps '("^.*$")) - -;; keep these buffer untouched -;; prevent append multiple times -(defvar clean-buffer-list-kill-never-buffer-names-init - clean-buffer-list-kill-never-buffer-names - "Init value for clean-buffer-list-kill-never-buffer-names") -(setq clean-buffer-list-kill-never-buffer-names - (append - '("*Messages*" "*cmd*" "*scratch*" "*w3m*" "*w3m-cache*" "*Inferior Octave*") - clean-buffer-list-kill-never-buffer-names-init)) - -;; prevent append multiple times -(defvar clean-buffer-list-kill-never-regexps-init - clean-buffer-list-kill-never-regexps - "Init value for clean-buffer-list-kill-never-regexps") -;; append to *-init instead of itself -(setq clean-buffer-list-kill-never-regexps - (append '("^\\*EMMS Playlist\\*.*$") - clean-buffer-list-kill-never-regexps-init)) - - -;https://stackoverflow.com/questions/43765/pin-emacs-buffers-to-windows-for-cscope -(defun toggle-window-dedicated () - -"Toggle whether the current active window is dedicated or not" - -(interactive) - -(message - - (if (let (window (get-buffer-window (current-buffer))) - - (set-window-dedicated-p window - - (not (window-dedicated-p window)))) - - "Window '%s' is dedicated" - - "Window '%s' is normal") - - (current-buffer))) - -(global-set-key (kbd "") 'toggle-window-dedicated) diff --git a/emacs/super-emacs/packages.el b/emacs/super-emacs/packages.el deleted file mode 100644 index 72b8c96..0000000 --- a/emacs/super-emacs/packages.el +++ /dev/null @@ -1,142 +0,0 @@ -;Create repositories cache, if required -(when (not package-archive-contents) - (package-refresh-contents)) - -;Declare a list of required packages -(defvar super-emacs--required-packages - '(helm - multiple-cursors - ace-jump-mode - ace-window - powerline - buffer-move - ztree - undo-tree - neotree - material-theme - dired-launch - which-key - meta-presenter - myterminal-controls - theme-looper - magit - rust-mode - yaml-mode - jinja2-mode - json-mode - terraform-mode - company-terraform - elpy - racer - company - projectile - helm-projectile - flycheck - )) - -;Install required packages -(mapc (lambda (p) - (package-install p)) - super-emacs--required-packages) - - -;Start undo-tree -(global-undo-tree-mode) - -;Set hooks for dired-launch-mode -(add-hook 'dired-mode-hook - 'dired-launch-mode) - -;Start which-key-mode -(which-key-mode) - -;Setup company-mode -(setq company-dabbrev-downcase nil) -(setq company-idle-delay 0) -(setq company-minimum-prefix-length 2) - -(global-company-mode) - - -;Set up ace-jump-mode -(autoload 'ace-jump-mode - "ace-jump-mode" - "Emacs quick move minor mode" - t) -(autoload 'ace-jump-mode-pop-mark - "ace-jump-mode" - "Ace jump back:-" - t) - -;Enable powerline -(powerline-center-theme) -(setq powerline-default-separator - 'slant) - - -;Configure theme-looper -(theme-looper-set-theme-set '(deeper-blue - wheatgrass - wombat - material)) -(theme-looper-set-customizations 'powerline-reset) - -;Configure myterminal-controls -(myterminal-controls-set-controls-data - '(("t" "Change color theme" theme-looper-enable-next-theme) - ("r" "Reload file" super-emacs-reload-current-file))) - -;Set up helm-mode -(helm-mode 1) -(helm-autoresize-mode 1) -(setq helm-split-window-in-side-p - t) - -;Set up racer for rust-mode -(add-hook 'rust-mode-hook #'racer-mode) -(add-hook 'rust-mode-hook #'eldoc-mode) -(add-hook 'racer-mode-hook #'company-mode) - - -;Projectile -(add-hook 'projectile-mode-hook (lambda () ( - (setq projectile-globally-ignored-files - (append '( - "#*#" - "*~" - ".DS_Store" - "*.gz" - "*.pyc" - "*.jar" - "*.tar.gz" - "*.tgz" - "*.zip" - "*.o" - ) - projectile-globally-ignored-files)) - (setq projectile-globally-ignored-directories - (append '( - ".git" - ".svn" - ".idea" - ".vscode" - "node_modules" - ) - projectile-globally-ignored-directories)) - ))) - - -;;elpy -;; (when (require 'flycheck nil t) -;; (setq elpy-default-minor-modes (delete 'flymake-mode elpy-default-minor-modes)) -;; (add-to-list 'elpy-default-minor-modes 'flycheck-mode)) - -;;flycheck -(setq flycheck-flake8-maximum-line-length 500) - - -(add-hook 'prog-mode-hook 'rainbow-delimiters-mode) - -(require 'semantic) -(semantic-mode 1) -(global-semantic-stickyfunc-mode 1) diff --git a/emacs/super-emacs/repositories.el b/emacs/super-emacs/repositories.el deleted file mode 100644 index 98e9c11..0000000 --- a/emacs/super-emacs/repositories.el +++ /dev/null @@ -1,10 +0,0 @@ -;Load package.el -(require 'package) - -;Add melpa to list of repositories -(add-to-list 'package-archives - '("melpa" . "http://melpa.milkbox.net/packages/") - t) - -;Initialize package.el -(package-initialize)