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

fix compile warnings

Browse source
This commit is contained in:
bth 2024-08-17 10:00:25 -07:00
commit b94420aa95
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
elisp/um.el
View file

@ -39,9 +39,8 @@
(require 'project) (require 'project)
;; Primary path glob for the journal. This allows various mountpoints. (defvar um-journal-path-glob ".*/writing/journal"
"Primary path glob for the journal. This allows various mountpoints.")
(setq um-journal-path-glob ".*/writing/journal")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; journal header ;; journal header
@ -205,6 +204,7 @@ NOTE: this searches in the current project root only.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; shell integration ;; shell integration
;;;###autoload
(defun um-next (next-file &optional tag skip-header) (defun um-next (next-file &optional tag skip-header)
"Takes the next-file generated by the shell script and opens it. "Takes the next-file generated by the shell script and opens it.
@ -215,9 +215,9 @@ And the option not to insert the um-journal-header.
(unless skip-header (unless skip-header
(um-journal-header) (um-journal-header)
(if tag (if tag
(progn (previous-line) (progn (forward-line -1)
(insert (format "+ %s\n" tag)) (insert (format "+ %s\n" tag))
(next-line)))) (forward-line))))
(message (format "creating %s" next-file)) (message (format "creating %s" next-file))
) )