Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
nebogeo
symbai
Commits
02979ce5
Commit
02979ce5
authored
Apr 14, 2014
by
Dave Griffiths
Browse files
added village amenities
parent
12d0b3bf
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
27 additions
and
3 deletions
+27
-3
android/assets/dbsync.scm
android/assets/dbsync.scm
+7
-1
android/assets/starwisp.scm
android/assets/starwisp.scm
+20
-2
No files found.
android/assets/dbsync.scm
View file @
02979ce5
...
...
@@ -643,7 +643,13 @@
(
let
((
lat
(
entity-get-value
(
string-append
key-prepend
"-lat"
)))
(
lon
(
entity-get-value
(
string-append
key-prepend
"-lon"
))))
(
if
(
or
(
not
lat
)
(
not
lon
))
'
()
(
list
(
update-widget
'text-view
(
get-id
(
string-append
(
symbol->string
display-id
)
"-lat"
))
'text
"O"
)
(
update-widget
'text-view
(
get-id
(
string-append
(
symbol->string
display-id
)
"-lon"
))
'text
"0"
))
(
list
(
update-widget
'text-view
(
get-id
(
string-append
(
symbol->string
display-id
)
"-lat"
))
...
...
android/assets/starwisp.scm
View file @
02979ce5
...
...
@@ -122,14 +122,32 @@
(
list
'house-gps
(
list
"GPS"
))
(
list
'toilet-gps
(
list
"GPS"
))
(
list
'school
(
list
"School"
))
(
list
'school-closest-access
(
list
"Access"
))
(
list
'school-gps
(
list
"GPS"
))
(
list
'hospital
(
list
"Hospital/Health care centre"
))
(
list
'hospital-closest-access
(
list
"Access"
))
(
list
'hospital-gps
(
list
"GPS"
))
(
list
'post-office
(
list
"Post Office"
))
(
list
'post-office-closest-access
(
list
"Access"
))
(
list
'post-office-gps
(
list
"GPS"
))
(
list
'railway-station
(
list
"Railway station"
))
(
list
'railway-station-closest-access
(
list
"Access"
))
(
list
'railway-station-gps
(
list
"GPS"
))
(
list
'state-bus-service
(
list
"Inter-state bus service"
))
(
list
'state-bus-service-closest-access
(
list
"Access"
))
(
list
'state-bus-service-gps
(
list
"GPS"
))
(
list
'district-bus-service
(
list
"Inter-village/district bus service"
))
(
list
'district-bus-service-closest-access
(
list
"Access"
))
(
list
'district-bus-service-gps
(
list
"GPS"
))
(
list
'panchayat
(
list
"Village Panchayat Office"
))
(
list
'panchayat-closest-access
(
list
"Access"
))
(
list
'panchayat-gps
(
list
"GPS"
))
(
list
'NGO
(
list
"Presence of NGO's working with them"
))
(
list
'NGO-closest-access
(
list
"Access"
))
(
list
'NGO-gps
(
list
"GPS"
))
(
list
'market
(
list
"Market"
))
(
list
'market-closest-access
(
list
"Access"
))
(
list
'market-gps
(
list
"GPS"
))
;; household
(
list
'household-name
(
list
"Household name"
))
...
...
@@ -666,8 +684,8 @@
(
lambda
()
(
do-gps
(
string->symbol
(
string-append
id-text
"-gps"
))
(
string-append
id-text
"-gps"
))))
(
mtext-small
(
string->symbol
(
string-append
id-text
"-lat"
)))
(
mtext-small
(
string->symbol
(
string-append
id-text
"-
lat
"
)))))))
(
mtext-small
(
string->symbol
(
string-append
id-text
"-
gps-
lat"
)))
(
mtext-small
(
string->symbol
(
string-append
id-text
"-
gps-lon
"
)))))))
(
define
(
update-amenity-widgets
id
)
(
let
((
id-text
(
symbol->string
id
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment