diff options
author | 2011-03-17 11:36:56 +0100 | |
---|---|---|
committer | 2011-03-17 11:37:07 +0100 | |
commit | 82b8ca280905ea284730f228ae082c42c348e818 (patch) | |
tree | 0c60d42c717905632c32ad80d83397d59c7d5036 /emacs.d/elisp/manage-org.el | |
parent | 04b349e8e00c2720fed4b14b7a1e0616db27ad2f (diff) | |
download | dotfiles-82b8ca280905ea284730f228ae082c42c348e818.tar.gz dotfiles-82b8ca280905ea284730f228ae082c42c348e818.zip |
Big emacs cleanup, must be lighter
Diffstat (limited to 'emacs.d/elisp/manage-org.el')
-rw-r--r-- | emacs.d/elisp/manage-org.el | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/emacs.d/elisp/manage-org.el b/emacs.d/elisp/manage-org.el deleted file mode 100644 index 1b2b5bb..0000000 --- a/emacs.d/elisp/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) |