clim-desktop-devel March 2006

clim-desktop-devel@common-lisp.net

1 participants
2 discussions

[clim-desktop-devel] Mouse-sensitive symbols in buffers!
by Troels Henriksen 26 Mar '06

26 Mar '06

Simple, but cool: (in-package :climacs-lisp-syntax) (define-presentation-to-command-translator edit-definition (symbol com-edit-definition lisp-table :gesture :select :tester ((object presentation) (declare (ignore object)) (not (eq (presentation-type presentation) 'unknown-symbol))) :documentation "Edit definition") (object) (list object)) (define-command (com-inspect-symbol :name t :command-table lisp-table) ((symbol 'symbol :prompt "Edit symbol")) (clouseau:inspector symbol :new-process t)) (define-presentation-to-command-translator inspect-symbol (symbol com-inspect-symbol lisp-table :gesture :describe :tester ((object presentation) (declare (ignore object)) (not (eq (presentation-type presentation) 'unknown-symbol))) :documentation "Inspect") (object) (list object)) This will make various Lisp symbols mouse-sensitive when editing Lisp code. Should this be in Swine? I think it's cool, but I'm not sure whether it is genuinely useful or just a gimmick. -- \ Troels "Athas" Henriksen /\ - Insert witty signature

1 0

[clim-desktop-devel] Patch: Fix for error-causing Swine bug
by Troels Henriksen 14 Mar '06

14 Mar '06

If the first symbol of a list is a keyword symbol, Swine will signal an error when it tries to look up its arglist. The attached patch fixes this issue. Index: swine-cmds.lisp =================================================================== RCS file: /project/clim-desktop/cvsroot/clim-desktop/swine-cmds.lisp,v retrieving revision 1.3 diff -u -r1.3 swine-cmds.lisp --- swine-cmds.lisp 22 Feb 2006 10:47:29 -0000 1.3 +++ swine-cmds.lisp 14 Mar 2006 10:26:19 -0000 @@ -177,8 +177,17 @@ (when name (with-slots (package) (syntax (buffer (current-window))) (let ((function-symbol (let* ((pos2 (position #\: name :from-end t)) - (pos1 (if (and pos2 (char= (elt name (1- pos2)) #\:)) (1- pos2) pos2) )) - (handler-case (if pos2 (find-symbol (subseq name (1+ pos2)) (subseq name 0 pos1)) + (pos1 (if (and pos2 + ;; If the first + ;; element of + ;; the list is + ;; a keyword + ;; symbol, pos2 + ;; might be 0. + (plusp pos2) + (char= (elt name (1- pos2)) #\:)) + (1- pos2) pos2))) + (handler-case (if pos1 (find-symbol (subseq name (1+ pos2)) (subseq name 0 pos1)) (find-symbol name (or package *package*))) (package-error (e) ;; The specified symbol is in -- \ Troels "Athas" Henriksen /\ - Insert witty signature

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

clim-desktop-devel March 2006