wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Add message buffer name, bump emacs-testify pointer.

Browse Source
This commit is contained in:
Ivan Malison 2013-11-06 14:48:25 -08:00
parent b1be91f1bf
commit 9612e42908
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
init.el
View File

@ -21,7 +21,7 @@
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/zenburn") (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/zenburn")
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/solarized") (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/solarized")
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
(load-theme 'solarized-dark t) (load-theme 'zenburn t)
;; ============================================================================= ;; =============================================================================
;; General Emacs Options ;; General Emacs Options
@ -85,6 +85,10 @@
(interactive) (interactive)
(path-relative-to-base-path (buffer-file-name) (expand-file-name (ffip-project-root)))) (path-relative-to-base-path (buffer-file-name) (expand-file-name (ffip-project-root))))
(defun message-buffer-name()
(interactive)
(message (ffip-get-buffer-name)))
(defun path-relative-to-base-path(file-path base-path) (defun path-relative-to-base-path(file-path base-path)
(mapconcat 'identity (list-diff (path-to-list base-path) (path-to-list file-path)) "/")) (mapconcat 'identity (list-diff (path-to-list base-path) (path-to-list file-path)) "/"))
@ -105,6 +109,10 @@
(interactive "r") (interactive "r")
(shell-command-on-region b e "cat | tmux loadb -")) (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 -")))
;; ============================================================================= ;; =============================================================================
;; Flymake ;; Flymake
;; ============================================================================= ;; =============================================================================
@ -171,6 +179,7 @@
(global-set-key (kbd "C-x O") (lambda () (interactive) (other-window -1))) (global-set-key (kbd "C-x O") (lambda () (interactive) (other-window -1)))
(global-set-key "\C-ct" 'testify-run-test) (global-set-key "\C-ct" 'testify-run-test)
(global-set-key "\C-c\C-t" 'testify-run-case) (global-set-key "\C-c\C-t" 'testify-run-case)
(global-set-key (kbd "C-c +") (lambda () (interactive) (message (ffip-get-buffer-name))))
;; Something will occasionally override this binding. ;; Something will occasionally override this binding.

2
lisp/emacs-testify

@ -1 +1 @@
Subproject commit e66ba0cd9dba146d7c71052da41dded5a6284a45 Subproject commit 566f0a8aba31f74128bc768c62d020f2b128cdde