Implement :inline syntax; allow select call without alias

src/honey/sql.cljc

@@ -101,13 +101,15 @@
 
 (defn- format-entity-alias [x]
   (cond (sequential? x)
-        (str (let [s (first x)]
-               (if (map? s)
+        (let [s     (first x)
+              pair? (< 1 (count x))]
+          (when (map? s)
             (throw (ex-info "selectable cannot be statement!"
-                                 {:selectable s}))
-                 (format-entity s)))
-             #_" AS " " "
-             (format-entity (second x) {:aliased? true}))
+                            {:selectable s})))
+          (cond-> (format-entity s)
+            pair?
+            (str #_" AS " " "
+                 (format-entity (second x) {:aliased? true}))))
 
         :else
         (format-entity x)))
@@ -118,15 +120,19 @@
 
         (sequential? x)
         (let [s     (first x)
+              pair? (< 1 (count x))
               a     (second x)
               [sql & params] (if (map? s)
                                (format-dsl s {:nested? true})
                                (format-expr s))
-              [sql' & params'] (if (sequential? a)
+              [sql' & params'] (when pair?
+                                 (if (sequential? a)
                                    (let [[sql params] (format-expr-list a {:aliased? true})]
                                      (into [(str/join " " sql)] params))
-                                 (format-selectable-dsl a {:aliased? true}))]
-          (-> [(str sql (if as? " AS " " ") sql')]
+                                   (format-selectable-dsl a {:aliased? true})))]
+          (-> [(cond-> sql
+                 pair?
+                 (str (if as? " AS " " ") sql'))]
               (into params)
               (into params')))
 
@@ -401,6 +407,14 @@
       (into (vals infix-aliases))
       (->> (into #{} (map keyword)))))
 
+(defn- sqlize-value [x]
+  (cond
+    (nil? x)     "NULL"
+    (string? x)  x ; I feel this should be 'single-quoted' but 1.x does not
+    (symbol? x)  (name x)
+    (keyword? x) (name x)
+    :else        (str x)))
+
 (def ^:private special-syntax
   {:array
    (fn [[arr]]
@@ -419,6 +433,9 @@
    (fn [[x type]]
      (let [[sql & params] (format-expr x)]
        (into [(str "CAST(" sql " AS " (sql-kw type) ")")] params)))
+   :inline
+   (fn [[x]]
+     [(sqlize-value x)])
    :interval
    (fn [[n units]]
      (let [[sql & params] (format-expr n)]

test/honey/sql_test.cljc

@@ -291,11 +291,10 @@
              (format {:dialect :mysql})))))
 
 (deftest inlined-values-are-stringified-correctly
-    (is nil "inline unimplemented")
-  #_(is (= ["SELECT foo, bar, NULL"]
-           (format {:select [(honeysql.core/inline "foo")
-                             (honeysql.core/inline :bar)
-                             (honeysql.core/inline nil)]}))))
+  (is (= ["SELECT foo, bar, NULL"]
+         (format {:select [[[:inline "foo"]]
+                           [[:inline :bar]]
+                           [[:inline nil]]]}))))
 
 ;; Make sure if Locale is Turkish we're not generating queries like İNNER JOIN (dot over the I) because
 ;; `string/upper-case` is converting things to upper-case using the default Locale. Generated query should be the same