adding new failure cases in preparation for the new parser

src/marginalia/core.clj

@@ -160,6 +160,9 @@
        ;; and does the current line start with a quote?
        (and (re-find #"^\(defmacro" last-code-text)
             (re-find #"^\"" (str/trim (str line))))
+       ;; 
+       (and (re-find #".*\[this" last-code-text)
+            (re-find #"^\"" (str/trim (str line))))
        ;; Is the prev line a docstring, prev line not end with a quote,
        ;; and the current line empty?
        (and (:docstring-text l)

src/problem_cases/general.clj

@@ -21,10 +21,17 @@
   "Here is just a string.  It should be to the right."
   (* x x))
 
-(defmacro foobar
-  "This is a macro docstring.  It should be on the left."
-  [& body]
-  `~body)
+(defprotocol Relation
+  (select     [this predicate]
+    "Confines the query to rows for which the predicate is true
+
+     Ex. (select (table :users) (where (= :id 5)))")
+  (join       [this table2 join_on]
+    "Joins two tables on join_on
+
+     Ex. (join (table :one) (table :two) :id)
+         (join (table :one) (table :two)
+               (where (= :one.col :two.col)))"))
 
 (defmulti bazfoo
   "This is a defmulti docstring, it should also be on the left"