Temporary fix for slow rendering of deft file list: jrblevin/deft#43

Issue: jrblevin/deft#43

Temp fix: use a advising function to limit `deft-current-files` to 30
items, which speeds up rendering.

writing.el

@@ -80,6 +80,14 @@
     (replace-regexp-in-string "-\\*-.*-\\*-" "" (deft-strip-title str)))
   (setq deft-parse-title-function 'deft-title-fn-strip-file-vars)
 
+  ;; Overwrite `deft-current-files` for the `deft-buffer-setup` and limit it to 30 entries
+  (defun anks-deft-limiting-fn (orig-fun &rest args)
+    (let
+        ((deft-current-files (-take 30 deft-current-files)))
+      (apply orig-fun args)))
+
+  (advice-add 'deft-buffer-setup :around #'anks-deft-limiting-fn)
+
   :bind (([f8] . deft)))