1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# -*- coding: utf-8 -*-
# name: ns
# key: ns
# --
(ns `(flet ((try-src-prefix
(path src-pfx)
(let ((parts (split-string path src-pfx)))
(if (= 2 (length parts))
(second parts)
nil))))
(let* ((p (buffer-file-name))
(p2 (first
(remove-if-not '(lambda (x) x)
(mapcar
'(lambda (pfx)
(try-src-prefix p pfx))
'("/src/cljs/" "/src/clj/" "/src/")))))
(p3 (file-name-sans-extension p2))
(p4 (mapconcat '(lambda (x) x)
(split-string p3 "/")
".")))
(replace-regexp-in-string "_" "-" p4)))`)
|
