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
Dave Griffiths
mongoose-2000
Commits
2ed59d11
Commit
2ed59d11
authored
Jun 23, 2014
by
Dave Griffiths
Browse files
group comp fixes
parent
8c25d7e6
Changes
5
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
831 additions
and
783 deletions
+831
-783
android/assets/lib.scm
android/assets/lib.scm
+1
-1
android/assets/mongoose.scm
android/assets/mongoose.scm
+767
-0
android/assets/starwisp.scm
android/assets/starwisp.scm
+60
-780
android/src/foam/mongoose/starwisp.java
android/src/foam/mongoose/starwisp.java
+1
-0
eavdb/entity-filter.ss
eavdb/entity-filter.ss
+2
-2
No files found.
android/assets/lib.scm
View file @
2ed59d11
...
...
@@ -669,7 +669,7 @@
(
define
wrap
(
layout
'wrap-content
'wrap-content
1
'left
0
))
(
define
fillwrap
(
layout
'fill-parent
'wrap-content
1
'left
0
))
(
define
wrapfill
(
layout
'wrap-content
'fill-parent
1
'left
0
))
(
define
fill
(
layout
'fill-parent
'fill-parent
1
'left
0
))
(
define
fill
(
layout
'fill-parent
'fill-parent
1
'left
1
0
))
(
define
(
spacer
size
)
(
space
(
layout
'fill-parent
size
1
'left
0
)))
...
...
android/assets/mongoose.scm
0 → 100644
View file @
2ed59d11
This diff is collapsed.
Click to expand it.
android/assets/starwisp.scm
View file @
2ed59d11
This diff is collapsed.
Click to expand it.
android/src/foam/mongoose/starwisp.java
View file @
2ed59d11
...
...
@@ -110,6 +110,7 @@ public class starwisp extends StarwispActivity
m_Scheme
.
Load
(
"eavdb/entity-csv.ss"
);
m_Scheme
.
Load
(
"eavdb/eavdb.ss"
);
m_Scheme
.
Load
(
"dbsync.scm"
);
m_Scheme
.
Load
(
"mongoose.scm"
);
m_Builder
=
new
StarwispBuilder
(
m_Scheme
);
...
...
eavdb/entity-filter.ss
View file @
2ed59d11
...
...
@@ -95,10 +95,10 @@
(
define
(
filter-entities
db
table
type
filter
)
(
let
((
s
(
apply
db-select
(
dbg
(
append
(
append
(
list
db
(
build-query
table
filter
(
not
(
equal?
type
"*"
))))
(
build-args
filter
)
(
if
(
equal?
type
"*"
)
'
()
(
list
type
))))))
)
(
if
(
equal?
type
"*"
)
'
()
(
list
type
))))))
(
msg
(
db-status
db
))
(
if
(
null?
s
)
'
()
...
...
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