The filter-maker Reference Manual

3.1.1 filter-maker/filter-maker.asd

Source

filter-maker.asd.

Parent Component

filter-maker (system).

ASDF Systems

filter-maker.

---

3.1.2 filter-maker/package.lisp

Source

filter-maker.asd.

Parent Component

filter-maker (system).

Packages

filter-maker.

---

3.1.3 filter-maker/filter-maker.lisp

Dependency

package.lisp (file).

Source

filter-maker.asd.

Parent Component

filter-maker (system).

Public Interface

• arguments (reader method).
• filter (function).
• key (reader method).
• (setf key) (writer method).
• key (class).
• key-function (reader method).
• (setf key-function) (writer method).
• predicate (reader method).
• (setf predicate) (writer method).
• predicate (class).
• predicate-function (reader method).
• pretty-name (reader method).
• pretty-name (reader method).
• (setf pretty-name) (writer method).
• rule (class).
• run-filter-maker (function).
• update-instance-for-redefined-class (method).
• value (reader method).
• (setf value) (writer method).

Internals

• apply-filter (method).
• apply-rule (method).
• combining-type (reader method).
• (setf combining-type) (writer method).
• define-filter-maker-command (macro).
• display-items (function).
• display-rule (function).
• display-rule-list (function).
• filter-maker (class).
• items (reader method).
• keys (reader method).
• (setf keys) (writer method).
• predicates (reader method).
• (setf predicates) (writer method).
• reinitialize-panes-and-layouts (method).
• return-value (reader method).
• (setf return-value) (writer method).
• rules (reader method).
• (setf rules) (writer method).

---

5.1.1 Ordinary functions

Function: filter (predicates keys items) ¶

Display a GUI filter maker with PREDICATES and KEYS that will filter ITEMS.

Package

filter-maker.

Source

filter-maker.lisp.

Function: run-filter-maker (items predicates keys) ¶

Package

filter-maker.

Source

filter-maker.lisp.

---

5.1.2 Generic functions

Generic Reader: arguments (object) ¶

Package

filter-maker.

Methods

Reader Method: arguments ((predicate predicate)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%arguments.

Generic Reader: key (object) ¶

Package

filter-maker.

Methods

Reader Method: key ((rule rule)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%key.

Generic Writer: (setf key) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf key) ((rule rule)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%key.

Generic Reader: key-function (object) ¶

Package

filter-maker.

Methods

Reader Method: key-function ((key key)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%function.

Generic Writer: (setf key-function) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf key-function) ((key key)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%function.

Generic Reader: predicate (object) ¶

Package

filter-maker.

Methods

Reader Method: predicate ((rule rule)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%predicate.

Generic Writer: (setf predicate) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf predicate) ((rule rule)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%predicate.

Generic Reader: predicate-function (object) ¶

Package

filter-maker.

Methods

Reader Method: predicate-function ((predicate predicate)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%function.

Generic Reader: pretty-name (object) ¶

Package

filter-maker.

Methods

Reader Method: pretty-name ((key key)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%pretty-name.

Reader Method: pretty-name ((predicate predicate)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%pretty-name.

Generic Writer: (setf pretty-name) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf pretty-name) ((key key)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%pretty-name.

Generic Reader: value (object) ¶

Package

filter-maker.

Methods

Reader Method: value ((rule rule)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%value.

Generic Writer: (setf value) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf value) ((rule rule)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%value.

---

5.1.3 Standalone methods

Method: update-instance-for-redefined-class :after ((instance filter-maker) as ds pl &rest initargs) ¶

Source

filter-maker.lisp.

---

5.1.4 Classes

Class: key ¶

Package

filter-maker.

Source

filter-maker.lisp.

Direct methods

• (setf key-function).
• key-function.
• (setf pretty-name).
• pretty-name.

Direct slots

Slot: %function ¶

Initargs

:function

Readers

key-function.

Writers

(setf key-function).

Slot: %pretty-name ¶

Initargs

:pretty-name

Readers

pretty-name.

Writers

(setf pretty-name).

Class: predicate ¶

Package

filter-maker.

Source

filter-maker.lisp.

Direct methods

• arguments.
• predicate-function.
• pretty-name.

Direct slots

Slot: %function ¶

Initargs

:function

Readers

predicate-function.

Writers

This slot is read-only.

Slot: %pretty-name ¶

Initargs

:pretty-name

Readers

pretty-name.

Writers

This slot is read-only.

Slot: %arguments ¶

Initargs

:arguments

Readers

arguments.

Writers

This slot is read-only.

Class: rule ¶

Package

filter-maker.

Source

filter-maker.lisp.

Direct methods

• apply-rule.
• (setf key).
• key.
• (setf predicate).
• predicate.
• (setf value).
• value.

Direct slots

Slot: %predicate ¶

Initform

(first (filter-maker::predicates clim:*application-frame*))

Initargs

:predicate

Readers

predicate.

Writers

(setf predicate).

Slot: %key ¶

Initform

(first (filter-maker::keys clim:*application-frame*))

Initargs

:key

Readers

key.

Writers

(setf key).

Slot: %value ¶

Initform

""

Readers

value.

Writers

(setf value).

---

5.2.1 Macros

Macro: define-filter-maker-command (name-and-options arguments &rest body) ¶

Package

filter-maker.

Source

filter-maker.lisp.

---

5.2.2 Ordinary functions

Function: display-items (frame pane) ¶

Package

filter-maker.

Source

filter-maker.lisp.

Function: display-rule (frame pane rule) ¶

Package

filter-maker.

Source

filter-maker.lisp.

Function: display-rule-list (frame pane) ¶

Package

filter-maker.

Source

filter-maker.lisp.

---

5.2.3 Generic functions

Generic Function: apply-filter (frame) ¶

Package

filter-maker.

Methods

Method: apply-filter ((frame filter-maker)) ¶

Source

filter-maker.lisp.

Generic Function: apply-rule (rule item) ¶

Package

filter-maker.

Methods

Method: apply-rule ((rule rule) item) ¶

Source

filter-maker.lisp.

Generic Reader: combining-type (object) ¶

Package

filter-maker.

Methods

Reader Method: combining-type ((filter-maker filter-maker)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%combining-type.

Generic Writer: (setf combining-type) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf combining-type) ((filter-maker filter-maker)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%combining-type.

Generic Reader: items (object) ¶

Package

filter-maker.

Methods

Reader Method: items ((filter-maker filter-maker)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%items.

Generic Reader: keys (object) ¶

Package

filter-maker.

Methods

Reader Method: keys ((filter-maker filter-maker)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%keys.

Generic Writer: (setf keys) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf keys) ((filter-maker filter-maker)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%keys.

Generic Reader: predicates (object) ¶

Package

filter-maker.

Methods

Reader Method: predicates ((filter-maker filter-maker)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%predicates.

Generic Writer: (setf predicates) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf predicates) ((filter-maker filter-maker)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%predicates.

Generic Reader: return-value (object) ¶

Package

filter-maker.

Methods

Reader Method: return-value ((filter-maker filter-maker)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%return-value.

Generic Writer: (setf return-value) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf return-value) ((filter-maker filter-maker)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%return-value.

Generic Reader: rules (object) ¶

Package

filter-maker.

Methods

Reader Method: rules ((filter-maker filter-maker)) ¶

automatically generated reader method

Source

filter-maker.lisp.

Target Slot

%rules.

Generic Writer: (setf rules) (object) ¶

Package

filter-maker.

Methods

Writer Method: (setf rules) ((filter-maker filter-maker)) ¶

automatically generated writer method

Source

filter-maker.lisp.

Target Slot

%rules.

---

5.2.4 Standalone methods

Method: reinitialize-panes-and-layouts ((frame filter-maker)) ¶

Package

clim-internals.

Source

filter-maker.lisp.

---

5.2.5 Classes

Class: filter-maker ¶

Package

filter-maker.

Source

filter-maker.lisp.

Direct superclasses

standard-application-frame.

Direct methods

• apply-filter.
• (setf combining-type).
• combining-type.
• items.
• (setf keys).
• keys.
• (setf predicates).
• predicates.
• reinitialize-panes-and-layouts.
• (setf return-value).
• return-value.
• (setf rules).
• rules.
• update-instance-for-redefined-class.

Direct Default Initargs

Initarg	Value
:name	(quote filter-maker)
:pretty-name	filter-maker
:command-table	(find-command-table (quote filter-maker))
:disabled-commands	(quote nil)
:menu-bar	(quote nil)
:pointer-documentation	(quote nil)
:current-layout	(quote default)
:layouts	(quote ((default (vertically nil rule-list (horizontally nil combining-type-list show-items-button +fill+ add-rule ok cancel))) (item-display-layout (vertically nil (horizontally nil rule-list item-display) (horizontally nil combining-type-list show-items-button +fill+ add-rule ok cancel)))))
:resize-frame	(quote nil)
:top-level-lambda	(lambda (frame-arg0) (default-frame-top-level frame-arg0))
:panes-constructor	(lambda (fm frame) (or (frame-panes-for-layout frame) (setf (frame-panes-for-layout frame) (with-look-and-feel-realization (fm frame) (list (cons (quote rule-list) (make-clim-application-pane name (quote rule-list) display-time command-loop display-function (quote display-rule-list))) (cons (quote add-rule) (make-pane (quote push-button) name (quote add-rule) label add new rule activate-callback (lambda (gadget) (declare (ignore gadget)) (let ((rule (make-instance (quote rule)))) (setf (rules *application-frame*) (append (rules *application-frame*) (list rule))) (redisplay-frame-panes *application-frame*))))) (cons (quote ok) (make-pane (quote push-button) name (quote ok) label ok activate-callback (lambda (gadget) (declare (ignore gadget)) (setf (return-value *application-frame*) (apply-filter *application-frame*)) (frame-exit *application-frame*)))) (cons (quote cancel) (make-pane (quote push-button) name (quote cancel) label cancel activate-callback (lambda (gadget) (declare (ignore gadget)) (setf (return-value *application-frame*) cancelled) (frame-exit *application-frame*)))) (cons (quote combining-type-list) (make-pane (quote option-pane) name (quote combining-type-list) items (quote ((or match any rule) (and match all rules))) name-key (function second) value-key (function first) value or value-changed-callback (lambda (gadget value) (declare (ignore gadget)) (setf (combining-type *application-frame*) value)))) (cons (quote show-items-button) (make-pane (quote push-button) name (quote show-items-button) label toggle filter preview activate-callback (lambda (gadget) (declare (ignore gadget)) (if (eq (frame-current-layout *application-frame*) (quote item-display-layout)) (setf (frame-current-layout *application-frame*) (quote default)) (setf (frame-current-layout *application-frame*) (quote item-display-layout)))))) (cons (quote item-display) (make-clim-application-pane name (quote item-display) display-function (quote display-items))))))))
:layout-constructor	(lambda (fm frame) (disown-frame-panes fm frame) (let ((named-panes (frame-panes-for-layout frame))) (declare (ignorable named-panes)) (let ((rule-list (assoc-value named-panes (quote rule-list) test (function eq))) (add-rule (assoc-value named-panes (quote add-rule) test (function eq))) (ok (assoc-value named-panes (quote ok) test (function eq))) (cancel (assoc-value named-panes (quote cancel) test (function eq))) (combining-type-list (assoc-value named-panes (quote combining-type-list) test (function eq))) (show-items-button (assoc-value named-panes (quote show-items-button) test (function eq))) (item-display (assoc-value named-panes (quote item-display) test (function eq)))) (declare (ignorable rule-list add-rule ok cancel combining-type-list show-items-button item-display)) (setf (frame-panes frame) (ecase (frame-current-layout frame) (default (vertically nil rule-list (horizontally nil combining-type-list show-items-button +fill+ add-rule ok cancel))) (item-display-layout (vertically nil (horizontally nil rule-list item-display) (horizontally nil combining-type-list show-items-button +fill+ add-rule ok cancel))))))) (adopt-frame-panes fm frame (frame-current-layout frame)) (update-frame-pane-lists frame))

Direct slots

Slot: %predicates ¶

Initform

(quote nil)

Initargs

:predicates

Readers

predicates.

Writers

(setf predicates).

Slot: %keys ¶

Initargs

:keys

Readers

keys.

Writers

(setf keys).

Slot: %combining-type ¶

Initform

:or

Initargs

:combining-type

Readers

combining-type.

Writers

(setf combining-type).

Slot: %rules ¶

Initform

(quote nil)

Readers

rules.

Writers

(setf rules).

Slot: %items ¶

Initargs

:items

Readers

items.

Writers

This slot is read-only.

Slot: %return-value ¶

Initform

:cancelled

Readers

return-value.

Writers

(setf return-value).

---