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

add way to enable python tabs.

Browse Source
This commit is contained in:
Ivan Malison 2014-05-03 17:49:19 -07:00
parent ae1b947633
commit 0aac632966
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
init.el
View File

@ -124,24 +124,12 @@ Return a list of installed packages or nil for every package not installed."
(defun ffip-get-buffer-name() (defun ffip-get-buffer-name()
(interactive) (interactive)
(path-relative-to-base-path (buffer-file-name) (expand-file-name (ffip-project-root)))) (file-relative-name (buffer-file-name) (expand-file-name (ffip-project-root))))
(defun message-buffer-name() (defun message-buffer-name()
(interactive) (interactive)
(message (ffip-get-buffer-name))) (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)) "/"))
(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"))))
(defun os-copy (&optional b e) (defun os-copy (&optional b e)
(interactive "r") (interactive "r")
(shell-command-on-region b e "source ~/.zshrc; cat | smart_copy")) (shell-command-on-region b e "source ~/.zshrc; cat | smart_copy"))
@ -193,6 +181,13 @@ Return a list of installed packages or nil for every package not installed."
(require 'multi-line-it) (require 'multi-line-it)
(require 'emacs-testify) (require 'emacs-testify)
(defun python-tabs () (setq tab-width 4
indent-tabs-mode t
python-indent-offset 4))
(defvar use-python-tabs nil)
(add-hook 'python-mode-hook (lambda () (if use-python-tabs python-tabs)))
(add-hook 'python-mode-hook (lambda () (subword-mode 1))) (add-hook 'python-mode-hook (lambda () (subword-mode 1)))
;; ============================================================================= ;; =============================================================================
@ -319,5 +314,5 @@ Return a list of installed packages or nil for every package not installed."
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(safe-local-variable-values (quote ((python-indent . 4) (whitespace-line-column . 80) (lexical-binding . t))))) '(safe-local-variable-values (quote ((use-python-tabs . t) (python-indent . 4) (whitespace-line-column . 80) (lexical-binding . t)))))