library 7.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323
  1. #!/bin/zsh -f
  2. # packaging, library.org
  3. LIBRARYFILE=~/.library/library.rec
  4. LIBRARYDIRECTORY=~/.library
  5. GIT=detect
  6. # help-message, /home/swflint/org/library.org
  7. if [[ $# -eq 0 ]] ; then
  8. echo "library [ help | query | add | emacs | git | bulk-add | report | edit | loan | do-return | init ]"
  9. exit
  10. fi
  11. function display-help {
  12. cat <<EOF
  13. library [ help | query | add | emacs | git | bulk-add | report | edit | loan | do-return | init ]
  14. help: Display this help message.
  15. query: Query Library Database.
  16. add: Add a singular book record.
  17. emacs: View records in emacs.
  18. git: Run a git command.
  19. bulk-add: Add a specified number of records.
  20. report: Run a report.
  21. edit: Edit the value of a specified field in a specified record.
  22. loan: Loan a book out.
  23. do-return: Process a book return
  24. init: Initialize the database.
  25. EOF
  26. }
  27. # help-message ends here
  28. # handle-reports, /home/swflint/org/library.org
  29. function do-report {
  30. if [[ $# -lt 1 ]] ; then
  31. echo "library report name args*"
  32. exit 1
  33. fi
  34. NAME=$1
  35. shift
  36. case ${NAME} in
  37. list)
  38. for report in ${LIBRARYDIRECTORY}/*.report ;
  39. do
  40. echo " - $(basename -- ${report} .report)"
  41. done
  42. ;;
  43. new)
  44. if [[ $# -lt 1 ]] ; then
  45. echo "library report new name"
  46. exit 1
  47. fi
  48. REPORT=$1
  49. shift
  50. echo "# -*- mode: shell-script -*-" > ${LIBRARYDIRECTORY}/${REPORT}.report
  51. emacsclient --alternate-editor="" -n ${LIBRARYDIRECTORY}/${REPORT}.report
  52. ;;
  53. *)
  54. if [[ -e ${LIBRARYDIRECTORY}/${NAME}.report ]] ; then
  55. sh ${LIBRARYDIRECTORY}/${NAME}.report $@
  56. fi
  57. esac
  58. }
  59. # handle-reports ends here
  60. # handle-git, /home/swflint/org/library.org
  61. function do-git {
  62. if [[ $# -lt 1 ]] ; then
  63. echo "library git args*"
  64. exit 1
  65. fi
  66. FIRST=$1
  67. if [[ $FIRST == "init" ]] ; then
  68. OLD=`pwd`
  69. cd ${LIBRARYDIRECTORY}
  70. git $@
  71. cd ${OLD}
  72. else
  73. if [[ $GIT == "detect" ]] ; then
  74. OLD=`pwd`
  75. cd ${LIBRARYDIRECTORY}
  76. git $@
  77. cd ${OLD}
  78. fi
  79. fi
  80. }
  81. # handle-git ends here
  82. # handle-query, /home/swflint/org/library.org
  83. function run-query {
  84. recsel -t Book $@ ${LIBRARYFILE}
  85. }
  86. # handle-query ends here
  87. # add-book, /home/swflint/org/library.org
  88. function add-single {
  89. if [[ $# -lt 7]] ; then
  90. echo -n "Title: "
  91. read TITLE
  92. echo -n "Author: "
  93. read AUTHOR
  94. echo -n "LCCN: "
  95. read LCCN
  96. echo -n "Copyright: "
  97. read COPYRIGHT
  98. echo -n "Publisher: "
  99. read PUBLISHER
  100. echo -n "ISBN: "
  101. read ISBN
  102. echo -n "Location: "
  103. read LOCATION
  104. else
  105. TITLE=$1
  106. shift
  107. AUTHOR=$1
  108. shift
  109. LCCN=$1
  110. shift
  111. COPYRIGHT=$1
  112. shift
  113. PUBLISHER=$1
  114. shift
  115. ISBN=$1
  116. shift
  117. LOCATION=$1
  118. shift
  119. fi
  120. recins -t Book \
  121. -f Title -v "${TITLE}" \
  122. -f Author -v "${AUTHOR}" \
  123. -f LCCN -v "${LCCN}" \
  124. -f Copyright -v "${COPYRIGHT}" \
  125. -f Publisher -v "${PUBLISHER}" \
  126. -f ISBN -v "${ISBN}" \
  127. -f Location -v "${LOCATION}" \
  128. ${LIBRARYFILE}
  129. do-git add `basename ${LIBRARYFILE}`
  130. do-git commit -m "Added record for \"${TITLE}\""
  131. }
  132. # add-book ends here
  133. # add-in-bulk, /home/swflint/org/library.org
  134. function bulk-add {
  135. if [[ $@ -lt 1 ]] ; then
  136. echo "library bulk-add number"
  137. exit 1
  138. fi
  139. GITOLD=${GIT}
  140. GIT=FALSE
  141. for i in {1..$1} ; do
  142. echo "Adding book number ${i}"
  143. add-single
  144. done
  145. GIT=${GITOLD}
  146. do-git add `basename ${LIBRARYFILE}`
  147. do-git commit -m "Added ${1} records"
  148. }
  149. # add-in-bulk ends here
  150. # edit-field, /home/swflint/org/library.org
  151. function do-edit {
  152. if [[ $# -lt 2 ]] ; then
  153. echo "ledger edit id field [ value ]"
  154. exit 1
  155. fi
  156. ID=$1
  157. shift
  158. FIELD=$1
  159. shift
  160. if [[ $FIELD = "Withdrawn" ]] ; then
  161. recset -e "ID = ${ID}" \
  162. -f "Withdrawn" -S "`date +"%a, %d %b %Y %H:%M:%S %z"`" \
  163. ${LIBRARYFILE}
  164. else
  165. VALUE=$1
  166. shift
  167. recset -e "ID = ${ID}" \
  168. -f "${FIELD}" -s "${VALUE}" \
  169. ${LIBRARYFILE}
  170. fi
  171. do-git add `basename ${LIBRARYFILE}`
  172. do-git commit -m "Edited record id ${ID}"
  173. }
  174. # edit-field ends here
  175. # initialize-database, /home/swflint/org/library.org
  176. function initialize {
  177. OLD=`pwd`
  178. mkdir -p ${LIBRARYDIRECTORY}
  179. cd ${LIBRARYDIRECTORY}
  180. [[ -ne `basename ${LIBRARYFILE}` ]] && \
  181. cat <<EOF > `basename ${LIBRARYFILE}`
  182. # file-format, /home/swflint/org/library.org
  183. # -*- mode: rec -*-
  184. %rec: Book
  185. %doc: Foo
  186. %key: ID
  187. %unique: Title
  188. %type: ID int
  189. %type: Title line
  190. %type: Author line
  191. %type: LCCN line
  192. %type: ISBN regexp /[0-9]*X?/
  193. %type: Publisher line
  194. %type: Copyright int
  195. %type: Location line
  196. %type: Withdrawn date
  197. %type: Inserted date
  198. %type: LoanTo line
  199. %type: LoanOn date
  200. %mandatory: Title Author LCCN Inserted
  201. %allowed: ISBN Publisher Copyright Location Withdrawn LoanTo LoanOn
  202. %auto: ID Inserted
  203. # file-format ends here
  204. EOF
  205. }
  206. # initialize-database ends here
  207. # view-in-emacs, /home/swflint/org/library.org
  208. function view-in-emacs {
  209. emacsclient --alternate-editor="" -n ${LIBRARYFILE}
  210. }
  211. # view-in-emacs ends here
  212. # loan, /home/swflint/org/library.org
  213. function do-loan {
  214. if [[ $# -lt 2 ]] ; then
  215. echo "library loan id name"
  216. exit 1
  217. fi
  218. ID=$1
  219. shift
  220. NAME=$1
  221. shift
  222. recset -e "ID = ${ID}" \
  223. -f "LoanTo" -S "${NAME}" \
  224. ${LIBRARYFILE}
  225. recset -e "ID = ${ID}" \
  226. -f "LoanOn" -S "`date +"%a, %d %b %Y %H:%M:%S %z"`" \
  227. ${LIBRARYFILE}
  228. do-git add `basename ${LIBRARYFILE}`
  229. do-git commit -m "Loaned Book ${ID} to ${NAME}"
  230. }
  231. function do-return {
  232. if [[ $# -lt 1 ]] ; then
  233. echo "library return-book id"
  234. exit 1
  235. fi
  236. ID=$1
  237. shift
  238. recset -e "ID = ${ID}" \
  239. -f "LoanTo" -d \
  240. ${LIBRARYFILE}
  241. recset -e "ID = ${ID}" \
  242. -f "LoanOn" -d \
  243. ${LIBRARYFILE}
  244. do-git add `basename ${LIBRARYFILE}`
  245. do-git commit -m "Returned Book ${ID}"
  246. }
  247. # loan ends here
  248. # process-commands, /home/swflint/org/library.org
  249. COMMAND=$1
  250. shift
  251. case ${COMMAND} in
  252. help)
  253. display-help
  254. exit
  255. ;;
  256. query)
  257. run-query $@
  258. exit
  259. ;;
  260. add)
  261. add-single $@
  262. exit
  263. ;;
  264. git)
  265. do-git $@
  266. exit
  267. ;;
  268. bulk-add)
  269. bulk-add $@
  270. exit
  271. ;;
  272. report)
  273. do-report $@
  274. exit
  275. ;;
  276. emacs)
  277. view-in-emacs
  278. exit
  279. ;;
  280. edit)
  281. do-edit $@
  282. exit
  283. ;;
  284. loan)
  285. do-loan $@
  286. exit
  287. ;;
  288. return-book)
  289. do-return $@
  290. exit
  291. ;;
  292. init)
  293. initialize
  294. exit
  295. ;;
  296. *)
  297. display-help
  298. exit
  299. esac
  300. # process-commands ends here
  301. # packaging ends here