blob: 3b50ad84270290f29f8df7e880ccbf1b7ee208d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
;;; library.el --- Forms control file for library management -*- lexical-binding: t; -*-
;; Copyright (C) 2023 Duncan W
;; Author: Duncan W <dnw@functorial.xyz>
;; Keywords:
(setq forms-file "library.tsv"
forms-format-list '("====== Library Book ======\n\n"
;; Basic info.
"\"" title "\""
" by " author ".\n"
"Description:\n" description "\n"
"\n\n"
;; Publication information.
"Edition " edition
(if (string-equal (nth volume forms-fields) "")
" "
", volume ")
volume
(if (string-equal (nth volume forms-fields) "")
""
"; ")
"published by " publisher ", "
(if (string-equal (nth series forms-fields) "")
""
"in the ")
series
(if (string-equal (nth series forms-fields) "")
""
" series, ")
"in " year "."
"\n\n"
;; Physical information.
"Hardcover: " hardcover? "\n"
"Jacket: " jacket? "\n"
condition " condition; "
page-count " pages.\n"
"Last location: " location
"\n\n"
;; Classification information.
"ISBN-13: " isbn-13
"\nLC Classification: " lc
"\nLibgen MD5: " md5
"\n\n"
;; My relationship with it.
"Reading status " status ": "
(cond ((string-equal (nth status forms-fields) "0") "On the wishlist.")
((string-equal (nth status forms-fields) "1") "Unread.")
((string-equal (nth status forms-fields) "2") "Skimmed a little.")
((string-equal (nth status forms-fields) "3") "Read at surface level.")
((string-equal (nth status forms-fields) "4") "Read a good chunk in depth.")
((string-equal (nth status forms-fields) "5") "Completely mastered.")
(t ""))
"\nBought from " purchase-from
", " purchase-date ".\n"
"Opinion:\n" opinion)
forms-number-of-fields (forms-enumerate
'(title
author
publisher
series
edition
volume
year
page-count
condition
hardcover?
jacket?
location
isbn-13
lc
md5
status
purchase-from
purchase-date
opinion
description))
forms-field-sep "\t"
forms-read-only nil
forms-multi-line " "
forms-read-file-filter nil
forms-write-file-filter nil
forms-new-record-filter nil
forms-insert-after nil
forms-check-number-of-fields t)
|
