including name into oneliner response json body

2 files changed, 5 insertions, 13 deletions

diff --git a/clpmfile.lock b/clpmfile.lock
index 304d952..4c43c1c 100644
--- a/clpmfile.lock
+++ b/clpmfile.lock
@@ -83,7 +83,6 @@
  ("oneliners.api"))
 ("proc-parse" :version "2019-08-13" :source "quicklisp" :systems ("proc-parse"))
 ("rfc2388" :version "2018-08-31" :source "quicklisp" :systems ("rfc2388"))
-("slime" :version "2022-02-20" :source "quicklisp" :systems ("swank"))
 ("split-sequence" :version "2021-05-31" :source "quicklisp" :systems
  ("split-sequence"))
 ("static-vectors" :version "2021-06-30" :source "quicklisp" :systems
@@ -215,23 +214,17 @@
 
 ("lambda-riffs"
  ((:system :name "oneliners.api") (:system :name "lambda-riffs"))
- (t
-  (:project :name "lambda-riffs" :commit
-   "83b4f38ffb34dc39164024592e6a6a9743ae53f1" :source :implicit-vcs)))
+ (t (:project :name "lambda-riffs" :branch "master" :source :implicit-vcs)))
 
 ("lazybones"
  ((:system :name "oneliners.api") (:system :name "lazybones-hunchentoot"))
  ((:system :name "lazybones-hunchentoot") (:system :name "lazybones"))
  ((:system :name "lazybones-client") (:system :name "lazybones"))
- (t
-  (:project :name "lazybones" :commit
-   "02874f575215f9665d99943a79541d4f849d50c3" :source :implicit-vcs)))
+ (t (:project :name "lazybones" :branch "master" :source :implicit-vcs)))
 
 ("lazybones-client"
  ((:system :name "oneliners.api") (:system :name "lazybones-client"))
- (t
-  (:project :name "lazybones-client" :commit
-   "d87613168212893714e17b4ab5feb3d9e9e16e0c" :source :implicit-vcs)))
+ (t (:project :name "lazybones-client" :branch "main" :source :implicit-vcs)))
 
 ("lisp-namespace"
  ((:system :name "lazybones") (:system :name "lisp-namespace")))
@@ -249,8 +242,6 @@
 
 ("rfc2388" ((:system :name "hunchentoot") (:system :name "rfc2388")))
 
-("slime" ((:system :name "oneliners.api") (:system :name "swank")))
-
 ("split-sequence" ((:system :name "usocket") (:system :name "split-sequence")))
 
 ("static-vectors" ((:system :name "fast-io") (:system :name "static-vectors")))
diff --git a/src/main.lisp b/src/main.lisp
index 573f622..5e8bb5d 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -176,10 +176,11 @@
   (with-slots
         (db::id oneliner tags brief explanation
          created-at edited-at last-edited-by created-by
-         flagged-by audited-by lockedp runstyle)
+         flagged-by audited-by lockedp runstyle name)
       instance
     (json:with-object
       (json:write-key-value :id db::id)
+      (json:write-key-value :name (if name name :false))
       (json:write-key-value :oneliner oneliner)
       (json:write-key-value :tags tags)
       (json:write-key-value :brief brief)