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." ...@@ -87,11 +87,11 @@ database that contains the entry."
"Regexp identifying filenames of annotated pdfs") "Regexp identifying filenames of annotated pdfs")
(add-to-list 'ebib-notes-template-specifiers (add-to-list 'ebib-notes-template-specifiers
;; %N specifier ;; %N specifier: Org noter
'(78 . vic/ebib-create-org-noter-id)) '(78 . vic/ebib-create-org-noter-id))
(add-to-list 'ebib-notes-template-specifiers (add-to-list 'ebib-notes-template-specifiers
;; %N specifier ;; %G specifier: tags
'(71 . vic/ebib-create-note-tags)) '(71 . vic/ebib-create-note-tags))
;; No newline before %N: `vic/ebib-create-org-noter-id' adds it when needed ;; No newline before %N: `vic/ebib-create-org-noter-id' adds it when needed
......
...@@ -67,8 +67,8 @@ Version 2015-06-08" ...@@ -67,8 +67,8 @@ Version 2015-06-08"
;; (message (bibtex-generate-autokey))) ;; (message (bibtex-generate-autokey)))
(defun vic/ebib-create-org-noter-id (key db) (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." "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 ebib-file-field key db 'noerror 'unbraced 'xref)) (let ((files-with-props (ebib-get-field-value "file" key db 'noerror 'unbraced 'xref))
(noter-property org-noter-property-doc-file) (noter-property org-noter-property-doc-file)
(pdf-ext "\.pdf$") (pdf-ext "\.pdf$")
(annotated vic/pdf-annotated-filename-regexp) (annotated vic/pdf-annotated-filename-regexp)
......
...@@ -42,7 +42,7 @@ If filename exists, ask for new filename." ...@@ -42,7 +42,7 @@ If filename exists, ask for new filename."
(db ebib--cur-db) (db ebib--cur-db)
(key (ebib--get-key-at-point)) (key (ebib--get-key-at-point))
;; (key "V-test-key") ;; (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) ; ;; (files-field zotfileshtml) ;
(newpaths ()) ;; list of paths to add to entry (newpaths ()) ;; list of paths to add to entry
(errors nil)) ;; holds the error status of an entry (errors nil)) ;; holds the error status of an entry
...@@ -139,7 +139,7 @@ If filename exists, ask for new filename." ...@@ -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-filename-separator)))
(setq new-field (concat new-field (ebib--transform-file-name-for-storing felm)))) (setq new-field (concat new-field (ebib--transform-file-name-for-storing felm))))
;; store the field ;; 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 ;; Set modified flag
(vic/ebib-set-modified-and-refresh key db)) (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