firesteps

;; Signed graph

(defparameter *max-label-length* 30)

(defun dot-name (exp)
  (substitute-if #\_ (complement #'alphanumericp) (prin1-to-string exp)))

(defun dot-label (exp)
  (if exp
      (let ((s (write-to-string exp :pretty nil)))

firesteps

-- file "AddressBookPluginCopyMobilePhone.scpt" must be placed in ~/Library/Address Book Plug-Ins/
--add item "copy to clipboard" to context menu of phone number in Address Book.app
using terms from application "Address Book"
	on action property
		return "phone"
	end action property
	
	on action title for aPerson with phoneNumber
		return ("Copy to clipboard")
	end action title