DuckDuckGo Terminal app

[alexfish]

Hello All

Install ddgr

man ddgr

you will see numbers to the left
Enter the number

BR
ALEX

Screen Shot

Attachments:

[alexfish]

Hug DuckDuck GO


INCLUDE hug.bac

HOME$ = GETENVIRON$("HOME")


SUB search
LOCAL word$
LOCAL result$
LOCAL cmd$
word$ = CHOP$(GRAB$(ent))
IF LEN(word$) THEN
cmd$ = "ddgr "  & word$

result$ = EXEC$(cmd$)
IF LEN(result$) THEN
TEXT(ed,result$)
END IF
END IF
END SUB

SUB Clear

TEXT(ed,"")
TEXT(ed,"")
END SUB


win =  WINDOW("DuckDuck GO", 806,700)
ent = ENTRY("",200,30)
ATTACH(win,ent,3,3)
CALLBACK(ent,search)
but = BUTTON("Clear",100,30)
ATTACH(win,but,208,3)
CALLBACK(but , Clear)

ed = EDIT(800,560)
ATTACH(win,ed,3,35)

ed2= EDIT(800,80+15)
ATTACH(win,ed2,3,558+40)
DISPLAY

Have Fun
+
BR
Alex

[alexfish]

Updated

INCLUDE hug.bac

HOME$ = GETENVIRON$("HOME")


SUB search
LOCAL word$
LOCAL result$
LOCAL cmd$
 LOCAL can
word$ = CHOP$(GRAB$(ent))
IF LEN(word$) THEN
cmd$ = "ddgr "  & word$

result$ = EXEC$(cmd$)
IF LEN(result$) THEN
IF INSTR(result$,"1.")  AND INSTR(result$,"[")  THEN
result$ = MID$(result$,INSTR(result$,"1.")-1)
TEXT(ed,result$)
           END IF
END IF
END IF
END SUB

SUB Clear

TEXT(ed,"")
TEXT(ed,"")
END SUB


win =  WINDOW("DuckDuck GO", 806,700)
ent = ENTRY("",200,30)
ATTACH(win,ent,3,3)
CALLBACK(ent,search)
but = BUTTON("Clear",100,30)
ATTACH(win,but,208,3)
CALLBACK(but , Clear)

ed = EDIT(800,560)
ATTACH(win,ed,3,35)

ed2= EDIT(800,80+15)
ATTACH(win,ed2,3,558+40)
DISPLAY

CODE UPDATED
BR
Alex

Attachments: