diff options
Diffstat (limited to 'local')
| -rw-r--r-- | local/bibli-paris/bibli-paris.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/local/bibli-paris/bibli-paris.el b/local/bibli-paris/bibli-paris.el index eb8f172..ca00fab 100644 --- a/local/bibli-paris/bibli-paris.el +++ b/local/bibli-paris/bibli-paris.el @@ -186,19 +186,25 @@ date if borrowed and set to the maximum unix date if unavailable." "Remove extra whitespace from and uniformizes the quote QUOTE." (let ((blank "[[:blank:]\r\n]+") (result entry-quote)) + ;; " " -> " " (setq result (replace-regexp-in-string blank " " result)) + ;; "$ " -> "$" (setq result (string-trim result blank blank)) + ;; "BD EN RESERVE" -> "EN RESERVE BD" (setq result (replace-regexp-in-string "BD EN RESERVE" "EN RESERVE BD" result t t)) + ;; "BD MANGA" -> "MANGA" (setq result (replace-regexp-in-string "BD MANGA" "MANGA" result t t)) + ;; "BD COMICS" -> "COMICS" (setq result (replace-regexp-in-string "BD COMICS" "COMICS" result t t)) + ;; "1" -> "01" (setq result (replace-regexp-in-string - "\\([^0-9/]\\)\\([0-9]\\)\\($\\|\/\\)" + "\\([^0-9/]\\)\\([0-9]\\)\\($\\|\/\\| \\)" "\\10\\2\\3" result)) result)) |