chore(deps-dev): bump shelljs from 0.7.8 to 0.8.5 in /web-ui

CHANGELOG.org

@@ -1,5 +1,9 @@
 * CHANGELOG
 
+** v1.4.6
+
+- Replace `cl-arrow` with `serapeum`.
+
 ** v1.4.5
 
 - Fix cl-case error.

README.org

@@ -5,8 +5,6 @@
 
 I have been using it for a year or so and have been re-thinking of this software for some time. I would like to re-design it and make it more useful for general purpose (and surely for myself).
 
-1.4.4 is the last stable version of existing functionality.
-
 Next release will be a re-implementation of whole software, versioned starting from 2.0.0.
 
 ** Overview

backend/silver-brain.asd

@@ -3,13 +3,13 @@
   :author "YUE Daian"
   :license "MIT"
   :depends-on (;; Utility.
-               #:alexandria #:iterate #:trivia #:cl-arrows #:str #:trivial-types
+               #:alexandria #:iterate #:trivia #:serapeum #:str #:trivial-types
                #:uuid #:unix-opts
                ;; Logging.
                #:log4cl
                ;; Web related.
                #:chameleon #:find-port #:cl-json
-               #:ningle #:clack #:flexi-streams #:mito)
+               #:ningle #:clack #:flexi-streams #:mito #:dbd-sqlite3)
   :components ((:module "src"
                 :serial t
                 :components

backend/src/packages.lisp

@@ -48,8 +48,10 @@
 
 (defpackage silver-brain.server
   (:nicknames server)
-  (:use #:cl #:alexandria #:core #:cl-arrows #:trivia
+  (:use #:cl #:alexandria #:core #:trivia
         #:silver-brain.core)
+  (:import-from #:serapeum
+                #:~>>)
   (:import-from #:ningle
                 #:*request*
                 #:*response*)

backend/src/server/route.lisp

@@ -13,10 +13,10 @@
 
 (defroute *app* GET "/api/concepts" (search)
   (render-json-array
-   (-<>> (if search
-             (service:find-concept-by-name search)
-             (service:get-all-concepts))
-         (mapcar #'concept-summary))))
+   (~>> (if search
+            (service:find-concept-by-name search)
+            (service:get-all-concepts))
+        (mapcar #'concept-summary))))
 
 (defroute *app* POST "/api/concepts" ()
   (match (decode-request-json-alist '(:name :content :content-format))
@@ -56,7 +56,7 @@
 
 (defroute *app* GET "/api/concepts/:uuid/parents" (uuid)
   (let ((concept (get-concept-by-uuid-or-404 uuid)))
-    (->> (concept-parents concept)
+    (~>> (concept-parents concept)
          (mapcar #'concept-summary)
          (render-json-array))))
 
@@ -77,7 +77,7 @@
 
 (defroute *app* GET "/api/concepts/:uuid/children" (uuid)
   (let ((concept (get-concept-by-uuid-or-404 uuid)))
-    (->> (concept-children concept)
+    (~>> (concept-children concept)
          (mapcar #'concept-summary)
          (render-json-array))))
 
@@ -98,7 +98,7 @@
 
 (defroute *app* GET "/api/concepts/:uuid/friends" (uuid)
   (let ((concept (get-concept-by-uuid-or-404 uuid)))
-    (->> (concept-friends concept)
+    (~>> (concept-friends concept)
          (mapcar #'concept-summary)
          (render-json-array))))
 

web-ui/package.json

@@ -53,7 +53,7 @@
     "postcss-url": "^7.2.1",
     "rimraf": "^2.6.0",
     "semver": "^5.3.0",
-    "shelljs": "^0.7.6",
+    "shelljs": "^0.8.5",
     "uglifyjs-webpack-plugin": "^1.1.1",
     "url-loader": "^0.5.8",
     "vue-loader": "^13.3.0",