#lang s-exp framework/keybinding-lang
(require racket/system
         racket/string)

(keybinding "c:a" (λ (editor evt) 
                    (when (send editor get-filename) 
                      (let-values ([(base filename dir) (split-path (send editor get-filename))])
                        (current-directory base)
                        (system (string-join (list "fossil" "add" (path->string filename)) " "))))))


(keybinding "c:c" (λ (editor evt) 
                    (when (send editor get-filename) 
                      (let-values ([(base filename dir) (split-path (send editor get-filename))])
                        (current-directory base)
                        (system "fossil commit -m \"quick-commit\"")))))