From 62f897fdf5988840ee5538e30fbd3c7bcb715735 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Mon, 21 Feb 2011 00:27:43 +0100 Subject: New .emacs style * .emacs only loops through .emacs.d and runs the *.el files there. * files are automatically compiled before loading. But only if it hasn't already been compiled. * all emacs el files, save for the startup scripts, have been moved to .emacs.d/elisp --- emacs.d/elisp/manage-org.el | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 emacs.d/elisp/manage-org.el (limited to 'emacs.d/elisp/manage-org.el') diff --git a/emacs.d/elisp/manage-org.el b/emacs.d/elisp/manage-org.el new file mode 100644 index 0000000..1b2b5bb --- /dev/null +++ b/emacs.d/elisp/manage-org.el @@ -0,0 +1,40 @@ +(defun clone-org-files () + (interactive) + (if (= (shell-command + "git clone git@82.170.172.156:private/org.git ~/prj/org" + "*Messages*" "*Messages*") 0) + (message "success!") + (message "failed!"))) + +(defun get-org-files () + (interactive) + (let ((prev-dir (getenv "PWD"))) + (if (= (shell-command + (format "cd ~/prj/org/; git pull origin master; cd %s" prev-dir) + "*Messages*" "*Messages*") 0) + (message "success!") + (message "failed!")))) + +(defun save-org-files () + (interactive) + (let ((prev-dir (getenv "PWD"))) + (if (= (shell-command + (format + "cd ~/prj/org/; git add .; git commit -m \"Change for %s\"; cd %s" + (format-time-string "%Y-%m-%d at %H:%M:%S") + prev-dir) + "*Messages*" "*Messages*") 0) + (message "success!") + (message "failed!")))) + +(defun push-org-files () + (interactive) + (let ((prev-dir (getenv "PWD"))) + (if (= (shell-command + (format + "cd ~/prj/org/; git push origin master; cd %s" prev-dir) + "*Messages*" "*Messages*") 0) + (message "success!") + (message "failed!")))) + +(provide 'manage-org) -- cgit v1.2.3-54-g00ecf