Add message buffer name, bump emacs-testify pointer.

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

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/solarized")
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
(load-theme 'solarized-dark t)
(load-theme 'zenburn t)
;; =============================================================================
;; General Emacs Options
@ -85,6 +85,10 @@
(interactive)
(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)
(mapconcat 'identity (list-diff (path-to-list base-path) (path-to-list file-path)) "/"))
@ -105,6 +109,10 @@
(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 -")))
;; =============================================================================
;; Flymake
;; =============================================================================
@ -171,6 +179,7 @@
(global-set-key (kbd "C-x O") (lambda () (interactive) (other-window -1)))
(global-set-key "\C-ct" 'testify-run-test)
(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.

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