diff options
| author | aarne <unknown> | 2003-10-10 11:35:52 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-10-10 11:35:52 +0000 |
| commit | d0c75667910bfe5e2ee3f8434d7079f2c1bed65c (patch) | |
| tree | 53c0702bbb1b26e99fa68b7652d2cf3721f9fac8 /src/GF/Shell/CommandL.hs | |
| parent | ce253baf15f9df5e95d0402ccddf5cc25c0736c0 (diff) | |
Added clipboard.
Diffstat (limited to 'src/GF/Shell/CommandL.hs')
| -rw-r--r-- | src/GF/Shell/CommandL.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Shell/CommandL.hs b/src/GF/Shell/CommandL.hs index d470130ab..dcf62d44b 100644 --- a/src/GF/Shell/CommandL.hs +++ b/src/GF/Shell/CommandL.hs @@ -55,6 +55,7 @@ pCommand = pCommandWords . words where "t" : ws -> CNewTree $ unwords ws "g" : ws -> CRefineWithTree $ unwords ws -- *g*ive "p" : ws -> CRefineParse $ unwords ws + "rc": i : _ -> CRefineWithClip (readIntArg i) ">" : i : _ -> CAhead $ readIntArg i ">" : [] -> CAhead 1 "<" : i : _ -> CBack $ readIntArg i @@ -75,6 +76,7 @@ pCommand = pCommandWords . words where "f" : s : _ -> CAddOption (filterString s) "u" : _ -> CUndo "d" : _ -> CDelete + "ac" : _ -> CAddClip "c" : s : _ -> CTermCommand s "a" : _ -> CRefineRandom --- *a*leatoire "m" : _ -> CMenu |