bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

autoload

Browse source
This commit is contained in:
bth 2024-01-15 08:06:21 -08:00
commit 3f17bb1492
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
elisp/um.el
View file

@ -52,6 +52,7 @@
(format-time-string "%Y.%m.%d") (format-time-string "%Y.%m.%d")
) )
;;;###autoload
(defun um-journal-header () (defun um-journal-header ()
"Create a um-journal-header composed of: "Create a um-journal-header composed of:
# buffer-name minus the .md file type # buffer-name minus the .md file type
@ -97,6 +98,7 @@
;; run find-file at point, followed by M-n : ;; run find-file at point, followed by M-n :
;; TODO: reuse same fallback logic as the embark advice if I keep this. ;; TODO: reuse same fallback logic as the embark advice if I keep this.
;;;###autoload
(defun um-journal-find-file () (defun um-journal-find-file ()
(let ((default-directory um-journal-path) (let ((default-directory um-journal-path)
(thing (thing-at-point 'filename)) (thing (thing-at-point 'filename))
@ -118,6 +120,7 @@
;; `embark-target-finders', since I'd have to remove the file finder and put my ;; `embark-target-finders', since I'd have to remove the file finder and put my
;; function in the same place in the list anyway. ;; function in the same place in the list anyway.
;;;###autoload
(defun um-file-at-point-advice (origfunc) (defun um-file-at-point-advice (origfunc)
"Like find-file-at-point, but checks all known project paths. "Like find-file-at-point, but checks all known project paths.
@ -159,6 +162,7 @@ in the root dir.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; C-x p p ;; C-x p p
;;;###autoload
(defun um-project-find-meta () (defun um-project-find-meta ()
(interactive) (interactive)
;; this works because `project-switch-project' overrides the dir: ;; this works because `project-switch-project' overrides the dir: