rexx-things/projects/oorexx/memo.rex

14 lines
330 B
Rexx
Executable File

#!/usr/bin/env rexx
address system "echo $HOME" with output stem home.
parse arg note
if note \= "" then note = changestr(" ",note,"_")
else note = "text_memo"
filename=home.1,
||"/Documents/memos/",
||changestr("-",date("I"),"")||"_",
||changestr(":",time(),"")||"_"||note||".md"
address system "tilde "||filename