Permalink
Browse files

Added show-profiles-appl setting

  • Loading branch information...
1 parent 9c2f422 commit f6e7c5d8d66a72308f178d670a6443455c8dc751 @jazzscheme committed Jun 7, 2012
Showing with 10 additions and 3 deletions.
  1. +6 −3 lib/jazz.ide/src/jazz/ide/login/Login-Dialog.jazz
  2. +4 −0 lib/jazz.ide/src/jazz/ide/login/_login.jazz
@@ -271,9 +271,12 @@
(bind (package . profile) info
(let ((jazz? (eq? (package-repository package) jazz-repository)))
(when (or (not jazz?) (show-jazz-profiles?))
- (cons (cons (if jazz? 2 1)
- (downcase (profile-title profile)))
- profile)))))
+ (let ((show-appl (show-profiles-appl)))
+ (when (or (not show-appl)
+ (eq? (profile-appl profile) show-appl))
+ (cons (cons (if jazz? 2 1)
+ (downcase (profile-title profile)))
+ profile)))))))
(gather-profiles))))
(map cdr (sort nu<? ranked-profiles key: car)))))
@@ -59,6 +59,10 @@
#t)
+(define-setting show-profiles-appl
+ #f)
+
+
(definition *profile-kinds*
'(<kinds>
(<kind> name: "Jazz" kind: profile template: "jazz")

0 comments on commit f6e7c5d

Please sign in to comment.