grant/dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove old emacs

Browse Source
This commit is contained in:
Grant Hunter 2019-11-25 09:37:12 -07:00
parent dbad3f61ea
commit 8c11b417a3
7 changed files with 0 additions and 370 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
emacs/init.el
View File

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

12
emacs/super-emacs/file-modes.el
View File

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

31
emacs/super-emacs/interface.el
View File

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

46
emacs/super-emacs/key-bindings.el
View File

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

97
emacs/super-emacs/misc.el
View File

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

142
emacs/super-emacs/packages.el
View File

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

10
emacs/super-emacs/repositories.el
View File

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