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

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

atelier.

Source

lint.lisp.

Special Variable: *parameter-bindings* ¶

An aliast providing text replacement for various parameters.

Package

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

atelier.

Source

lint.lisp.

---

6.1.3 Ordinary functions

Function: find-template (designator) ¶

Find template by DESIGNATOR in *TEMPLATE-REPOSITORY*.

Package

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

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

atelier.

Source

lint.lisp.

Function: initialize () ¶

Package

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

atelier.

Source

lint.lisp.

Function: lint-file (pathname inspectors) ¶

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

Package

atelier.

Source

lint.lisp.

Function: list-inspectors () ¶

List INSPECTORS.

Package

atelier.

Source

lint.lisp.

Function: list-licenses () ¶

Returns a list containing the designators of known licenses.

Package

atelier.

Source

license.lisp.

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

List the parameters consumed by TEMPLATE-DESIGNATOR.

Package

atelier.

Source

template.lisp.

Function: list-templates () ¶

Returns a list containing the designators of known templates.

Package

atelier.

Source

template.lisp.

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

Create a new file NAME with SUMMARY.

Package

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

atelier.

Source

template.lisp.

Function: parameter-keyword (parameter-name) ¶

The keyword associated with PARAMETER-NAME.

Package

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

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

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

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

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

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

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

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

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

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

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

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

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

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

atelier.

Source

template.lisp.

Special Variable: *hint-code* ¶

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

Package

atelier.

Source

lint.lisp.

Special Variable: *hint-line* ¶

The number of the line being hinted at.

Package

atelier.

Source

lint.lisp.

Special Variable: *hint-pathname* ¶

The relative pathname of the file being linted.

Package

atelier.

Source

lint.lisp.

Special Variable: *hint-srcdir* ¶

The source directory for the project being linted.

Package

atelier.

Source

lint.lisp.

Special Variable: *inspector-table* ¶

The table of inspector corresponding to their codes.

Package

atelier.

Source

lint.lisp.

Special Variable: *license-repository* ¶

A hash-table with all licenses.

Package

atelier.

Source

license.lisp.

Special Variable: *license-repository-pathname* ¶

The pathname to our license repository.

Package

atelier.

Source

license.lisp.

Special Variable: *linter* ¶

The current linter used.

Package

atelier.

Source

lint.lisp.

Special Variable: *linter-table* ¶

The table of linters corresponding to their file types.

Package

atelier.

Source

lint.lisp.

Special Variable: *parameter-block* ¶

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

Package

atelier.

Source

parameter.lisp.

Special Variable: *parameter-placeholder-regex* ¶

The regular expression matching parameter placeholders.

Package

atelier.

Source

parameter.lisp.

Special Variable: *resourcedir* ¶

The pathname to the directory holding program resources.

Package

atelier.

Source

configuration.lisp.

Special Variable: *template-repository* ¶

A hash-table with all templates.

Package

atelier.

Source

template.lisp.

Special Variable: *template-repository-pathname* ¶

The pathname to our template repository.

Package

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

atelier.

Source

utilities.lisp.

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

Signal an anomaly with the given parameters.

Package

atelier.

Source

lint.lisp.

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

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

Package

atelier.

Source

lint.lisp.

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

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

Package

atelier.

Source

lint.lisp.

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

Package

atelier.

Source

lint.lisp.

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

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

Package

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

atelier.

Source

utilities.lisp.

Function: comment-prefix-regex (linter) ¶

Package

atelier.

Source

lint.lisp.

Function: count-string-words (string) ¶

Count the number of words in STRING.

Package

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

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

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

atelier.

Source

utilities.lisp.

Function: find-inspector (inspector-designator) ¶

Find the inspector designated by INSPECTOR-DESIGNATOR.

Package

atelier.

Source

lint.lisp.

Function: find-license (designator) ¶

Find license by DESIGNATOR in *LICENSE-REPOSITORY*.

Package

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

atelier.

Source

lint.lisp.

Function: first-line (string) ¶

The first line of STRING.

Package

atelier.

Source

utilities.lisp.

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

Set the first line of STRING to NEW-VALUE.

Package

atelier.

Source

utilities.lisp.

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

Package

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

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

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

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

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

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

atelier.

Source

codestyle-0006.lisp.

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

Package

atelier.

Source

utilities.lisp.

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

Package

atelier.

Source

utilities.lisp.

Function: last-line (string) ¶

The last line of STRING.

Package

atelier.

Source

utilities.lisp.

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

Set the last line of STRING to NEW-VALUE.

Package

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

atelier.

Source

utilities.lisp.

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

List licenses held in LICENSE-REPOSITORY-PATHNAME.

Package

atelier.

Source

license.lisp.

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

Load all licenses on LICENSE-REPOSITORY-PATHNAME.

Package

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

atelier.

Source

license.lisp.

Function: lint-contents (contents inspectors) ¶

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

Package

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

atelier.

Source

lint.lisp.

Function: linter-for-file (pathname) ¶

Find a linter to apply for PATHNAME.

Package

atelier.

Source

lint.lisp.

Function: linter-match (linter pathname) ¶

Predicate recognising if a LINTER applies to PATHNAME.

Package

atelier.

Source

lint.lisp.

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

The list of parameter names occuring in TEMPLATE-TEXT.

Package

atelier.

Source

parameter.lisp.

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

Make a file template.

Package

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

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

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

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

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

atelier.

Source

parameter.lisp.

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

Substitute parameters from TEMPLATE-TEXT according to BINDINGS.

Package

atelier.

Source

parameter.lisp.

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

Package

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

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

atelier.

Source

parameter.lisp.

Function: string-lines (string) ¶

Prepare the list of lines in STRING.

Package

atelier.

Source

utilities.lisp.

Function: string-list-p (object) ¶

Predicate recognising lists of strings.

Package

atelier.

Source

utilities.lisp.

Function: string-match (pattern text) ¶

Predicate recognising TEXT matching a globbing PATTERN.

Package

atelier.

Source

utilities.lisp.

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

Predicate recognising TEXT starting with PATTERN.

Package

atelier.

Source

utilities.lisp.

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

The end position of a possible shebang line in STRING.

Package

atelier.

Source

codestyle-0003.lisp.

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

Predicate recognising TEXT ending with PATTERN.

Package

atelier.

Source

utilities.lisp.

Function: string-words (string) ¶

Prepare the list of words in STRING.

Package

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

atelier.

Source

template.lisp.

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

Package

atelier.

Source

template.lisp.

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

List templates held in TEMPLATE-REPOSITORY-PATHNAME.

Package

atelier.

Source

template.lisp.

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

Load all templates on TEMPLATE-REPOSITORY-PATHNAME.

Package

atelier.

Source

template.lisp.

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

Load the file template from DEFINITION-PATHNAME.

Package

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

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

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

atelier.

Source

lint.lisp.

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

List parameters used by TEMPLATE.

Package

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

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

atelier.

Source

lint.lisp.

Direct superclasses

condition.

Direct slots

Slot: code ¶

The code code of an anomaly.

Initform

(quote 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

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

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

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

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

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

---