From 81bec9876391e0d9f472928b500cb82a41e96115 Mon Sep 17 00:00:00 2001
From: Cam Saul <cam@getluckybird.com>
Date: Thu, 26 Mar 2015 15:58:19 -0700
Subject: [PATCH] tell emacs which args are docstrings for
 `defhook`/`defsetting`

---
 .dir-locals.el | 48 +++++++++++++++++++++++++-----------------------
 1 file changed, 25 insertions(+), 23 deletions(-)

diff --git a/.dir-locals.el b/.dir-locals.el
index f6e8882f02f..b4155c71642 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,23 +1,25 @@
-((clojure-mode . ((eval . (progn
-                            ;; Define custom indentation for functions inside metabase.
-                            ;; This list isn't complete; add more forms as we come across them.
-                            (define-clojure-indent
-                              (api-let 2)
-                              (auto-parse 1)
-                              (catch-api-exceptions 0)
-                              (check 1)
-                              (context 2)
-                              (execute-query 1)
-                              (expect 1)
-                              (expect-eval-actual-first 1)
-                              (expect-let 1)
-                              (ins 1)
-                              (let-400 1)
-                              (let-404 1)
-                              (let-500 1)
-                              (match 1)
-                              (match-$ 1)
-                              (macrolet 1)
-                              (org-perms-case 1)
-                              (upd 2)
-                              (with-credentials 1)))))))
+((clojure-mode . (eval . (progn
+                           (put 'defhook 'clojure-doc-string-elt 2)
+                           (put 'defsetting 'clojure-doc-string-elt 2)
+                           ;; Define custom indentation for functions inside metabase.
+                           ;; This list isn't complete; add more forms as we come across them.
+                           (define-clojure-indent
+                             (api-let 2)
+                             (auto-parse 1)
+                             (catch-api-exceptions 0)
+                             (check 1)
+                             (context 2)
+                             (execute-query 1)
+                             (expect 1)
+                             (expect-eval-actual-first 1)
+                             (expect-let 1)
+                             (ins 1)
+                             (let-400 1)
+                             (let-404 1)
+                             (let-500 1)
+                             (match 1)
+                             (match-$ 1)
+                             (macrolet 1)
+                             (org-perms-case 1)
+                             (upd 2)
+                             (with-credentials 1))))))
-- 
GitLab