helpers.cljs

(ns gurps.utils.helpers
  (:require [clojure.string :as str]))

(defn default-to
  "Returns the default value if the value is nil or empty"
  [v default]
  (if (or (and (seqable? v) (empty? v)) (nil? v))
    default
    v))

(defn ->int
  [n]
  (let [ret (js/parseInt n)]
    (if (js/isNaN ret)
      0
      ret)))

(defn str->key
  [str]
  (keyword str))

(defn key->str
  [key]
  (str (symbol key)))

(defn flatten-key
  [key]
  (symbol
   (if (some? (namespace key))
     (str (namespace key) "-" (name key))
     (str (name key)))))

(defn pluralize-key
  [key]
  (symbol
   (if (some? (namespace key))
     (str (namespace key) "s-" (name key))
     (str (name key) "s"))))

(defn singularize
  "Not exhaustive, but good enough for now
  can use https://www.npmjs.com/package/pluralize for more"
  [s]
  (str/replace s #"(s)$" ""))

(defn singularize-key
  "Returns the singular form of the key.
  e.g. :skills -> :skill
       :skills/weapon -> :skill/weapon"
  [key]
  (symbol
   (if (some? (namespace key))
     (str (singularize (namespace key)) "-" (name key))
     (str (singularize (name key))))))

;; NOTE: because 'positions has vanished from clojure.contrib.seq
(defn positions
  [pred coll]
  (keep-indexed (fn [idx x]
                  (when (pred x)
                    idx))
                coll))

(defn index-of
  [e coll]
  (first (keep-indexed #(when (= e %2) %1) coll)))