From b1be91f1bf9d0bbf177a4d3141391164ab63c2ed Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 26 Sep 2013 17:49:42 -0700 Subject: [PATCH] Added ffip-get-buffer-name --- init.el | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 9aa0acab..7a194e88 100644 --- a/init.el +++ b/init.el @@ -77,6 +77,26 @@ (setq flyspell-issue-welcome-flag nil) +;; ============================================================================= +;; Misc +;; ============================================================================= + +(defun ffip-get-buffer-name() + (interactive) + (path-relative-to-base-path (buffer-file-name) (expand-file-name (ffip-project-root)))) + +(defun path-relative-to-base-path(file-path base-path) + (mapconcat 'identity (list-diff (path-to-list base-path) (path-to-list file-path)) "/")) + +(defun path-to-list(path) + (let ((path-list (split-string path "/"))) + (if (= (length (car (last path-list))) 0) (butlast path-list) path-list))) + +(defun list-diff(shorter longer) + (cond ((not shorter) longer) + ((string= (car shorter) (car longer)) (list-diff (cdr shorter) (cdr longer))) + (t (throw 'error "longer does not match shorter")))) + ;; ============================================================================= ;; tmux ;; ============================================================================= @@ -143,7 +163,7 @@ (global-set-key "\C-cw" 'tmux-copy) (global-set-key "\C-x\C-r" (lambda () (interactive) (revert-buffer t t))) (global-set-key "\M-g" 'goto-line) -(global-set-key "\C-c\C-c" 'comment-region) +(global-set-key "\C-c\C-c" 'comment-dwim) (global-set-key "\C-ct" 'testify-run-test) (global-set-key "\C-c\C-o" 'testify-run-case) (global-set-key "\C-c1" 'evil-mode) @@ -152,6 +172,7 @@ (global-set-key "\C-ct" 'testify-run-test) (global-set-key "\C-c\C-t" 'testify-run-case) + ;; Something will occasionally override this binding. (global-set-key "\C-cg" 'rope-goto-definition)