Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
nebogeo
symbai
Commits
b2d7e3d3
Commit
b2d7e3d3
authored
Apr 15, 2014
by
Dave Griffiths
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
i18n working
parent
1e748f1e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
29 additions
and
5 deletions
+29
-5
android/assets/dbsync.scm
android/assets/dbsync.scm
+3
-3
android/assets/starwisp.scm
android/assets/starwisp.scm
+26
-2
No files found.
android/assets/dbsync.scm
View file @
b2d7e3d3
...
...
@@ -402,8 +402,6 @@
(
define
i18n-text
(
list
))
(
msg
123
)
(
define
(
mtext-lookup
id
)
(
define
(
_
l
)
(
cond
...
...
@@ -412,7 +410,9 @@
(
let
((
translations
(
cadr
(
car
l
))))
(
if
(
<=
(
length
translations
)
i18n-lang
)
(
string-append
(
symbol->string
id
)
" not translated"
)
(
list-ref
translations
i18n-lang
))))
(
let
((
r
(
list-ref
translations
i18n-lang
)))
(
if
(
or
(
equal?
r
""
)
(
equal?
r
" "
))
(
list-ref
translations
0
)
r
)))))
(
else
(
_
(
cdr
l
)))))
(
_
i18n-text
))
...
...
android/assets/starwisp.scm
View file @
b2d7e3d3
...
...
@@ -34,13 +34,27 @@
(
setup
db
"stream"
)
(
insert-entity-if-not-exists
db
"local"
"app-settings
2
"
"null"
1
db
"local"
"app-settings"
"null"
2
(
list
(
ktv
"user-id"
"varchar"
"No name yet..."
)
(
ktv
"language"
"int"
0
)
(
ktv
"house-count"
"int"
0
)
(
ktv
"photo-id-count"
"int"
0
)))
(
define
(
get-setting-value
name
)
(
ktv-get
(
get-entity
db
"local"
2
)
name
))
(
define
(
set-setting!
key
type
value
)
(
update-entity
db
"local"
2
(
list
(
ktv
key
type
value
))))
(
define
(
get/inc-setting
key
)
(
let
((
r
(
get-setting-value
key
)))
(
set-setting!
key
"int"
(
+
r
1
))
r
))
(
set!
i18n-lang
(
get-setting-value
"language"
))
(
define
entity-types
(
list
"village"
"household"
"individual"
))
;;(display (db-all db "local" "app-settings"))(newline)
...
...
@@ -528,7 +542,15 @@
(
mbutton-scale
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
)))))
(
horiz
(
mspinner
'languages
(
list
'english
'khasi
'hindi
)
(
lambda
(
c
)
(
list
)))
(
mspinner
'languages
(
list
'english
'khasi
'hindi
)
(
lambda
(
c
)
(
set-setting!
"language"
"int"
(
cond
((
equal?
c
"English"
)
0
)
((
equal?
c
"Khasi"
)
1
)
((
equal?
c
"Hindi"
)
2
)))
(
set!
i18n-lang
(
get-setting-value
"language"
))
(
list
)))
(
mbutton-scale
'find-individual
(
lambda
()
(
list
(
start-activity
"individual-chooser"
choose-code
""
)))))
(
build-list-widget
db
"sync"
'villages
"village"
"village"
(
lambda
()
#f
)
...
...
@@ -539,6 +561,8 @@
(
activity-layout
activity
))
(
lambda
(
activity
arg
)
(
list
(
update-widget
'spinner
(
get-id
"languages-spinner"
)
'selection
(
get-setting-value
"language"
))
(
gps-start
"gps"
(
lambda
(
loc
)
(
set-current!
'location
loc
)
(
list
(
toast
(
string-append
...
...
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