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

small tweaks.

Browse Source
This commit is contained in:
Ivan Malison 2014-11-03 00:02:01 -08:00
parent 3b6c7f3abc
commit 0bbe0fa7a8
1 changed files with 67 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

121
init.el
View File

@ -43,9 +43,10 @@
yasnippet cl-lib))
(defvar packages-other
'(latex-preview-pane auctex paredit inf-ruby undo-tree gitconfig-mode
'(thingatpt+ latex-preview-pane auctex paredit inf-ruby undo-tree
exec-path-from-shell slime string-inflection yaml-mode sgml-mode dired+
ctags ctags-update helm-gtags hackernews evil))
ctags ctags-update helm-gtags hackernews evil gitconfig-mode
aggressive-indent))
(defvar packages-python '(jedi pymacs pytest sphinx-doc))
(defvar packages-scala '(scala-mode2 ensime))
@ -113,6 +114,9 @@
(add-hook 'after-init-hook '(lambda () (setq debug-on-error t)))
(add-hook 'after-init-hook #'global-flycheck-mode)
(global-aggressive-indent-mode 1)
(add-to-list 'aggressive-indent-excluded-modes 'html-mode)
;; =============================================================================
;; Mode Hooks
;; =============================================================================
@ -128,9 +132,6 @@
;; Navigation: helm/projectile/ido
;; =============================================================================
(require 'ido)
(require 'flx-ido)
(helm-mode 1)
(ido-mode t)
(ido-everywhere 1)
@ -147,55 +148,6 @@
(autoload 'smex "smex"
(global-set-key (kbd "M-x") 'smex))
;; =============================================================================
;; functions
;; =============================================================================
(defun get-buffer-name()
(interactive)
(file-relative-name (buffer-file-name)))
(defun message-buffer-name()
(interactive)
(message (get-buffer-name)))
(defun os-copy (&optional b e)
(interactive "r")
(shell-command-on-region b e "source ~/.zshrc; cat | smart_copy"))
(defun os-paste ()
(interactive)
(insert (shell-command-to-string "source ~/.zshrc; ospaste")))
(defun all-copy (&optional b e)
(interactive "r")
(os-copy b e)
(tmux-copy b e)
(kill-ring-save b e))
(defun open-pdf ()
(interactive)
(let ( (pdf-file (replace-regexp-in-string "\.tex$" ".pdf" buffer-file-name)))
(shell-command (concat "open " pdf-file))))
(defun tmux-copy (&optional b e)
(interactive "r")
(shell-command-on-region b e "cat | tmux loadb -"))
(defun tmux-copy-buffer-name (&optional b e)
(interactive "r")
(shell-command (concat "echo " (shell-quote-argument (ffip-get-buffer-name))
" | tmux loadb -")))
(defun eval-and-replace ()
(interactive)
(backward-kill-sexp)
(condition-case nil
(prin1 (eval (read (current-kill 0)))
(current-buffer))
(error (message "Invalid expression")
(insert (current-kill 0)))))
;; =============================================================================
;; Python
;; =============================================================================
@ -304,6 +256,55 @@
(setq TeX-save-query nil)
(setq-default TeX-master nil)
;; =============================================================================
;; functions
;; =============================================================================
(defun get-buffer-name()
(interactive)
(file-relative-name (buffer-file-name)))
(defun message-buffer-name()
(interactive)
(message (get-buffer-name)))
(defun os-copy (&optional b e)
(interactive "r")
(shell-command-on-region b e "source ~/.zshrc; cat | smart_copy"))
(defun os-paste ()
(interactive)
(insert (shell-command-to-string "source ~/.zshrc; ospaste")))
(defun all-copy (&optional b e)
(interactive "r")
(os-copy b e)
(tmux-copy b e)
(kill-ring-save b e))
(defun open-pdf ()
(interactive)
(let ( (pdf-file (replace-regexp-in-string "\.tex$" ".pdf" buffer-file-name)))
(shell-command (concat "open " pdf-file))))
(defun tmux-copy (&optional b e)
(interactive "r")
(shell-command-on-region b e "cat | tmux loadb -"))
(defun tmux-copy-buffer-name (&optional b e)
(interactive "r")
(shell-command (concat "echo " (shell-quote-argument (ffip-get-buffer-name))
" | tmux loadb -")))
(defun eval-and-replace ()
(interactive)
(backward-kill-sexp)
(condition-case nil
(prin1 (eval (read (current-kill 0)))
(current-buffer))
(error (message "Invalid expression")
(insert (current-kill 0)))))
;; =============================================================================
;; Custom Key Bindings
;; =============================================================================
@ -317,6 +318,7 @@
(global-set-key (kbd "C-c +") 'message-buffer-name)
(global-set-key (kbd "C-c C-r") 'eval-and-replace)
(global-set-key (kbd "C-c SPC") 'ace-jump-word-mode)
(global-set-key (kbd "C-c C-f") 'find-function-at-point)
(global-set-key (kbd "C-c e") 'os-copy)
(global-set-key (kbd "C-c g") 'jedi:goto-definition)
(global-set-key (kbd "C-c t") 'pytest-one)
@ -327,6 +329,8 @@
(global-set-key (kbd "C-x O") (lambda () (interactive) (other-window -1)))
(global-set-key (kbd "C-x f") 'helm-projectile)
(global-set-key (kbd "C-x w") 'whitespace-mode)
(global-set-key (kbd "M-a") 'goto-line)
(global-set-key (kbd "M-e") 'goto-line)
(global-set-key (kbd "M-g") 'goto-line)
;; Multiple Cursors
@ -373,8 +377,11 @@
(load-theme 'monokai t)
;; Choose random theme:
(defvar dark-themes '(monokai molokai solarized-dark base16-default))
(defvar light-themes '(zenburn solarized-light))
;; (defvar dark-themes '(monokai molokai solarized-dark base16-default))
;; (defvar light-themes '(zenburn solarized-light))
(defvar dark-themes '(solarized-dark))
(defvar light-themes '(solarized-light))
(defun random-choice (choices)
(nth (random (length choices)) choices))
@ -400,7 +407,7 @@
(setq hl-line-mode nil))
;; enable to set theme based on time of day.
;; (run-at-time "12:00" 3600 'set-theme)
(run-at-time "12:00" 3600 'set-theme)
;; Set the default font for emacs.
;;(set-frame-font "Menlo 11" t t)