14 lines
330 B
Rexx
14 lines
330 B
Rexx
|
#!/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
|