GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 10:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added clipboard.

Browse Source
This commit is contained in:
aarne
2003-10-10 11:35:52 +00:00
parent ce253baf15
commit d0c7566791
5 changed files with 61 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Shell/CommandL.hs
View File

@@ -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