Merge branch 'master' into feature/timestamps

README.org

@@ -1,5 +1,7 @@
 #+TITLE: org-journal-tags
 
+[[https://melpa.org/#/org-journal-tags][file:https://melpa.org/packages/org-journal-tags-badge.svg]]
+
 A package to make sense of +my life+ [[https://github.com/bastibe/org-journal][org-journal]] records.
 
 The package adds the =org-journal:= link type to Org Mode. When placed in an org-journal file, it serves as a "tag" that references one or many paragraphs of the journal or the entire section. These tags are aggregated in the database that can be queried in various ways.
@@ -16,10 +18,10 @@ For instance, when I'm writing down the progress on a job project, I can leave a
 
 If no tag fits the subject matter, the journal can be queried by regular expression, e.g. by searching some regex within a specific time frame. Subsequent searches are also significantly faster than the built-in org-journal search functionality because of caching of the journal files.
 * Installation
-As the package isn’t yet available anywhere but in this repository, you can clone the repository, add it to the load-path and require the package. My preferred way is =use use-package= with =straight=:
+The package is available on MELPA. Install it however you normally install packages, my preferred way is =use-package= with =straight=:
 #+begin_src emacs-lisp
 (use-package org-journal-tags
-  :straight (:host github :repo "SqrtMinusOne/org-journal-tags")
+  :straight t
   :after (org-journal)
   :config
   (org-journal-tags-autosync-mode))

org-journal-tags.el

@@ -6,7 +6,7 @@
 ;; Maintainer: Korytov Pavel <thexcloud@gmail.com>
 ;; Version: 0.2.0
 ;; Package-Requires: ((emacs "27.1") (org-journal "2.1.2") (magit-section "3.3.0") (transient "0.3.7"))
-;; Homepage: https://github.com/SqrtMinusOne/org-journal-tags.el
+;; Homepage: https://github.com/SqrtMinusOne/org-journal-tags
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -331,8 +331,13 @@ The properties are:
     (with-temp-buffer
       (insert-file-contents org-journal-tags-db-file)
       (goto-char (point-min))
-      (setf org-journal-tags-db (read (current-buffer)))
-      (org-journal-tags-db--migrate))))
+      (condition-case err
+          (progn
+            (setf org-journal-tags-db (read (current-buffer)))
+            (org-journal-tags-db--migrate))
+        (error (progn
+                 (message "Recreating the database because of an error")
+                 (setf org-journal-tags-db (org-journal-tags-db--empty))))))))
 
 (defun org-journal-tags-db-ensure ()
   "Ensure that the database has been loaded."