Skip to content

Instantly share code, notes, and snippets.

@iamneal

iamneal/my-dot-emacs

Last active August 29, 2017 20:01
Show Gist options
  • Save iamneal/ea4b8cca7a0c78db886a375c340989c1 to your computer and use it in GitHub Desktop.
Save iamneal/ea4b8cca7a0c78db886a375c340989c1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
my-dot-emacs
;;; package --- Summary
;;; Commentary:
(require 'package) ;; you might already have this line
;;; Code:
(add-to-list 'package-archives
'("MELPHA Stable" . "https://stable.melpa.org/packages/"))
(when (< emacs-major-version 24)
;; For important compatibility libraries like cl-lib
(add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
(package-initialize) ;; You might already have this line
(setq-default tab-width 2)
(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.
'(ansi-color-names-vector
["#242424" "#e5786d" "#95e454" "#cae682" "#8ac6f2" "#333366" "#ccaa8f" "#f6f3e8"])
'(custom-enabled-themes (quote (tsdh-dark)))
'(package-selected-packages
(quote
(shackle fastnav nhexl-mode expand-region flycheck-yamllint yaml-mode protobuf-mode flycheck go-mode))))
(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.
)
(defun switch-to-minibuffer ()
"Switch to minibuffer window."
(interactive)
(if (active-minibuffer-window)
(select-window (active-minibuffer-window))
(error "Minibuffer is not active")))
(global-set-key "\C-co" 'switch-to-minibuffer) ;; Bind to `C-c o'
(add-hook 'after-init-hook #'global-flycheck-mode)
(add-to-list 'exec-path "$GOPATH/bin")
(add-hook 'before-save-hook 'gofmt-before-save)
(setq mac-option-modifier 'meta) ; set alt-key to meta
(setq mac-escape-modifier nil) ; set esc-key to
;; This stuff is to ansi-colorize the compilation buffer
;; after a test so the terminal colors come through.
(define-derived-mode ansi-compilation-mode compilation-mode "ansi compilation"
"Compilation mode that understands ansi colors."
(require 'ansi-color)
(read-only-mode 0)
(ansi-color-apply-on-region (point-min) (point-max)))
(defun colorize-compilation (one two)
"ansi colorize the compilation buffer."
(ansi-compilation-mode)
)
(setq compilation-finish-function 'colorize-compilation)
(setq scroll-conservatively 101)
(setq ns-function-modifier 'super)
(global-linum-mode 1)
(global-set-key (kbd "C-;") 'er/expand-region)
(menu-bar-mode -1)
(toggle-scroll-bar -1)
(tool-bar-mode -1)
(defun move-to-top-window ()
;; moves to the top of the window
(interactive)
(move-to-window-line-top-bottom 0))
(defun move-to-bottom-window ()
;; moves to the bottom of the window
(interactive)
(move-to-window-line-top-bottom -1))
(defun pull-up ()
(interactive)
(move-to-top-window)
(recenter))
(defun pull-down ()
(interactive)
(move-to-bottom-window)
(recenter))
(global-set-key "\C-c\C-n" 'pull-down)
(global-set-key "\C-c\C-p" 'pull-up)
(global-set-key "\C-cn" 'move-to-bottom-window)
(global-set-key "\C-cp" 'move-to-top-window)
(defun kill-line ()
;; marks to end of line, kills line, and moves up
(interactive)
(move-beginning-of-line nil)
(set-mark-command nil)
(move-end-of-line nil)
(kill-region (region-beginning) (region-end))
(backward-delete-char-untabify 1 nil)
(forward-line 1))
(global-set-key "\C-c\C-k" 'kill-line)
;; unbind the list buffers command
(global-unset-key "\C-x\C-b")
;; potentially makes the minibuffer completion happen at bottm
;;(add-to-list 'special-display-buffer-names '("*Completions*" my-display-completions))
;; (defun my-display-completions (buf)
;; "put the *completions* buffer in the right spot"
;; (let ((windows (delete (minibuffer-window) (window-list))))
;; (if (eq 1 (length windows))
;; (progn
;; (select-window (car windows))
;; (split-window-vertically)))
;; (let ((target-window (window-at 0 (- (frame-height) 2)))
;; (pop-up-windows t))
;; (set-window-buffer target-window buf)
;; target-window)))
;; (Customize-set-variable
;; 'display-buffer-alist
;; '(("\\*Completions\\*" display-buffer-pop-up-window)))
;; (setq shackle-rules '(("\\*Completions\\*" :popup t))
;; shackle-default-rule '(:select t))
(require 'popwin)
(popwin-mode 1)
(require 'fastnav)
(global-set-key "\M-z" 'fastnav-zap-up-to-char-forward)
(global-set-key "\M-Z" 'fastnav-zap-up-to-char-backward)
(global-set-key "\M-S" 'fastnav-jump-to-char-forward)
(global-set-key "\M-s" 'fastnav-jump-to-char-backward)
(global-set-key "\M-R" 'fastnav-replace-char-forward)
(global-set-key "\M-r" 'fastnav-replace-char-backward)
(global-set-key "\M-I" 'fastnav-insert-at-char-forward)
(global-set-key "\M-i" 'fastnav-insert-at-char-backward)
(global-set-key "\M-J" 'fastnav-execute-at-char-forward)
(global-set-key "\M-j" 'fastnav-execute-at-char-backward)
(global-set-key "\M-K" 'fastnav-delete-char-forward)
(global-set-key "\M-k" 'fastnav-delete-char-backward)
(global-set-key "\M-M" 'fastnav-mark-to-char-forward)
(global-set-key "\M-m" 'fastnav-mark-to-char-backward)
(global-set-key "\M-P" 'fastnav-sprint-forward)
(global-set-key "\M-p" 'fastnav-sprint-backward)
(provide '.emacs)
;;; .emacs ends here
(put 'set-goal-column 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'erase-buffer 'disabled nil)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment