Advertisement
Guest User

Untitled

a guest
Feb 13th, 2016
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. (defun my/replace-- (str)
  2. (replace-regexp-in-string (regexp-quote " ") "-" str nil 'literal)
  3. )
  4.  
  5. (defun my/capture-path (path)
  6. (let ((name (read-string "Name: "))
  7. (folder (read-string "Folder: ")))
  8. (expand-file-name (format "%s/%s.org" folder (my/replace-- name))
  9. path)
  10. )
  11. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement