;; find the idents of all schema elements in the system
(sort (d/q '[:find [?ident ...]
:where [_ :db/ident ?ident]]
db))
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import javax.servlet.RequestDispatcher; | |
import javax.servlet.ServletException; | |
import javax.servlet.http.HttpServlet; | |
import javax.servlet.http.HttpServletRequest; | |
import javax.servlet.http.HttpServletResponse; | |
import java.io.IOException; | |
public class HomeServlet extends HttpServlet { | |
public static final String LOGIN_PAGE = "/login.jsp"; |
See technomancy/leiningen#1349 and technomancy/leiningen#615
add use-agent
at then end of ~/.gnupg/gpg.conf
start the gpg-agent
gpg-agent --daemon
Then copy paste the output eg.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn dashboard-component-view [cursor owner {:keys [div-id title]}] | |
(reify | |
om/IInitState | |
(init-state [_] | |
(let [width 960 height 500] | |
{:width width :height height | |
:comm (chan) | |
:svg nil | |
})) | |
om/IRender |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn portfolio-perf-view [cursor owner {:keys [div-id title]}] | |
(reify | |
om/IRender | |
(render [_] | |
(dom/div #js {:id div-id} | |
(dom/svg nil))) | |
om/IDidMount | |
(did-mount [_] | |
(.addGraph js/nv | |
(fn [] |
- Launch tests with IntelliJ Test runner
- Introduce a 'duplicate sexp' action (instead of Copy as Kill, go to next line, paste)
- Align map support for map destructuring:
{:keys [title color]} @project
- No completion for clojurescript in repl. If I do
(def my-var "foo")
, it can’t autocomplete my-var, and highlights it - can’t recognize stuff like (reg-sub :foo …) as a top level form, so it skips over those when navigating up and down to top-level forms.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(require '[datomic.api :as d]) | |
(def dburi "datomic:dev://localhost:4334/koturo") | |
;; failed projects | |
(map first (d/q '[:find (pull ?p [*]) | |
:where | |
[?p :project/closed true] | |
[?p :project/successful false] | |
] | |
(d/db (d/connect dburi)))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| :project/platform | :project/name | :project/terms | :project/average-rate | :project/fixed-rate | :project/end-date | | |
|-------------------+---------------------------------------------------------------+----------------+-----------------------+---------------------+-------------------------------| | |
| Lendosphere | Pretez a InnoVent pour le developpement du solaire en Afrique | 48 | | 6.0 | Sun Oct 18 02:00:00 CEST 2015 | | |
| Lendopolis | Nouveaux espaces de jeux | 48 | | 10.5 | Thu Oct 15 02:00:00 CEST 2015 | | |
| Unilend | C.G.M.O.D. | 48 | 8.9 | | Thu Oct 15 02:00:00 CEST 2015 | | |
| Lendopolis | Electricité et Superstructures | 48 | |
OlderNewer