113 lines
4.2 KiB
EmacsLisp
113 lines
4.2 KiB
EmacsLisp
|
;; Autoloads for NotDeft commands.
|
||
|
|
(require 'notdeft-autoloads)
|
||
|
|
|
||
|
|
;; Full path of "notdeft-xapian" executable.
|
||
|
|
(let ((x
|
||
|
|
(let ((default-directory
|
||
|
|
(file-name-directory
|
||
|
|
(file-truename (locate-library "notdeft")))))
|
||
|
|
(file-truename "xapian/notdeft-xapian"))))
|
||
|
|
(setq notdeft-xapian-program
|
||
|
|
(and (file-executable-p x) x)))
|
||
|
|
|
||
|
|
;; As an alternative to the above, you can try building and
|
||
|
|
;; configuring "notdeft-xapian" on demand, but on most systems this
|
||
|
|
;; will not succeed out of the box.
|
||
|
|
;(add-hook 'notdeft-load-hook 'notdeft-xapian-make-program-when-uncurrent)
|
||
|
|
|
||
|
|
(defun run-local-variables-mode-hooks ()
|
||
|
|
"Run hooks for `major-mode' with locals set.
|
||
|
|
Like `run-mode-hooks', but run later, with any buffer and
|
||
|
|
directory local variables set."
|
||
|
|
(run-hooks (intern (concat (symbol-name major-mode)
|
||
|
|
"-local-variables-hook"))))
|
||
|
|
(add-hook 'hack-local-variables-hook 'run-local-variables-mode-hooks)
|
||
|
|
|
||
|
|
;; A variable determining whether to enable minor mode.
|
||
|
|
(defcustom notdeft-note-mode-auto-enable nil
|
||
|
|
"Whether to enable NotDeft Note minor mode for a buffer."
|
||
|
|
:type 'boolean
|
||
|
|
:safe 'booleanp)
|
||
|
|
(make-variable-buffer-local 'notdeft-note-mode-auto-enable)
|
||
|
|
|
||
|
|
;; Define a hook for conditionally enabling the NotDeft minor mode.
|
||
|
|
(defun default-notdeft-hook ()
|
||
|
|
"Conditionally enable `notdeft-note-mode'.
|
||
|
|
Enable when the buffer local variable
|
||
|
|
`notdeft-note-mode-auto-enable' is set to a non-nil value."
|
||
|
|
(when notdeft-note-mode-auto-enable
|
||
|
|
(notdeft-note-mode 1)))
|
||
|
|
|
||
|
|
;; Have Org mode files respect the flag. A hook like this should be
|
||
|
|
;; set for all NotDeft note file types, and no others.
|
||
|
|
(add-hook 'org-mode-local-variables-hook 'default-notdeft-hook)
|
||
|
|
|
||
|
|
(defun my-notdeft-add-directory-local-variables ()
|
||
|
|
"Add `notdeft-note-mode-auto-enable' flag.
|
||
|
|
Add it for all `notdeft-directories'."
|
||
|
|
(interactive)
|
||
|
|
(require 'notdeft) ;; for `notdeft-directories'
|
||
|
|
(dolist (dir notdeft-directories)
|
||
|
|
(make-directory dir t)
|
||
|
|
(let ((default-directory dir))
|
||
|
|
(add-dir-local-variable nil 'notdeft-note-mode-auto-enable t))))
|
||
|
|
|
||
|
|
;; Org mode "deft:" and "notdeft:" link support.
|
||
|
|
(eval-after-load 'org
|
||
|
|
(lambda ()
|
||
|
|
(let ((ver (ignore-errors
|
||
|
|
(car (version-to-list org-version)))))
|
||
|
|
(require (if (and ver (< ver 9))
|
||
|
|
'notdeft-org8
|
||
|
|
'notdeft-org9)))))
|
||
|
|
|
||
|
|
;; Add global bindings for NotDeft. To do that, bind a custom keymap
|
||
|
|
;; that inherits from NotDeft's, one that we can use to override and
|
||
|
|
;; add to the predefined set of bindings.
|
||
|
|
(require 'notdeft-global)
|
||
|
|
(defvar my-notdeft-global-map
|
||
|
|
(let ((map (make-sparse-keymap)))
|
||
|
|
(define-key map [(a) (d) (l) (v)]
|
||
|
|
#'my-notdeft-add-directory-local-variables)
|
||
|
|
(define-key map [(l)] #'notdeft-org-link-existing-note) ;; l for link
|
||
|
|
(define-key map [(n)] #'notdeft-org-link-new-file) ;; n for new
|
||
|
|
(define-key map [(s)] #'org-store-link) ;; s for store
|
||
|
|
(define-key map [(S)] #'notdeft-org-store-deft-link) ;; s for store
|
||
|
|
(define-key map [(*)] #'notdeft-org-open-heading-as-query)
|
||
|
|
(set-keymap-parent map 'notdeft-global-map)
|
||
|
|
map)
|
||
|
|
"Custom keymap for accessing NotDeft functionality.
|
||
|
|
|
||
|
|
\\{my-notdeft-global-map}")
|
||
|
|
(fset 'my-notdeft-global-map my-notdeft-global-map)
|
||
|
|
(global-set-key [f6] 'my-notdeft-global-map)
|
||
|
|
|
||
|
|
;; Add Org-specific bindings that are also usable in a NotDeft buffer.
|
||
|
|
(add-hook 'notdeft-load-hook
|
||
|
|
(lambda ()
|
||
|
|
(define-key notdeft-mode-map (kbd "C-c S")
|
||
|
|
#'notdeft-org-store-deft-link)))
|
||
|
|
|
||
|
|
(require 'hydra nil t)
|
||
|
|
(when (featurep 'hydra)
|
||
|
|
;; Augment `notdeft-mode' bindings with a hydra.
|
||
|
|
(autoload 'notdeft-mode-hydra/body "notdeft-mode-hydra" nil t)
|
||
|
|
(add-hook 'notdeft-load-hook
|
||
|
|
(lambda ()
|
||
|
|
(define-key notdeft-mode-map (kbd "C-c h")
|
||
|
|
#'notdeft-mode-hydra/body)))
|
||
|
|
|
||
|
|
;; Augment the global NotDeft keymap with a hydra also.
|
||
|
|
(autoload 'notdeft-global-hydra/body "notdeft-global-hydra" nil t)
|
||
|
|
(define-key my-notdeft-global-map [(h)] #'notdeft-global-hydra/body))
|
||
|
|
|
||
|
|
(require 'ivy nil t)
|
||
|
|
(when (featurep 'ivy)
|
||
|
|
;; Do minibuffer note selection by search and then Ivy choice list.
|
||
|
|
(require 'notdeft-ivy)
|
||
|
|
(add-to-list 'ivy-re-builders-alist
|
||
|
|
'(notdeft-ivy-completing-read . ivy--regex-ignore-order))
|
||
|
|
(setq notdeft-completing-read-function 'notdeft-ivy-completing-read)
|
||
|
|
(setq notdeft-select-note-file-by-search t)
|
||
|
|
(setq notdeft-select-note-file-all t))
|