diff --git a/project.el b/project.el
index 63143ea..e400f67 100644
--- a/project.el
+++ b/project.el
@@ -350,9 +350,11 @@ Return output file name."
   "Add a link just before source code block with tangled files.
 BACKEND is the export backend. Used as symbol."
   (while ;; (re-search-forward )
-      (re-search-forward "^\\( *\\)#\\+begin_src .*:tangle \\([^\\s\\n]*\\)" nil t)
-    (replace-match "\\1{{{lnk(\\2)}}}\n3\n\\&")))
+      (re-search-forward "^\\( *\\)#\\+begin_src .*:tangle \\([^\s\n]*\\)" nil t)
+    (replace-match "\\1#+CAPTION: [[./\\2][=\\2=]]\n\\&")))
 
-(add-hook 'org-export-before-processing-hook 'my-add-link-to-tangled-files)
+(setq org-export-before-processing-hook nil)
+(add-hook 'org-export-before-processing-hook
+          'my-add-link-to-tangled-files)
 
 (provide 'her-esy-fun-publish)
diff --git a/project.el.sig b/project.el.sig
index 4ef72ea..7fd3340 100644
Binary files a/project.el.sig and b/project.el.sig differ
diff --git a/src/css/mk.css b/src/css/mk.css
index b6d9bc7..530fcb1 100644
--- a/src/css/mk.css
+++ b/src/css/mk.css
@@ -242,7 +242,12 @@ figure, .figure {
     cursor: pointer;
     font-style: italic;
 }
-
+label + pre {
+    margin-top: 0;
+}
+label {
+    padding-left: 1.5em;
+}
 /* colors theme */
 /* --------------------------------------------------------------------------- */
 /* Dark theme selected */
@@ -369,8 +374,9 @@ li .keywords {
 .main ol > li:before, ol > li:before,
 pre::after,pre::before,hr:after,
 .main pre::after,.main pre::before,.main hr:after,
-blockquote:after, .main blockquote:after
- {
+blockquote:after, .main blockquote:after,
+label, label a, .main label, .main label a
+{
     color: var(--fg0);
 }
 nav a, nav a:visited, .main nav a,.main nav a:visited {
diff --git a/src/demo.org b/src/demo.org
index 691bda7..26507ce 100644
--- a/src/demo.org
+++ b/src/demo.org
@@ -271,6 +271,18 @@ main = do
   putStrLn $ "Hello " <> name <> "!"
 #+end_src
 
+** Tangled
+:PROPERTIES:
+:CUSTOM_ID: tangled
+:END:
+
+#+begin_src clojure :tangle my-dir/pprint.clj :mkdir t
+(defn clj-fn
+  "A clojure function with syntax highlighting"
+  [arg]
+  (clojure.pprint/pprint arg))
+#+end_src
+
 #+begin_src haskell :tangle hello_world.hs
 -- main hello world
 main :: IO ()
diff --git a/src/posts/0010-Haskell-Now/index.org b/src/posts/0010-Haskell-Now/index.org
index b0f46a1..0d963b2 100644
--- a/src/posts/0010-Haskell-Now/index.org
+++ b/src/posts/0010-Haskell-Now/index.org
@@ -157,13 +157,6 @@ The article contains five parts:
 
 - *Start swimming*: Start a new project.
 
-** Helpers                                                                             :noexport:
-:PROPERTIES:
-:CUSTOM_ID: helpers
-:END:
-
-#+MACRO: lnk @@html:<a href="$1" class="codefile" target="_blank">$1 ⤓</a>@@
-
 ** Install
 :PROPERTIES:
 :CUSTOM_ID: install