Commit f1147aef authored by Victor A. Stoichiţă's avatar Victor A. Stoichiţă
Browse files

change in ebib: ebib-file-field no longer customizable, void variable

parent 1258d529
......@@ -87,11 +87,11 @@ database that contains the entry."
"Regexp identifying filenames of annotated pdfs")
(add-to-list 'ebib-notes-template-specifiers
;; %N specifier
;; %N specifier: Org noter
'(78 . vic/ebib-create-org-noter-id))
(add-to-list 'ebib-notes-template-specifiers
;; %N specifier
;; %G specifier: tags
'(71 . vic/ebib-create-note-tags))
;; No newline before %N: `vic/ebib-create-org-noter-id' adds it when needed
......
......@@ -67,8 +67,8 @@ Version 2015-06-08"
;; (message (bibtex-generate-autokey)))
(defun vic/ebib-create-org-noter-id (key db)
"Create an org-noter property linking to the first pdf file in entry KEY in DB. If an annotated file exists according to `vic/pdf-annotated-filename-regexp' it is preferred. If `ebib-file-field' is empty or has no pdf file, return the empty string."
(let ((files-with-props (ebib-get-field-value ebib-file-field key db 'noerror 'unbraced 'xref))
"Create an org-noter property linking to the first pdf file in entry KEY in DB. If an annotated file exists according to `vic/pdf-annotated-filename-regexp' it is preferred. If `file' is empty or has no pdf file, return the empty string."
(let ((files-with-props (ebib-get-field-value "file" key db 'noerror 'unbraced 'xref))
(noter-property org-noter-property-doc-file)
(pdf-ext "\.pdf$")
(annotated vic/pdf-annotated-filename-regexp)
......
......@@ -42,7 +42,7 @@ If filename exists, ask for new filename."
(db ebib--cur-db)
(key (ebib--get-key-at-point))
;; (key "V-test-key")
(files-field (ebib-get-field-value ebib-file-field key db nil t))
(files-field (ebib-get-field-value "file" key db nil t))
;; (files-field zotfileshtml) ;
(newpaths ()) ;; list of paths to add to entry
(errors nil)) ;; holds the error status of an entry
......@@ -139,7 +139,7 @@ If filename exists, ask for new filename."
(setq new-field (concat new-field ebib-filename-separator)))
(setq new-field (concat new-field (ebib--transform-file-name-for-storing felm))))
;; store the field
(ebib-set-field-value ebib-file-field new-field key db 'overwrite))
(ebib-set-field-value "file" new-field key db 'overwrite))
;; Set modified flag
(vic/ebib-set-modified-and-refresh key db))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment