summaryrefslogtreecommitdiffstats
path: root/emacs.d/manage-org.el
diff options
context:
space:
mode:
authorGravatar Tom Willemsen2011-02-21 00:27:43 +0100
committerGravatar Tom Willemsen2011-02-21 00:27:43 +0100
commit62f897fdf5988840ee5538e30fbd3c7bcb715735 (patch)
tree4b389e2de2919676e4fe1c7f7716d33c94ecb7db /emacs.d/manage-org.el
parent294a0eef5da437bb6840acfd831e6d85b988bd60 (diff)
downloaddotfiles-62f897fdf5988840ee5538e30fbd3c7bcb715735.tar.gz
dotfiles-62f897fdf5988840ee5538e30fbd3c7bcb715735.zip
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
Diffstat (limited to 'emacs.d/manage-org.el')
-rw-r--r--emacs.d/manage-org.el40
1 files changed, 0 insertions, 40 deletions
diff --git a/emacs.d/manage-org.el b/emacs.d/manage-org.el
deleted file mode 100644
index 1b2b5bb..0000000
--- a/emacs.d/manage-org.el
+++ /dev/null
@@ -1,40 +0,0 @@
-(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)