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

get name and email from gitconfig.

Browse Source
This commit is contained in:
Ivan Malison 2014-05-10 14:28:27 -07:00
parent 91d8100e36
commit e7f72fc469
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
init.el
View File

@ -1,13 +1,14 @@
;; ============================================================================= ;; =============================================================================
;; Ivan Malison
;; ___ _ __ ___ __ _ ___ ___ ;; ___ _ __ ___ __ _ ___ ___
;; / _ \ '_ ` _ \ / _` |/ __/ __| ;; / _ \ '_ ` _ \ / _` |/ __/ __|
;; | __/ | | | | | (_| | (__\__ \ ;; | __/ | | | | | (_| | (__\__ \
;; (_)___|_| |_| |_|\__,_|\___|___/ ;; (_)___|_| |_| |_|\__,_|\___|___/
;; ============================================================================= ;; =============================================================================
(setq user-full-name "Ivan Malison") (setq user-full-name
(setq user-mail-address "<IvanMalison@gmail.com>") (replace-regexp-in-string "\n$" "" (shell-command-to-string "git config --get user.email")))
(setq user-mail-address
(replace-regexp-in-string "\n$" "" (shell-command-to-string "git config --get user.name")))
;; ============================================================================= ;; =============================================================================
;; Load Path Configuration ;; Load Path Configuration
@ -16,9 +17,9 @@
(if (not (file-exists-p "~/.emacs.d/elpa")) (if (not (file-exists-p "~/.emacs.d/elpa"))
(make-directory "~/.emacs.d/elpa")) (make-directory "~/.emacs.d/elpa"))
(let ((default-directory "~/.emacs.d/lisp/")) (let ((default-directory "~/.emacs.d/lisp/"))
(normal-top-level-add-subdirs-to-load-path)) (normal-top-level-add-subdirs-to-load-path))
(let ((default-directory "~/.emacs.d/elpa/")) (let ((default-directory "~/.emacs.d/elpa/"))
(normal-top-level-add-subdirs-to-load-path)) (normal-top-level-add-subdirs-to-load-path))
(add-to-list 'custom-theme-load-path "~/.emacs.d/elpa/") (add-to-list 'custom-theme-load-path "~/.emacs.d/elpa/")
(require 'patches) (require 'patches)
@ -35,7 +36,7 @@
(package-initialize) (package-initialize)
(defvar my-packages '(color-theme ctags ctags-update flymake mo-git-blame (defvar my-packages '(color-theme ctags ctags-update flymake mo-git-blame
multiple-cursors no-easy-keys multiple-cursors no-easy-keys
starter-kit-bindings starter-kit-ruby starter-kit-bindings starter-kit-ruby
starter-kit magit ido-ubiquitous starter-kit magit ido-ubiquitous
find-file-in-project idle-highlight-mode find-file-in-project idle-highlight-mode
@ -57,7 +58,7 @@ Return a list of installed packages or nil for every package not installed."
package package
(progn (message (format "Installing package %s." package)) (progn (message (format "Installing package %s." package))
(package-install package)))) (package-install package))))
packages)) packages))
(ensure-package-installed my-packages) (ensure-package-installed my-packages)
@ -161,16 +162,16 @@ Return a list of installed packages or nil for every package not installed."
(defun flymake-pylint-init () (defun flymake-pylint-init ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy (let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace)) 'flymake-create-temp-inplace))
(local-file (file-relative-name (local-file (file-relative-name
temp-file temp-file
(file-name-directory buffer-file-name)))) (file-name-directory buffer-file-name))))
(list "pyflakes" (list local-file)))) (list "pyflakes" (list local-file))))
(add-to-list 'flymake-allowed-file-name-masks '("\\.py\\'" flymake-pylint-init)) (add-to-list 'flymake-allowed-file-name-masks '("\\.py\\'" flymake-pylint-init))
; Load flymake on non-temp buffers ; Load flymake on non-temp buffers
(add-hook 'python-mode-hook (add-hook 'python-mode-hook
(lambda () (unless (or (eq buffer-file-name nil) (eq (file-name-directory buffer-file-name) nil)) (flymake-mode 1)))) (lambda () (unless (or (eq buffer-file-name nil) (eq (file-name-directory buffer-file-name) nil)) (flymake-mode 1))))
;; ============================================================================= ;; =============================================================================
;; Python ;; Python
@ -270,7 +271,7 @@ Return a list of installed packages or nil for every package not installed."
(while the-plist (while the-plist
(add-to-list 'alist (get-tuple-from-plist the-plist)) (add-to-list 'alist (get-tuple-from-plist the-plist))
(setq the-plist (cddr the-plist))) (setq the-plist (cddr the-plist)))
alist)) alist))
;; ============================================================================= ;; =============================================================================
;; Appearance ;; Appearance