Enable deft at work

config.org

@@ -123,7 +123,13 @@ SOMETIMES I WANT TO UPCASE OR DOWNCASE AN ENTIRE REGION, WHAT OF IT.
   (put 'downcase-region 'disabled nil)
 #+END_SRC
 
-It’s 2022.
+And to narrow to them.
+
+#+BEGIN_SRC emacs-lisp
+  (put 'narrow-to-region 'disabled nil)
+#+END_SRC
+
+It’s +2022+ 2023.
 
 #+BEGIN_SRC emacs-lisp
   (setq python-shell-interpreter "python3")
@@ -230,18 +236,21 @@ This may work only on Linux (it uses SQL???), but my ebooks are only on Linux so
 
 ** =deft=
 
-Let me search my journal files, not synced to my work computer. Set regexp search by default.
+Let me search my journal files when I’m not at work, and reading notes otherwise. Set regexp search by default.
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
-    (unless (string-equal user-login-name "3055822")
-      (use-package deft
-        :config
-        (setq deft-extensions '("org"))
-        (setq deft-directory "~/Documents/drive/org/journal")
-        (setq deft-current-sort-method 'title)
-        (setq deft-incremental-search nil)
-        (setq deft-recursive t))))
+    (use-package deft
+      :config
+      (setq deft-extensions '("org"))
+      (if (string-equal user-login-name "3055822")
+          (progn
+            (setq deft-directory deft-secret-filepath)
+            (setq deft-use-filename-as-title t))
+        (setq deft-directory "~/Documents/drive/org/journal"))
+      (setq deft-current-sort-method 'title)
+      (setq deft-incremental-search nil)
+      (setq deft-recursive t)))
 #+END_SRC
 
 ** =dimmer=