tayahh.blogg.se - Git annex remote names

#Git annex remote names Patch
#Git annex remote names software
#Git annex remote names code
#Git annex remote names license

Re: org-attach.el: Fetch attachments from git annex, Rasmus, 6.

Re: org-attach.el: Fetch attachments from git annex, Erik Hetzner, 5.

Re: org-attach.el: Fetch attachments from git annex, Kyle Meyer, 6.

Re: org-attach.el: Fetch attachments from git annex, Kyle Meyer, 5.

Re: org-attach.el: Fetch attachments from git annex, Rasmus, 5.

Re: org-attach.el: Fetch attachments from git annex, (continued).

+ (should (string-equal "hello world\n" (buffer-string))))))) + check that the file has the right contents + (org-attach-annex-fetch-maybe (expand-file-name "test-file")) + (shell-command "git annex drop -force test-file") + (shell-command (format "git remote add dup %s" (shell-quote-argument + (shell-command "git annex get test-file") + (shell-command (format "git remote add original %s" + (let ((annex-original default-directory) + (shell-command "git annex add test-file") + (annex-dup (make-temp-file "org-annex-test" t))) + (let ((path (expand-file-name "test-file")) +(ert-deftest test-org-attach/fetch-maybe () + (delete-directory tmpdir 'recursive)))) + (let ((tmpdir (make-temp-file "org-annex-test" t))) + (let ((org-attach-git-annex-cutoff nil)) + (skip-unless (test-org-attach-annex/installed)) + `(let ((tmpdir (make-temp-file "org-annex-test" t))) +(cl-defmacro test-org-attach-annex/with-annex (&body body)

#Git annex remote names license

+ You should have received a copy of the GNU General Public License + GNU General Public License for more details. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + but WITHOUT ANY WARRANTY without even the implied warranty of + This program is distributed in the hope that it will be useful,

#Git annex remote names software

+ the Free Software Foundation, either version 3 of the License, or + it under the terms of the GNU General Public License as published by + This program is free software you can redistribute it and/or modify +++ -0,0 +1,81 test-org-attach.el - Tests for Org Attach "Open attachment, force opening in Emacs.ĭiff -git a/testing/lisp/test-org-attach.el b/testing/lisp/test-org-attach.el + (path (expand-file-name file attach-dir))) (org-open-file (expand-file-name file attach-dir) in-emacs))) (shell-command-to-string "git ls-files -z -deleted") "\0" -465,8 +477,10 If IN-EMACS is non-nil, force opening in Emacs." + (call-process "git" nil nil nil "add" new-or-modified)) + (call-process "git" nil nil nil "annex" "add" new-or-modified)

+ (>= (nth 7 (file-attributes new-or-modified)) + "git ls-files -zmo -exclude-standard") "\0" t)) (call-process "git" nil nil nil "add" new-or-modified)) (call-process "git" nil nil nil "annex" "add" new-or-modified) (>= (nth 7 (file-attributes new-or-modified)) "git ls-files -zmo -exclude-standard") "\0" t)) (file-exists-p (expand-file-name ".git/annex" (or (file-exists-p (expand-file-name "annex" git-dir)) (when (and git-dir (executable-find "git")) This checks for the existence of a \".git\" directory in that -279,20 +295,16 This checks for the existence of a \".git\" directory in "Commit changes to git if `org-attach-directory' is properly initialized. + (call-process "git" nil nil nil "annex" "get" path))) + (message "Fetching \"%s\" using git annex." path) in=here %s" (shell-quote-argument path)))))) + "Fetch PATH from git annex if necessary." +(defun org-attach-annex-fetch-maybe (path)

+ (file-exists-p (expand-file-name ".git/annex" git-dir)))))) + (or (file-exists-p (expand-file-name "annex" git-dir)) + (let ((git-dir (vc-git-root (expand-file-name org-attach-directory)))) + "Return non-nil if git annex can be used." (message "Children will inherit attachment directory")) (org-entry-put nil "ATTACH_DIR_INHERIT" "t")

+++ -270,6 +270,22 the ATTACH_DIR property) their own attachment directory." I have alsoĪdded some tests of the git annex attach code.

#Git annex remote names Patch

I have finally updated this patch per the feedback on the list.

#Git annex remote names code

OnlyĬontains code for testing org-attach with git annex at the moment. * testing/lisp/test-org-annex.el: New file for testing org-attach. (org-annex-open): Automatically fetch attached files from git annex when (org-attach-annex-fetch-maybe): New function to fetch a file from git * org-attach.el (org-attach-use-annex): New function to check if git Re: org-attach.el: Fetch attachments from git annex