From 43a99dea3aa6651b1b060ace714bddc1e10925ea Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Tue, 6 Aug 2013 23:46:26 +0200 Subject: * moved switch-window and iy-go-to-char to package.el installs * changed 'custom-clone-git and 'custom-download-script to place things in special folders * added those folders and some other things to .gitignore * changed binding for iy-go-to-char to C-c f --- init-functions.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'init-functions.el') diff --git a/init-functions.el b/init-functions.el index 1fdf64ed59a7..4814cee5d322 100644 --- a/init-functions.el +++ b/init-functions.el @@ -20,7 +20,7 @@ (unless (file-exists-p file) (url-copy-file url file)))) -(defun custom-download-script (url filename) + (defun custom-download-script (url filename) "Downloads an Elisp script, places it in ~/.emacs/other and then loads it" ;; Ensure the directory exists @@ -29,7 +29,7 @@ ;; Download file if it doesn't exist. (let ((file - (concat "~/.emacs.d/" filename))) + (concat "~/.emacs.d/other/" filename))) (unless (file-exists-p file) (url-copy-file url file)) @@ -39,10 +39,9 @@ ;; if there isn't already a folder with that name (defun custom-clone-git (url foldername) "Clones a git repository to .emacs.d/foldername" - (let ((fullpath (concat "~/.emacs.d/" foldername))) + (let ((fullpath (concat "~/.emacs.d/clones/" foldername))) (unless (file-exists-p fullpath) - (async-shell-command (concat "git clone " url " " fullpath)))) - ) + (async-shell-command (concat "git clone " url " " fullpath))))) ;; These come from magnars, he's got some awesome things. -- cgit 1.4.1