remove old emacs
This commit is contained in:
Grant Hunter
parent
dbad3f61ea
commit
8c11b417a3
@ -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)))))
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
)
|
|
||||||
@ -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-<up>" . buf-move-up)
|
|
||||||
("C-S-<down>" . buf-move-down)
|
|
||||||
("C-S-<left>" . buf-move-left)
|
|
||||||
("C-S-<right>" . buf-move-right)
|
|
||||||
("<f5>" . 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()")))))
|
|
||||||
@ -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 "<f12>") 'toggle-window-dedicated)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
Loading…
x
Reference in New Issue
Block a user