basis/editors/aquamacs/aquamacs.factor

   1 ! File: aquamacs.factor
   2 ! Version: 0.1
   3 ! DRI: Dave Carlton
   4 ! Description: Another fine Factor file!
   5 ! Copyright (C) 2017 Dave Carlton.
   6 ! See http://factorcode.org/license.txt for BSD license.
   7
   8 USING: combinators.short-circuit editors io.standard-paths
   9 kernel make math.parser namespaces sequences system ;
  10 IN: editors.aquamacs
  11
  12 SINGLETON: aquamacs
  13 aquamacs editor-class set-global
  14
  15 HOOK: find-aquamacs os ( -- path )
  16
  17 M: object find-aquamacs ( -- path )
  18     "aquamacs" ?find-in-path ;
  19
  20 M: aquamacs editor-command ( file line -- command )
  21     drop
  22     [
  23         "/Applications/Aquamacs.app/Contents/MacOS/bin/aquamacs" ,
  24         ,
  25     ] { } make
  26     ;
  27