lilycontrib.tcl

   1 #!/usr/bin/wish
   2
   3 package require Tk
   4
   5 # Helper functions
   6
   7 set lily_dir $env(HOME)/lilypond
   8 cd $lily_dir
   9
  10 proc write_to_output {s} {
  11         .output.text insert insert $s
  12         .output.text see end
  13 }
  14
  15 proc write_file_to_output {f} {
  16         if {[eof $f]} {
  17                 global git_command
  18                 fconfigure $f -blocking true
  19                 if {[catch {close $f} err]} {
  20                         tk_messageBox -type ok -message "Git aborted: $err"
  21                 }
  22                 unset git_command
  23         } else {
  24                 write_to_output [read $f 24]
  25         }
  26 }
  27
  28 proc git {args} {
  29         global lily_dir git_command
  30         file mkdir $lily_dir
  31         set git_command [linsert $args 0 "|git" "--git-dir=$lily_dir/.git"]
  32         set git_command "$git_command 2>@1"
  33         #.output.text insert end "$git_command\n"
  34         set git [open $git_command r]
  35         fconfigure $git -blocking false
  36         fileevent $git readable [list write_file_to_output $git]
  37         vwait git_command
  38 }
  39
  40 proc config {args} {
  41         global lily_dir
  42         set p [open [linsert $args 0 "|git" --git-dir=$lily_dir/.git config] r]
  43         set result [regsub "\n\$" [read $p] ""]
  44         if {[catch {close $p} err]} {
  45                 tk_messageBox -type ok -message "config failed: $err"
  46         }
  47         return $result
  48 }
  49
  50 proc config_quiet {args} {
  51         global lily_dir
  52         set p [open [linsert $args 0 "|git" --git-dir=$lily_dir/.git config] r]
  53         set result [regsub "\n\$" [read $p] ""]
  54         if {[catch {close $p} err]} {
  55                 set result ""
  56         }
  57         return $result
  58 }
  59
  60 proc update_lilypond {} {
  61         global lily_dir
  62         if {![file exists $lily_dir]} {
  63                 file mkdir $lily_dir
  64                 git init
  65                 git config core.bare false
  66                 git remote add -t master \
  67                         origin git://repo.or.cz/lilypond.git
  68                 git fetch --depth 1
  69                 git reset --hard origin/master
  70                 git config branch.master.remote origin
  71                 git config branch.master.merge refs/heads/master
  72                 .update configure -text "Update LilyPond"
  73         } else {
  74                 global rebase
  75                 git fetch origin
  76                 if {$rebase} {
  77                         git rebase origin/master
  78                 } else {
  79                         git merge origin/master
  80                 }
  81         }
  82         write_to_output "Done.\n"
  83 }
  84
  85 proc toggle_rebase {} {
  86         global rebase
  87         config --bool branch.master.rebase $rebase
  88 }
  89
  90 # GUI
  91
  92 wm title . "LilyPond Contributor's GUI"
  93
  94 # Buttons
  95
  96 panedwindow .buttons
  97 button .buttons.update -text "Update LilyPond" -command update_lilypond
  98 label .buttons.rebase_label -text "Rebase"
  99 if {![file exists $lily_dir]} {
 100         .update configure -text "Clone LilyPond"
 101 }
 102 set rebase 0
 103 if {[config_quiet --bool branch.master.rebase] == true} {
 104         set rebase 1
 105 }
 106 checkbutton .buttons.rebase -variable rebase -command toggle_rebase
 107 pack .buttons.update -side left
 108 pack .buttons.rebase -side right
 109 pack .buttons.rebase_label -side right
 110
 111 # Output
 112
 113 panedwindow .output
 114 text .output.text -width 80 -height 15 \
 115         -xscrollcommand [list .output.horizontal set] \
 116         -yscrollcommand [list .output.vertical set]
 117 scrollbar .output.horizontal -orient h -command [list .output.text xview]
 118 scrollbar .output.vertical -orient v -command [list .output.text yview]
 119 pack .output.horizontal -side bottom -fill x
 120 pack .output.vertical -side right -fill y
 121 pack .output.text -expand true -anchor nw -fill both
 122
 123 pack .buttons .output