Implement context menu for foxtrotgps with copy/paste/search/locations

Rename context menu title for foxtrotgps to Maps and move to top-level menu

scripts/core/sxmo_appmenu.sh

@@ -42,7 +42,6 @@ programchoicesinit() {
 			W3m             ^ 0 ^ st -e w3m duck.com
 			Xcalc           ^ 0 ^ xcalc
 			St              ^ 0 ^ st
-			Foxtrotgps      ^ 0 ^ foxtrotgps
 		"
 		WINNAME=Apps
 	elif echo "$WMCLASS" | grep -i "config"; then
@@ -147,6 +146,7 @@ programchoicesinit() {
 			JS Toggle   ^ 1 ^ key Ctrl+Shift+s
 			History ←   ^ 1 ^ key Ctrl+h
 			History →   ^ 1 ^ key Ctrl+l
+			Refresh     ^ 0 ^ key Ctrl+Shift+r
 		"
 		WINNAME=Surf
 	elif echo "$WMCLASS" | grep -i firefox; then
@@ -157,18 +157,26 @@ programchoicesinit() {
 			Zoom -            ^ 1 ^ key Ctrl+minus
 			History  ←        ^ 1 ^ key Alt+Left
 			History  →        ^ 1 ^ key Alt+Right
+			Refresh     ^ 0 ^ key Ctrl+Shift+r
 		"
 		WINNAME=Firefox
 	elif echo "$WMCLASS" | grep -i foxtrot; then
 		# Foxtrot GPS
-		CHOICES="
+		CHOICES='
+		  Locations           ^ 0 ^ sxmo_gpsutil.sh menulocations
+			Copy                ^ 1 ^ sxmo_gpsutil.sh copy
+			Paste               ^ 1 ^ sxmo_gpsutil.sh paste
+		  Drop Pin            ^ 0 ^ sxmo_gpsutil.sh droppin
+			Region Search       ^ 0 ^ sxmo_gpsutil.sh menuregionsearch
+			Region Details      ^ 0 ^ sxmo_gpsutil.sh details
 			Zoom +              ^ 1 ^ key i
 			Zoom -              ^ 1 ^ key o
-			Panel toggle      ^ 1 ^ key m
+			Map Type            ^ 0 ^ sxmo_gpsutil.sh menumaptype
-			Autocenter toggle ^ 0 ^ key a
+			Panel Toggle        ^ 1 ^ key m
-			Route             ^ 0 ^ key r
+			GPSD Toggle         ^ 1 ^ key a
-		"
+			Locate Me           ^ 0 ^ sxmo_gpsutil.sh locateme
-		WINNAME=Gps
+		'
+		WINNAME=Maps
 	else
 		# Default system menu (no matches)
 		CHOICES="
@@ -179,6 +187,7 @@ programchoicesinit() {
 			Scripts              ^ 0 ^ sxmo_appmenu.sh scripts
 			Apps                 ^ 0 ^ sxmo_appmenu.sh applications
 			Files                ^ 0 ^ sxmo_files.sh
+			Maps                 ^ 0 ^ foxtrotgps
 			Dialer               ^ 0 ^ sxmo_modemcall.sh dial
 			Texts                ^ 0 ^ sxmo_modemtext.sh
 			Camera               ^ 0 ^ sxmo_camera.sh

scripts/core/sxmo_gpsutil.sh

@@ -0,0 +1,217 @@
+#!/usr/bin/env sh
+SXMO_GPSLOCATIONSFILE="/usr/share/sxmo/places_for_gps.tsv"
+EDITOR=vis
+CTILESIZE=256
+CLN2=0.693147180559945309417
+CPI=3.14159265358979323846
+
+# The following {lat,px}2{px,lat} were derived from the foxtrotgps source 
+# functions of similar names only just translated from C to bc all because... 
+# foxtrotgps doesn't support autocentering on restored lat/lon instead it 
+# stores internally X/Y pixel values; so we need conversion fns
+lat2px() {
+  DEGREES="$1"; ZOOM="$2"
+  echo "
+    define atanh(x) { return((l(1 + x) - l(1 - x))/2) };
+    -( \
+      atanh(s(($DEGREES * $CPI / 180))) * \
+      $CTILESIZE * e($ZOOM * $CLN2) / (2 * $CPI) \
+    ) + (e($ZOOM * $CLN2) * ($CTILESIZE / 2))\
+  " | bc -l
+}
+lon2px() {
+  DEGREES="$1"; ZOOM="$2"
+  echo "
+    ( \
+      ($DEGREES * $CPI / 180) * $CTILESIZE *  \
+      e($ZOOM * $CLN2) / (2 * $CPI) \
+    ) + (e($ZOOM * $CLN2) * ($CTILESIZE / 2))
+  " | bc -l 
+}
+px2lat() {
+  PX="$1"; ZOOM="$2"
+  echo "
+    define asin(x) {
+      if(x==1) return($CPI/2); if(x==-1) return(-$CPI/2); return(a(x/sqrt(1-(x^2))));
+    }
+    define tanh(x) { auto t;t=e(x+x)-1;return(t/(t+2)) }
+    asin(tanh( \
+      (-( $PX - ( e( $ZOOM * $CLN2 ) * ( $CTILESIZE / 2 ) ) ) * ( 2 * $CPI )) / \
+      ( $CTILESIZE * e( $ZOOM * $CLN2)) \
+    )) / $CPI * 180 
+  " | bc -l 
+}
+px2lon() {
+  PX="$1"; ZOOM="$2"
+  echo "
+    ( \
+      ($PX - (e($ZOOM * $CLN2) * ($CTILESIZE / 2))) * 2 * $CPI / \
+      ($CTILESIZE * e($ZOOM * $CLN2)) \
+    ) / $CPI * 180
+  " | bc -l
+}
+
+
+killexistingfoxtrotgps() {
+	ACTIVEWIN="$(xdotool getactivewindow)"
+	WMCLASS="${1:-$(xprop -id $ACTIVEWIN | grep WM_CLASS | cut -d ' ' -f3-)}"
+	if echo "$WMCLASS" | grep -i foxtrot; then
+		xdotool windowkill "$ACTIVEWIN" && return 0
+		return 1
+	else
+		return 1
+	fi
+}
+
+gpslatlonget() {
+  ZOOM="$(gsettings get org.foxtrotgps global-zoom)"
+  Y="$(gsettings get org.foxtrotgps global-y)"
+  X="$(gsettings get org.foxtrotgps global-x)"
+  WINH="$(
+    xwininfo -id $(xdotool getactivewindow) | grep -E '^\s*Height' | cut -d: -f2
+  )"
+  WINW="$(
+    xwininfo -id $(xdotool getactivewindow) | grep -E '^\s*Width' | cut -d: -f2
+  )"
+  LAT="$(px2lat "$(echo "$Y + ($WINH / 2)" | bc -l)" "$ZOOM")"
+  LON="$(px2lon "$(echo "$X + ($WINW / 2)" | bc -l)" "$ZOOM")"
+  echo "$LAT" "$LON" "$ZOOM"
+}
+gpslatlonset() {
+  CORDS="$(echo "$@" | tr -d ',°')"
+  CURRENTPOS="$(echo $CORDS | cut -d' ' -f1)"
+  LAT="$(echo $CORDS | cut -d' ' -f1)"
+  LON="$(echo $CORDS | cut -d' ' -f2)"
+  ZOOM="$(echo $CORDS | cut -d' ' -f3)"
+  [ -z "$ZOOM" ] && ZOOM=10
+  WINW="$(
+    xwininfo -id $(xdotool getactivewindow) | grep -E '^\s*Width' | cut -d: -f2
+  )"
+  WINH="$(
+    xwininfo -id $(xdotool getactivewindow) | grep -E '^\s*Height' | cut -d: -f2
+  )"
+
+  # Translate lat&lon into pixel values
+  Y="$(echo "$(lat2px $LAT $ZOOM) - ($WINH / 2)" | bc -l | cut -d. -f1)"
+  X="$(echo "$(lon2px $LON $ZOOM) - ($WINW / 2)" | bc -l | cut -d. -f1)"
+
+  gsettings set org.foxtrotgps global-zoom "$ZOOM"
+  gsettings set org.foxtrotgps global-x "$X"
+  gsettings set org.foxtrotgps global-y "$Y"
+  killexistingfoxtrotgps && st -e foxtrotgps --lat="$LAT" --lon="$LON" &
+}
+gpsgeoclueget() {
+  # Retrieves latlon from geoclue
+  echo foo
+  #gsettings set org.foxtrotgps myposition-lat "$LAT"
+  #gsettings set org.foxtrotgps myposition-lon "$LON"
+}
+copy() {
+	COORDS="$(gpslatlonget)"
+	printf %b "$COORDS" | xsel -i
+	notify-send "Copied coordinates: $COORDS"
+}
+paste() {
+	COORDS="$(xsel)"
+	notify-send "Loading coordinates: $COORDS"
+	gpslatlonset "$COORDS"
+}
+
+droppin() {
+	gpslatlonset "$(gpslatlonget)"
+}
+
+details() {
+	COORDS="$(gpslatlonget)"
+	LAT="$(echo $COORDS | cut -d' ' -f1)"
+	LON="$(echo $COORDS | cut -d' ' -f2)"
+	ZOOM="$(echo $COORDS | cut -d' ' -f3)"
+	surf -S "https://nominatim.openstreetmap.org/reverse.php?lat=${LAT}&lon=${LON}&zoom=${ZOOM}&format=html" &
+}
+
+menuregionsearch() {
+	WINH="$(xwininfo -id $(xdotool getactivewindow) | grep -E '^\s*Height' | cut -d: -f2)"
+	WINW="$(xwininfo -id $(xdotool getactivewindow) | grep -E '^\s*Width' | cut -d: -f2)"
+
+	POIS="
+		Close Menu
+		Coffee
+		Bar
+		Restaurant
+		Pizza
+		Barbershop
+		Barber
+	"
+	QUERY="$(
+		printf %b "$POIS" |
+		sed '/^[[:space:]]*$/d' |
+		awk '{$1=$1};1' |
+		sxmo_dmenu_with_kb.sh -i -c -l 10 -fn Terminus-18 -p Search
+	)"
+
+	if [ "$QUERY" = "Close Menu" ]; then
+		exit 0
+	else
+	  ZOOM="$(gsettings get org.foxtrotgps global-zoom)"
+	  Y="$(gsettings get org.foxtrotgps global-y)"
+	  X="$(gsettings get org.foxtrotgps global-x)"
+	  TOP="$(px2lat "$Y" "$ZOOM")"
+	  LEFT="$(px2lon "$X" "$ZOOM")"
+	  RIGHT="$(px2lon "$(echo "$X" + "$WINW" | bc -l)" "$ZOOM")"
+	  BOTTOM="$(px2lat "$(echo "$Y" + "$WINH" | bc -l)" "$ZOOM")"
+	  surf -S "https://nominatim.openstreetmap.org/search.php?q=$QUERY&polygon_geojson=1&viewbox=${LEFT}%2C${TOP}%2C${RIGHT}%2C${BOTTOM}&bounded=1" &
+	fi
+}
+
+# Menus
+menulocations() {
+	CHOICE="$(
+		printf %b "$(
+			echo "Close Menu";
+			cat "$SXMO_GPSLOCATIONSFILE";
+			echo "Edit"
+		)" |
+		grep -vE '^#' |
+		sed "s/\t/: /g" |
+		sxmo_dmenu_with_kb.sh -i -c -l 10 -fn Terminus-18 -p "Locations"
+	)"
+	ZOOM=14
+
+	if [ $CHOICE = "Edit" ]; then
+		RES="$(st -e $EDITOR "$SXMO_GPSLOCATIONSFILE")"
+		exit 0
+	elif [ "$CHOICE" = "Close Menu" ]; then
+	 exit 0
+	else
+		LATLON="$(echo -e "$CHOICE" | cut -d: -f2- )"
+		gpslatlonset "$LATLON $ZOOM"
+	fi
+}
+
+menumaptype() {
+	IDX=0
+	while true; do
+		CURRENTMAPTYPE="$(gsettings get org.foxtrotgps repo-name | tr -d "'")"
+		CHOICES=$(echo "
+			Close Menu
+			OSM               $([ "$CURRENTMAPTYPE" = "OSM" ] && echo "✓") ^ OSM
+			OpenCycleMap      $([ "$CURRENTMAPTYPE" = "OpenCycleMap" ] && echo "✓") ^ OpenCycleMap
+			Google Maps       $([ "$CURRENTMAPTYPE" = "Google Maps (testing only)" ] && echo "✓") ^ Google Maps (testing only)
+			Google Sat        $([ "$CURRENTMAPTYPE" = "Google Sat (testing only)" ] && echo "✓") ^ Google Sat (testing only)
+			Maps-for-free.com $([ "$CURRENTMAPTYPE" = "Maps-for-free.com" ] && echo "✓") ^ Maps-for-free.com
+		" | sed '/^[[:space:]]*$/d' | awk '{$1=$1};1')
+		CHOICE="$(
+			echo "$CHOICES" |
+			awk -F^ '{ print $1 }' |
+			dmenu -idx "$IDX" -c -l 10 -fn Terminus-18 -p "Map Type" |
+			awk '{$1=$1};1'
+		)"
+		echo "$CHOICE" | grep "Close Menu" && exit 0
+		SETCHOICE="$(printf %b "$CHOICES" | grep "$CHOICE" | cut -d^ -f2 | awk '{$1=$1};1')"
+		IDX="$(printf %b "$CHOICES" | grep -n "$CHOICE" | cut -d: -f1)"
+		gsettings set org.foxtrotgps repo-name "$SETCHOICE"
+		killexistingfoxtrotgps && st -e foxtrotgps &
+	done
+}
+
+$@

scripts/core/sxmo_pipecomplete.sh

@@ -5,13 +5,10 @@ STWIN="$(xprop -root | sed -n '/^_NET_ACTIVE_WINDOW/ s/.* //p')"
 menu() {
 	pidof svkbd-sxmo || svkbd-sxmo &
 	RESULT="$(
-		echo "Close Menu" &&
+		printf %b "$(
-		echo "$INPUT" | 
+  		echo "Close Menu";
-		grep -Eo '\S+' | 
+			echo "$INPUT" | grep -Eo '\S+' | tr -d '[:blank:]' | sort | uniq
-		tr -d '[:blank:]' | 
+		)" | dmenu -p "$PROMPT" -l 10 -i -c -fn Terminus-20
-		sort | 
-		uniq | 
-		dmenu -p "$PROMPT" -l 10 -i -c -fn Terminus-20
 	)"
 	pkill svkbd-sxmo
 }