The org.melusina.atelier Reference Manual

4.1.1 org.melusina.atelier/org.melusina.atelier.asd

Source

org.melusina.atelier.asd.

Parent Component

org.melusina.atelier (system).

ASDF Systems

org.melusina.atelier.

---

4.1.2 org.melusina.atelier/src/package.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Packages

org.melusina.atelier.

---

4.1.3 org.melusina.atelier/src/utilities.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Internals

• add-pathname (function).
• break-down (function).
• count-string-words (function).
• edit-first-line (function).
• edit-last-line (function).
• first-line (function).
• (setf first-line) (function).
• indent (function).
• join-lines (function).
• last-line (function).
• (setf last-line) (function).
• last-line-position (function).
• read-file-into-list (function).
• string-lines (function).
• string-list-p (function).
• string-match (function).
• string-prefix-p (function).
• string-suffix-p (function).
• string-words (function).

---

4.1.4 org.melusina.atelier/src/configuration.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Internals

*resourcedir* (special variable).

---

4.1.5 org.melusina.atelier/src/license.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Public Interface

list-licenses (function).

Internals

• *license-repository* (special variable).
• *license-repository-pathname* (special variable).
• find-license (function).
• license (class).
• license-repository-list-licenses (function).
• license-repository-load (function).
• license-repository-load-definition (function).

---

4.1.6 org.melusina.atelier/src/parameter.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Public Interface

• *parameter-bindings* (special variable).
• parameter-keyword (function).

Internals

• *parameter-block* (special variable).
• *parameter-placeholder-regex* (special variable).
• list-parameter-names (function).
• merge-parameter-bindings (function).
• parameter-name-equal (function).
• parameter-replace (function).
• parameter-replacement-text (function).
• sort-parameter-bindings (function).

---

4.1.7 org.melusina.atelier/src/template.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Public Interface

• find-template (function).
• list-template-parameter-names (function).
• list-templates (function).
• new-lisp-file (function).
• new-lisp-project (function).
• write-template (function).

Internals

• *composite-template-specs* (special variable).
• *template-repository* (special variable).
• *template-repository-pathname* (special variable).
• composite-template (class).
• file-template (class).
• make-file-template (function).
• make-shell-namespace (function).
• really-list-template-parameter-names (generic function).
• really-write-template (generic function).
• template (class).
• template-environment (function).
• template-repository-empty-p (function).
• template-repository-list-templates (function).
• template-repository-load (function).
• template-repository-load-definition-file (function).

---

4.1.8 org.melusina.atelier/src/lint.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Public Interface

• *linter-interactive-p* (special variable).
• block-comment-linter (class).
• canonical-source-linter (class).
• content-inspectors (generic function).
• define-inspector (macro).
• extensive-linter (class).
• file-inspectors (generic function).
• hint-at-file (function).
• hint-at-file (class).
• hint-at-file-line (function).
• hint-at-file-line (class).
• inline-comment-linter (class).
• line-inspectors (generic function).
• lint (function).
• lint-file (function).
• linter (class).
• list-inspectors (function).
• plain-block-comment-linter (class).
• plain-line-comment-linter (class).

Internals

• *hint-code* (special variable).
• *hint-line* (special variable).
• *hint-pathname* (special variable).
• *hint-srcdir* (special variable).
• *inspector-table* (special variable).
• *linter* (special variable).
• *linter-table* (special variable).
• anomaly (function).
• anomaly (condition).
• arrange-hints-by-code (function).
• arrange-hints-by-file (function).
• arrange-hints-by-file-then-code (function).
• arrange-hints-by-key (function).
• comment-prefix-regex (function).
• decorate-block-comment (generic function).
• decorate-line-comment (method).
• decorate-line-comment (method).
• decorate-line-commment (generic function).
• define-plain-linter (function).
• find-inspector (function).
• find-plain-linter (function).
• format-hints-by-file-then-code (function).
• hint (class).
• lint-contents (function).
• lint-lines (function).
• linter-for-file (function).
• linter-match (function).
• make-plain-block-comment-linter (function).
• make-plain-line-comment-linter (function).

---

4.1.9 org.melusina.atelier/src/inspector/codestyle-0001.lisp

Source

org.melusina.atelier.asd.

Parent Component

inspector (module).

Internals

hint-at-file-when-character-encoding-is-not-utf8 (function).

---

4.1.10 org.melusina.atelier/src/inspector/codestyle-0002.lisp

Source

org.melusina.atelier.asd.

Parent Component

inspector (module).

Internals

hint-at-file-line-when-it-is-very-long (function).

---

4.1.11 org.melusina.atelier/src/inspector/codestyle-0003.lisp

Source

org.melusina.atelier.asd.

Parent Component

inspector (module).

Internals

• hint-at-file-when-it-lacks-canonical-header-line (function).
• string-shebang-end-position (function).

---

4.1.12 org.melusina.atelier/src/inspector/codestyle-0004.lisp

Source

org.melusina.atelier.asd.

Parent Component

inspector (module).

Internals

hint-at-file-when-it-lacks-canonical-footer-line (function).

---

4.1.13 org.melusina.atelier/src/inspector/codestyle-0005.lisp

Source

org.melusina.atelier.asd.

Parent Component

inspector (module).

Internals

hint-at-file-when-it-lacks-canonical-project-identification (function).

---

4.1.14 org.melusina.atelier/src/inspector/codestyle-0006.lisp

Source

org.melusina.atelier.asd.

Parent Component

inspector (module).

Internals

hint-at-file-when-it-lacks-project-license-information (function).

---

4.1.15 org.melusina.atelier/src/main.lisp

Source

org.melusina.atelier.asd.

Parent Component

src (module).

Public Interface

initialize (function).

---

6.1.1 Special variables

Special Variable: *linter-interactive-p* ¶

Flag governing the interactive mode of the linter.
When the flag is a generalised boolean, the linter interactions are enabled otherwise they are disabled.

When linter interactions are enabled, the system gives the operator the chance to accept corrections guessed by the automatic correction system, if any. Should the operator not take this chance, the anomaly is recorded into the linter report.

When the flag is NIL, anomalies are always recorded into the linter report and the linter is exiting the program when done.

The default value of the parameter is based on the :SWANK feature.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *parameter-bindings* ¶

An aliast providing text replacement for various parameters.

Package

org.melusina.atelier.

Source

parameter.lisp.

---

6.1.2 Macros

Macro: define-inspector (code name lambda-list &body body) ¶

Define inspector NAME emitting hint codes CODE.
The inspector NAME is a function with the given LAMBDA-LIST and BODY. The inspector is called with a PATHNAME when it is a file inspector, with a file CONTENTS when it is a contents inspector, with file LINES when it is a line inspector or with CODE when it is a CODE inspector.

Package

org.melusina.atelier.

Source

lint.lisp.

---

6.1.3 Ordinary functions

Function: find-template (designator) ¶

Find template by DESIGNATOR in *TEMPLATE-REPOSITORY*.

Package

org.melusina.atelier.

Source

template.lisp.

Function: hint-at-file (description &optional control-string &rest format-arguments) ¶

Make a hint CODE for PATHNAME stating a description.
The description is prepared by formatting CONTROL-STRING and FORMAT-ARGUMENTS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: hint-at-file-line (description &optional control-string &rest format-arguments) ¶

Make a hint CODE for PATHNAME and LINE stating a description.
The description is prepared by formatting CONTROL-STRING and FORMAT-ARGUMENTS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: initialize () ¶

Package

org.melusina.atelier.

Source

main.lisp.

Function: lint (&rest pathnames) ¶

Lint file PATHNAMES with the given linters.

When the first item of PATHNAMES is a list itself, then the linter is called on pathnames on that list.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: lint-file (pathname inspectors) ¶

Ensure the file CONTENTS under PATHNAME validates some file contents with INSPECTORS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: list-inspectors () ¶

List INSPECTORS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: list-licenses () ¶

Returns a list containing the designators of known licenses.

Package

org.melusina.atelier.

Source

license.lisp.

Function: list-template-parameter-names (template-designator) ¶

List the parameters consumed by TEMPLATE-DESIGNATOR.

Package

org.melusina.atelier.

Source

template.lisp.

Function: list-templates () ¶

Returns a list containing the designators of known templates.

Package

org.melusina.atelier.

Source

template.lisp.

Function: new-lisp-file (name summary) ¶

Create a new file NAME with SUMMARY.

Package

org.melusina.atelier.

Source

template.lisp.

Function: new-lisp-project (pathname &key environment copyright-holder copyright-year project-filename project-name project-description project-long-description homepage license) ¶

Create a new lisp project in PATHNAME.

Package

org.melusina.atelier.

Source

template.lisp.

Function: parameter-keyword (parameter-name) ¶

The keyword associated with PARAMETER-NAME.

Package

org.melusina.atelier.

Source

parameter.lisp.

Function: write-template (template-designator pathname &optional environment) ¶

Write the template identified by DESIGNATOR under PATHNAME.

If environment is provided, it is a plist which is added to the current *PARAMETER-BINDINGS*.

The PATHNAME argument can actually be a pathname, a string instepreted as a UNIX path, a stream or the value T.

Package

org.melusina.atelier.

Source

template.lisp.

---

6.1.4 Generic functions

Generic Function: content-inspectors (linter) ¶

Inspectors emitting hints applying to the file contents.
These inspectors are called with CONTENTS of the file, a string. They are a good place to validate the presence of fixed texts or the absence of authentication tokens and the like.

Package

org.melusina.atelier.

Source

lint.lisp.

Method Combination

append.

Options

:most-specific-first

Methods

Method: content-inspectors append ((instance canonical-source-linter)) ¶

Method: content-inspectors append ((instance extensive-linter)) ¶

Method: content-inspectors append ((instance linter)) ¶

Generic Function: file-inspectors (linter) ¶

Inspectors emitting hints applying to the file.
These inspectors are called with the PATHNAME of the file. They are a good place to validate the file encoding, or file properties.

Package

org.melusina.atelier.

Source

lint.lisp.

Method Combination

append.

Options

:most-specific-first

Methods

Method: file-inspectors append ((instance canonical-source-linter)) ¶

Method: file-inspectors append ((instance extensive-linter)) ¶

Method: file-inspectors append ((instance linter)) ¶

Generic Function: line-inspectors (linter) ¶

Inspectors emitting hints applying to individual lines of a file.
The inspectors are called on a LINE of the file, a string. They are a good place to strip whitespace, detect long lines, etc.

Package

org.melusina.atelier.

Source

lint.lisp.

Method Combination

append.

Options

:most-specific-first

Methods

Method: line-inspectors append ((instance extensive-linter)) ¶

Method: line-inspectors append ((instance linter)) ¶

---

6.1.5 Classes

Class: block-comment-linter ¶

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

linter.

Direct subclasses

plain-block-comment-linter.

Direct methods

decorate-block-comment.

Direct slots

Slot: comment-prefix ¶

Initform

(error "an block-comment-linter requires a comment-prefix.")

Initargs

:comment-prefix

Slot: comment-prefix-regex ¶

Initform

(error "an block-comment-linter requires a comment-prefix-regex.")

Initargs

:comment-prefix-regex

Slot: comment-continuation ¶

Initform

(error "an block-comment-linter requires a comment-continuation.")

Initargs

:comment-continuation

Slot: comment-suffix ¶

Initform

(error "an block-comment-linter requires a comment-suffix.")

Initargs

:comment-suffix

Class: canonical-source-linter ¶

A SOURCE-LINTER verrifies that a file follows canonical project rules.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

linter.

Direct subclasses

• plain-block-comment-linter.
• plain-line-comment-linter.

Direct methods

• content-inspectors.
• file-inspectors.

Class: extensive-linter ¶

The EXTENSIVE-LINTER class represents an extensive set of INSPECTORS.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

linter.

Direct subclasses

• plain-block-comment-linter.
• plain-line-comment-linter.

Direct methods

• content-inspectors.
• file-inspectors.
• line-inspectors.

Direct slots

Slot: file-inspectors ¶

The extensive list of FILE-INSPECTORS selected by this LINTER.

Initargs

:file-inspectors

Slot: content-inspectors ¶

The extensive list of CONTENT-INSPECTORS selected by this LINTER.

Initargs

:content-inspectors

Slot: line-inspectors ¶

The extensive list of LINE-INSPECTORS selected by this LINTER.

Initargs

:line-inspectors

Class: hint-at-file ¶

The hint class represents hints that are affecting a file.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

hint.

Direct slots

Slot: pathname ¶

The relative pathname of the affected file.

Package

common-lisp.

Initargs

:pathname

Class: hint-at-file-line ¶

The hint class represent hints that are affecting a spcific line in a file.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

hint.

Direct slots

Slot: pathname ¶

The relative pathname of the affected file.

Package

common-lisp.

Initargs

:pathname

Slot: line ¶

The line number withing the affected file.

Initargs

:line

Class: inline-comment-linter ¶

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

linter.

Direct subclasses

plain-line-comment-linter.

Direct methods

decorate-line-comment.

Direct slots

Slot: comment-prefix ¶

Initform

(error "an inline-comment-linter requires a comment-prefix.")

Initargs

:comment-prefix

Slot: comment-prefix-regex ¶

Initform

(error "an inline-comment-linter requires a comment-prefix-regex.")

Initargs

:comment-prefix-regex

Class: linter ¶

The linter class represents a set of hints and a filter selecting files subject to these hints.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct subclasses

• block-comment-linter.
• canonical-source-linter.
• extensive-linter.
• inline-comment-linter.

Direct methods

• content-inspectors.
• file-inspectors.
• line-inspectors.

Direct slots

Slot: file-type ¶

File types which are subject to the hints owned by the structure.

Initargs

:file-type

Slot: file-predicate ¶

The FILE-PREDICATE recognises the file of the given FILE-TYPE.
The FILE-PREDICATE can have one of the following forms:

* T
The predicate that recognises every file.
* NIL
The predicate that recognises no file.
* (:HAS-PREFIX STRING)
The predicate that recognises files whose name starts with STRING. * (:HAS-SUFFIX STRING)
The predicate that recognises files whose name ends with STRING. * (:HAS-NAME STRING)
The predicate that recognises files whose name is STRING.
* (:HAS-SHEBANG STRING)
The predicate that recognises files with a SHEBANG similar to STRING. * (:OR PREDICATE1 …)
The disjunction of predicates.
* (:AND PREDICATE1 …)
The conjunction of predicates.

Initform

t

Initargs

:file-predicate

Class: plain-block-comment-linter ¶

The class of linters for languages whose comments follow the block comment style.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

• block-comment-linter.
• canonical-source-linter.
• extensive-linter.

Class: plain-line-comment-linter ¶

The class of linters for languages whose comments follow the line comment style.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

• canonical-source-linter.
• extensive-linter.
• inline-comment-linter.

---

6.2.1 Special variables

Special Variable: *composite-template-specs* ¶

Package

org.melusina.atelier.

Source

template.lisp.

Special Variable: *hint-code* ¶

The hint code locally bound by the DEFINE-HINT macro.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *hint-line* ¶

The number of the line being hinted at.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *hint-pathname* ¶

The relative pathname of the file being linted.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *hint-srcdir* ¶

The source directory for the project being linted.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *inspector-table* ¶

The table of inspector corresponding to their codes.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *license-repository* ¶

A hash-table with all licenses.

Package

org.melusina.atelier.

Source

license.lisp.

Special Variable: *license-repository-pathname* ¶

The pathname to our license repository.

Package

org.melusina.atelier.

Source

license.lisp.

Special Variable: *linter* ¶

The current linter used.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *linter-table* ¶

The table of linters corresponding to their file types.

Package

org.melusina.atelier.

Source

lint.lisp.

Special Variable: *parameter-block* ¶

The list of parameters that are to be replaced as block variables.

Package

org.melusina.atelier.

Source

parameter.lisp.

Special Variable: *parameter-placeholder-regex* ¶

The regular expression matching parameter placeholders.

Package

org.melusina.atelier.

Source

parameter.lisp.

Special Variable: *resourcedir* ¶

The pathname to the directory holding program resources.

Package

org.melusina.atelier.

Source

configuration.lisp.

Special Variable: *template-repository* ¶

A hash-table with all templates.

Package

org.melusina.atelier.

Source

template.lisp.

Special Variable: *template-repository-pathname* ¶

The pathname to our template repository.

Package

org.melusina.atelier.

Source

template.lisp.

---

6.2.2 Ordinary functions

Function: add-pathname (pathname list-of-pathnames) ¶

Add PATHNAME to LIST-OF-PATHNAMES unless it is already found there.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: anomaly (description &optional control-string &rest format-arguments) ¶

Signal an anomaly with the given parameters.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: arrange-hints-by-code (hints) ¶

Arrange HINTS into an alist mapping CODES to their list of HINTS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: arrange-hints-by-file (hints) ¶

Arrange HINTS into an alist mapping PATHNAMES to their list of HINTS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: arrange-hints-by-file-then-code (hints) ¶

Package

org.melusina.atelier.

Source

lint.lisp.

Function: arrange-hints-by-key (key hints) ¶

Arrange HINTS into an alist mapping KEYS to their list of HINTS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: break-down (taste sequence) ¶

Break down a list SEQUENCE into consecutive lists of constant TASTE. The TASTE argument is a function which is applied on sequence elements to taste them. Taste values are

The answer is an alist whose terms have the form

(TASTE1 . SEQUENCE1)

such that:

1. The concatenation of the SEQUENCE1s yields SEQUENCE.
2. Each element of the list SEQUENCE1 has the given TASTE1.
3. Consecutive terms of the answer have distinct TASTE1.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: comment-prefix-regex (linter) ¶

Package

org.melusina.atelier.

Source

lint.lisp.

Function: count-string-words (string) ¶

Count the number of words in STRING.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: define-plain-linter (&rest initargs &key file-predicate file-type comment-prefix comment-prefix-regex comment-continuation comment-suffix file-inspectors content-inspectors line-inspectors) ¶

Define a plain linter from either style and add it to the linter table.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: edit-first-line (string first-line) ¶

Edit the first line of STRING to FIRST-LINE as a new string.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: edit-last-line (string last-line) ¶

Edit the last line of STRING to LAST-LINE as a new string.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: find-inspector (inspector-designator) ¶

Find the inspector designated by INSPECTOR-DESIGNATOR.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: find-license (designator) ¶

Find license by DESIGNATOR in *LICENSE-REPOSITORY*.

Package

org.melusina.atelier.

Source

license.lisp.

Function: find-plain-linter (designator) ¶

Find a plain linter by its DESIGNATOR.
The designator is a keyword representing the filetype the linter wants to take care of.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: first-line (string) ¶

The first line of STRING.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: (setf first-line) (string) ¶

Set the first line of STRING to NEW-VALUE.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: format-hints-by-file-then-code (destination hints) ¶

Package

org.melusina.atelier.

Source

lint.lisp.

Function: hint-at-file-line-when-it-is-very-long (line &key maximum-length) ¶

Hint at very long LINE.
The parameter MAXIMUM-LENGTH is set to 100, which matches typical Common Lisp style guides. This is usually a good value for programming but pure text should aim at a smaller length. For pure text, a maximum length of 80 or maybe 70 characters seems appropriate.

When a line has only one word, it is not counted as very long. When a line is a lisp definition, it does not need to be short. This latter rule makes grep more useful.

Package

org.melusina.atelier.

Source

codestyle-0002.lisp.

Function: hint-at-file-when-character-encoding-is-not-utf8 (pathname) ¶

Hint at PATHNAME when it is not a valid UTF8 file.

Package

org.melusina.atelier.

Source

codestyle-0001.lisp.

Function: hint-at-file-when-it-lacks-canonical-footer-line (contents) ¶

Hint at file when it lacks the canonical footer line.
The canonical footer line is a comment featuring a sentence about end of file, like

End of file ‘example.lisp’.

Package

org.melusina.atelier.

Source

codestyle-0004.lisp.

Function: hint-at-file-when-it-lacks-canonical-header-line (contents) ¶

Hint at file when it lacks the canonical header line.
The canonical header line is a comment featuring the filename, a dash and a short description.

Package

org.melusina.atelier.

Source

codestyle-0003.lisp.

Function: hint-at-file-when-it-lacks-canonical-project-identification (contents) ¶

Hint at file when it lacks the canonical project identification.
The canonical project identification is a group of comment lines following the first line and summarising the project name, the project page, the copyright holder and the license under which the file is released.

Package

org.melusina.atelier.

Source

codestyle-0005.lisp.

Function: hint-at-file-when-it-lacks-project-license-information (contents) ¶

Hint at file when it lacks the canonical project license information.

Package

org.melusina.atelier.

Source

codestyle-0006.lisp.

Function: indent (target-string &optional margin-left) ¶

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: join-lines (lines &optional separator) ¶

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: last-line (string) ¶

The last line of STRING.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: (setf last-line) (string) ¶

Set the last line of STRING to NEW-VALUE.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: last-line-position (string) ¶

The position of the last line of STRING.
The position is represented as multiple values, the START-POS and END-POS.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: license-repository-list-licenses (&optional license-repository-pathname) ¶

List licenses held in LICENSE-REPOSITORY-PATHNAME.

Package

org.melusina.atelier.

Source

license.lisp.

Function: license-repository-load (&optional license-repository-pathname) ¶

Load all licenses on LICENSE-REPOSITORY-PATHNAME.

Package

org.melusina.atelier.

Source

license.lisp.

Function: license-repository-load-definition (definition-pathname) ¶

Load the license definition found in DEFINITION-PATHNAME.
The file located at pathname must be a directory holding a file for each member value.

Package

org.melusina.atelier.

Source

license.lisp.

Function: lint-contents (contents inspectors) ¶

Ensure the file CONTENTS under PATHNAME validates some file contents with INSPECTORS.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: lint-lines (lines inspectors) ¶

Ensure the file LINES under PATHNAME validate some line INSPECTORS. When CONTENTS is supplied, it is used as the content of the file instead of reading the file contents from PATHNAME. Valid values for CONTENTS are a string or a list of strings.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: linter-for-file (pathname) ¶

Find a linter to apply for PATHNAME.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: linter-match (linter pathname) ¶

Predicate recognising if a LINTER applies to PATHNAME.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: list-parameter-names (template-text) ¶

The list of parameter names occuring in TEMPLATE-TEXT.

Package

org.melusina.atelier.

Source

parameter.lisp.

Function: make-file-template (&rest initargs &key template-id template-name template-text) ¶

Make a file template.

Package

org.melusina.atelier.

Source

template.lisp.

Function: make-plain-block-comment-linter (&rest initargs &key file-predicate file-type comment-prefix comment-prefix-regex comment-continuation comment-suffix file-inspectors content-inspectors line-inspectors) ¶

Make a block comment linter.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: make-plain-line-comment-linter (&rest initargs &key file-predicate file-type comment-prefix comment-prefix-regex file-inspectors content-inspectors line-inspectors) ¶

Make an inline comment linter.

Package

org.melusina.atelier.

Source

lint.lisp.

Function: make-shell-namespace (filename) ¶

Make a shell function namespace out of FILENAME.
The result is a word, without hyphen or dashes, that can be used as a prefix when defining shell functions and variables.

Package

org.melusina.atelier.

Source

template.lisp.

Function: merge-parameter-bindings (bindings1 bindings2) ¶

Make new bindings by adding to BINDINGS1 new parameters found in BINDINGS2. When an entry of BINDINGS2 maps a key to NIL, the entry is ignored. When an entry of BINDINGS2 uses the same key as an entry of BINDINGS1, that entry is ignored.

Package

org.melusina.atelier.

Source

parameter.lisp.

Function: parameter-name-equal (parameter-name1 parameter-name2) ¶

Predicate recognising equal parameter names.
Two parameter names are equal if they are equal regardless of case or difference between shell-case or lisp-case.

Package

org.melusina.atelier.

Source

parameter.lisp.

Function: parameter-replace (template-text bindings) ¶

Substitute parameters from TEMPLATE-TEXT according to BINDINGS.

Package

org.melusina.atelier.

Source

parameter.lisp.

Function: parameter-replacement-text (item &optional alist default) ¶

Package

org.melusina.atelier.

Source

parameter.lisp.

Function: read-file-into-list (pathname) ¶

Read PATHNAME into a list of lines.

When PATHNAME is a list of strings, it is returned as is, which is useful for testing.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: sort-parameter-bindings (bindings) ¶

Sort BINDINGS in a replacement order.
The replacement order is a topological sort and processing paramters in this order to handle a template text ensures all possible parameter names have been replaced.

It is an error to sort BINDINGS featuring a cyclic dependency.

Package

org.melusina.atelier.

Source

parameter.lisp.

Function: string-lines (string) ¶

Prepare the list of lines in STRING.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: string-list-p (object) ¶

Predicate recognising lists of strings.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: string-match (pattern text) ¶

Predicate recognising TEXT matching a globbing PATTERN.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: string-prefix-p (pattern text) ¶

Predicate recognising TEXT starting with PATTERN.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: string-shebang-end-position (string) ¶

The end position of a possible shebang line in STRING.

Package

org.melusina.atelier.

Source

codestyle-0003.lisp.

Function: string-suffix-p (pattern text) ¶

Predicate recognising TEXT ending with PATTERN.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: string-words (string) ¶

Prepare the list of words in STRING.

Package

org.melusina.atelier.

Source

utilities.lisp.

Function: template-environment (environment) ¶

Prepare template environment based on ENVIRONMENT.
The prepared template environment features license information and *PARAMETER-BINDINGS*.

Package

org.melusina.atelier.

Source

template.lisp.

Function: template-repository-empty-p () ¶

Package

org.melusina.atelier.

Source

template.lisp.

Function: template-repository-list-templates (&optional template-repository-pathname) ¶

List templates held in TEMPLATE-REPOSITORY-PATHNAME.

Package

org.melusina.atelier.

Source

template.lisp.

Function: template-repository-load (&optional template-repository-pathname) ¶

Load all templates on TEMPLATE-REPOSITORY-PATHNAME.

Package

org.melusina.atelier.

Source

template.lisp.

Function: template-repository-load-definition-file (definition-pathname) ¶

Load the file template from DEFINITION-PATHNAME.

Package

org.melusina.atelier.

Source

template.lisp.

---

6.2.3 Generic functions

Generic Function: decorate-block-comment (linter block-comment) ¶

Decorate a BLOCK-COMMENT for LINTER.
This decorates BLOCK-COMMENT according to FILE-TYPE so that BLOCK-COMMENT can
be inserted as a standalone comment block in a source code file of the corresponding FILE-TYPE.

A BLOCK-COMMENT can either be a string or a list of strings.

Package

org.melusina.atelier.

Source

lint.lisp.

Methods

Method: decorate-block-comment ((instance block-comment-linter) (block-comment list)) ¶

Method: decorate-block-comment (instance (block-comment string)) ¶

Method: decorate-block-comment (instance (block-comment list)) ¶

Generic Function: decorate-line-comment (linter line-comment) ¶

Package

org.melusina.atelier.

Methods

Method: decorate-line-comment ((instance inline-comment-linter) line) ¶

Source

lint.lisp.

Method: decorate-line-comment :before (linter (line-comment string)) ¶

Reject lines which contain a newline character.

Source

lint.lisp.

Generic Function: decorate-line-commment (linter line-comment) ¶

Decorate a LINE-COMMENT for LINTER.
This decorates LINE-COMMENT according to FILE-TYPE so that LINE-COMMENT can
be inserted as a standalone comment line in a source code file of the corresponding FILE-TYPE.

Package

org.melusina.atelier.

Source

lint.lisp.

Generic Function: really-list-template-parameter-names (template) ¶

List parameters used by TEMPLATE.

Package

org.melusina.atelier.

Source

template.lisp.

Methods

Method: really-list-template-parameter-names ((template composite-template)) ¶

Method: really-list-template-parameter-names ((template file-template)) ¶

Generic Function: really-write-template (template pathname template-environment) ¶

Write TEMPLATE into PATHNAME.

Package

org.melusina.atelier.

Source

template.lisp.

Methods

Method: really-write-template ((template composite-template) pathname template-environment) ¶

Method: really-write-template ((template file-template) pathname template-environment) ¶

---

6.2.4 Conditions

Condition: anomaly ¶

The class of anomalies spotted by inspectors.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct superclasses

condition.

Direct slots

Slot: code ¶

The code code of an anomaly.

Initform

(quote org.melusina.atelier::*hint-code*)

Initargs

:code

Slot: description ¶

A short, generic explanation of an anomaly.

Initform

(quote (error "an anomaly requires a description."))

Initargs

:description

Slot: explanation ¶

A longer, context-specific explanation of an anomaly.

Initform

(quote nil)

Initargs

:explanation

---

6.2.5 Classes

Class: composite-template ¶

This class represents a composite of other template.

Package

org.melusina.atelier.

Source

template.lisp.

Direct superclasses

template.

Direct methods

• really-list-template-parameter-names.
• really-write-template.

Direct slots

Slot: template-list ¶

List of templates that form the composite.
Each entry of the list is a list of the form

(TEMPLATE-DESIGNATOR RELATIVE-PATHNAME ADDITIONAL-BINDINGS)

Initargs

:template-list

Class: file-template ¶

This class represents a file template which creates a file when written.

Package

org.melusina.atelier.

Source

template.lisp.

Direct superclasses

template.

Direct methods

• really-list-template-parameter-names.
• really-write-template.

Direct slots

Slot: template-text ¶

The template text for the file template.

Initform

(error "a file template requires a template text.")

Initargs

:template-text

Class: hint ¶

The hint class represent hints.

Package

org.melusina.atelier.

Source

lint.lisp.

Direct subclasses

• hint-at-file.
• hint-at-file-line.

Direct slots

Slot: code ¶

The hint code uniquely defines a hint.

Initform

(error "a hint must have a unique hint code used as a reference.")

Initargs

:code

Slot: description ¶

A short description of the hint.

Initform

(error "a hint must have a hint description.")

Initargs

:description

Slot: explanation ¶

A longer explanation describing the hint.

Initargs

:explanation

Class: license ¶

This class presents the various characteristics of a software license.

Package

org.melusina.atelier.

Source

license.lisp.

Direct slots

Slot: license-name ¶

The full name of the license.

Initargs

:license-name

Slot: license-text ¶

The full text of the license.

Initargs

:license-text

Slot: license-header ¶

The header of the license.

Initargs

:license-header

Slot: license-id ¶

The ID of the license in the SPDX database.

Initargs

:license-id

Class: template ¶

This class presents the various characteristics of a template.

Package

org.melusina.atelier.

Source

template.lisp.

Direct subclasses

• composite-template.
• file-template.

Direct slots

Slot: template-name ¶

The full name of the template.

Initargs

:template-name

Slot: template-id ¶

The ID of the template.

Initargs

:template-id

Slot: template-description ¶

The long description of the template.

Initargs

:template-description

---