Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun my/replace-- (str)
- (replace-regexp-in-string (regexp-quote " ") "-" str nil 'literal)
- )
- (defun my/capture-path (path)
- (let ((name (read-string "Name: "))
- (folder (read-string "Folder: ")))
- (expand-file-name (format "%s/%s.org" folder (my/replace-- name))
- path)
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement