This file contains hidden or 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
-- Turkce isimler sozlugu twitter : http://twitter.com/tserpico | |
CREATE TABLE `isimler` ( | |
`id` int(11) NOT NULL AUTO_INCREMENT, | |
`isimler` varchar(255) DEFAULT NULL, | |
`cinsiyet` varchar(255) DEFAULT NULL COMMENT 'erkek : E , kadın : K , uniseks : U', | |
PRIMARY KEY (`id`) | |
) ENGINE=InnoDB; | |
-- ---------------------------- |
This file contains hidden or 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
JALE | |
ALİ | |
MAHMUT | |
MANSUR KÜRŞAD | |
GAMZE | |
MİRAÇ | |
YÜCEL | |
KUBİLAY | |
HAYATİ | |
BEDRİYE MÜGE |
This file contains hidden or 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
-- Turkce isimler sozlugu twitter : http://twitter.com/baskindev | |
CREATE TABLE `isimler` ( | |
`id` int(11) NOT NULL AUTO_INCREMENT, | |
`isimler` varchar(255) DEFAULT NULL, | |
`cinsiyet` varchar(255) DEFAULT NULL COMMENT 'erkek : E , kadın : K , uniseks : U', | |
PRIMARY KEY (`id`) | |
) ENGINE=InnoDB; | |
-- ---------------------------- |
This file contains hidden or 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
ŞEN | |
KANDEMİR | |
ÇEVİK | |
ERKURAN | |
TÜTEN | |
ÖZTÜRK | |
YÜZBAŞIOĞLU | |
VURAL | |
YÜCEL | |
SÖNMEZ |
This file contains hidden or 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
(defproject clj-web-app "0.1.0-SNAPSHOT" | |
:description "Clojure ile örnek web uygulama" | |
:url "http://example.com/FIXME" | |
:license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0" | |
:url "https://www.eclipse.org/legal/epl-2.0/"} | |
:dependencies [[org.clojure/clojure "1.10.0"] | |
[ring "1.8.0"] | |
[patika "0.1.10"]] | |
:main ^:skip-aot clj-web-app.core | |
:repl-options {:init-ns clj-web-app.core}) |
This file contains hidden or 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
(ns clj-web-app.core | |
(:require [patika.core :refer [resource get-routes]] | |
[ring.adapter.jetty :refer [run-jetty]] | |
[compojure.core :as c] | |
[compojure.route :as r])) | |
(resource home | |
:get ["/"] | |
:content-type :html | |
:handle-ok (fn [ctx] "<html> |
This file contains hidden or 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 [patika.core :refer [resource get-routes]] | |
[ring.adapter.jetty :refer [run-jetty]] | |
;; Middlewares | |
[ring.middleware.reload :refer [wrap-reload]] | |
[ring.middleware.cookies :refer [wrap-cookies]] | |
[ring.middleware.gzip :refer [wrap-gzip]] | |
[compojure.core :as c] | |
[compojure.route :as r]) |
This file contains hidden or 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 wrap-some-data | |
[handler] | |
(fn [request] | |
(let [updated-request (assoc request :site-owner "Ertuğrul")] | |
;; ▼▼▼ returns response ▼▼▼ | |
(handler updated-request)))) | |
;; :resource-ns-path -> src/clj_web_app dizini altındaki namespace'leri tarar ve tüm `resource`'ları bulup döndürür | |
(def app-routes (get-routes {:resource-ns-path "clj-web-app." |
This file contains hidden or 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 '[clojure.core.logic :refer [== run fresh]] | |
'[clojure.walk :as walk]) | |
(defn function-call->form [form] | |
(walk/prewalk (fn [node] | |
(cond | |
(and (list? node) | |
(or (-> node first resolve nil?) | |
(-> node first resolve meta :special-form) | |
(-> node first resolve meta :macro))) |
This file contains hidden or 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 update-xmind | |
"Manipulates Xmind data and saves as a binary format. Usage: | |
This example updates all \"Report\" titles with \"HEY!\" | |
(update-xmind \"~/xmind-files/report.xmind\" | |
\"~/xmind-files/report-new.xmind\" | |
(fn [data] | |
(o/transform data | |
(o/and | |
(d/query data ?path :title ?title) |