From 15d8264356d0e02a98f388b66020fd1fdae93a16 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 5 Dec 2010 12:41:38 +0100
Subject: Added emacs config

---
 emacs.d/manage-org.el | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 emacs.d/manage-org.el

(limited to 'emacs.d/manage-org.el')

diff --git a/emacs.d/manage-org.el b/emacs.d/manage-org.el
new file mode 100644
index 0000000..1b2b5bb
--- /dev/null
+++ b/emacs.d/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