Fix issue where tags fields values first character was read-only

Eldev

@@ -2,3 +2,4 @@
 
 (eldev-use-package-archive 'gnu-elpa)
 (eldev-use-plugin 'maintainer)
+(eldev-add-extra-dependencies 'test '(:package markdown-mode :archive melpa))

ekg-test.el

@@ -25,6 +25,7 @@
 (require 'ert)
 (require 'ert-x)
 (require 'org)
+(require 'markdown-mode)
 (require 'ekg-test-utils)
 
 (ekg-deftest ekg-test-note-lifecycle ()
@@ -316,6 +317,33 @@
       (should (= (overlay-end o) (+ 1 (length "Tags: test\n"))))
       (should (= (point) (overlay-end o))))))
 
+(ekg-deftest ekg-test-metadata-read-only ()
+  (dolist (mode '(org-mode markdown-mode text-mode))
+    (let ((ekg-capture-default-mode mode))
+      (cl-loop for i from 1 to 10
+               do
+               (ekg-capture)
+               ;; TODO(ahyatt) Find out why this is necessary to reproduce bad
+               ;; behavior.
+               (funcall mode)
+               (goto-char i)
+               (cond
+                ((= i 1)
+                 (ert-info
+                     ((format "%s: Inserting text at position %d in beginning of the line should be allowed."
+                              mode i))
+                   (insert "foo")))
+                ((> i (length "Tags: "))
+                 (ert-info
+                     ((format "%s: Inserting text at position %d in the field value should be allowed."
+                              mode i))
+                   (insert "foo")))
+                (t (ert-info
+                       ((format "%s: Inserting text at position %d in the tag field name should not be allowed."
+                                mode i))
+                     (should-error (insert "foo")))))
+               (kill-buffer)))))
+
 (ekg-deftest ekg-test-draft ()
   (ekg-capture :tags '("test"))
   (insert "foo")

ekg.el

@@ -1237,7 +1237,7 @@ This will be displayed at the top of the note buffer."
     (format "%s%s%s"
             (concat
              (propertize (concat property ":") 'face 'bold 'read-only read-only)
-             (propertize " " 'read-only read-only 'rear-nonsticky t))
+             (propertize " " 'read-only nil 'rear-nonsticky t))
             value
             (propertize "\n" 'read-only read-only 'rear-nonsticky t))))