Skip to content
Small library to make slugs, mainly for URIs, from english and beyond.
Common Lisp
Branch: master
Clone or download

Latest commit

Latest commit ffb229d May 5, 2017

Files

Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
src add belarusian Apr 29, 2017
t Gave up on clisp + ecl (for now) May 9, 2015
.gitignore Added file to gitignore Jun 17, 2015
.travis.yml Gave up on clisp + ecl (for now) May 9, 2015
README.md Update README.md Apr 27, 2017
circle.yml Remove git clone archive Jul 25, 2015
cl-slug-test.asd Change literal string to #.(string :run-test-system) Jul 24, 2015
cl-slug.asd Add *load-truename* Jul 30, 2015

README.md

cl-slug

Quicklisp Build Status Circle CI Coverage Status

Easily create slugs from any string. Supports many languages alphabets. See Supported languages to check for supported languages or to help to add one.

Inspired by Lisp Web Tales.

Usage

* (ql:quickload :cl-slug)
; => (:CL-SLUG)
* (import '(slug:slugify slug:asciify slug:CamelCaseFy))
; => T

The main function is called slugify:

* (slugify "My new cool article, for the blog (V. 2).")
; => "my-new-cool-article-for-the-blog-v-2"
* (slugify "André Miranda")
; => "andre-miranda"

slugify removes any accented character, replacing it with an unaccented equivalent, and any punctuation (a punctuation is a char that returns NIL for alphanumericp) and puts a dash (-) on it's place. You can change that by binding (of setfing) *slug-separator*:

* (let ((*slug-separator* #\_))
    (slugify "Testing the *slug-separator* var..."))
; => "testing_the_slug_separator_var"

slugify also ignores numbers:

* (slugify "one2three4five")
; => "one2three4five"

If you just want to remove accents and punctuation of a given string, use asciify:

* (asciify "Eu André!")
; => "Eu Andre!"

Or if you want a CamelCase, use CamelCaseFy:

* (CamelCaseFy "My new camel case string")
; => "MyNewCamelCaseString"

Available languages are stored in *available-languages*:

* slug:*available-languages*
((:TR . "Türkçe (Turkish)") (:SV . "Svenska (Swedish)") (:FI . "Suomi (Finnish)") 
 (:UK . "українська (Ukrainian)") (:RU . "Ру́сский (Russian)") (:RO . "Română (Romanian)")
 (:RM . "Rumàntsch (Romansh)") (:PT . "Português (Portuguese)") (:PL . "Polski (Polish)")
 (:NO . "Norsk (Norwegian)") (:LT . "Lietuvių (Lithuanian)") (:LV . "Latviešu (Latvian)")
 (:LA . "Lingua Latīna (Latin)") (:IT . "Italiano (Italian)") (:EL . "ελληνικά (Greek)")
 (:FR . "Français (French)") (:EO . "Esperanto") (:ES . "Español (Spanish)") (:EN . "English")
 (:DE . "Deutsch (German)") (:DA . "Dansk (Danish)") (:CS . "Čeština (Czech)")
 (:CURRENCY . "Currency"))

Dependencies

This library depends on CL-PPCRE. The test package uses the prove test library.

Installation

Available on Quicklisp:

(ql:quickload :cl-slug)

Supported languages

The languages that are supported right now are:

  • english
  • portuguese
  • esperanto
  • german
  • french
  • swedish
  • finnish
  • norwegian
  • danish
  • italian
  • spanish
  • romansh

Ported from Django():

  • currency
  • romanian
  • lithuanian
  • latvian
  • polish
  • czesh
  • ukranian
  • russian
  • turkish
  • greek
  • latin

At the present moment, adding new languages is a fairly manual process:

  1. Identify non-ASCII characters in a given language's alphabet
  2. Establish equivalence between the found characters and ASCII characters
  3. Write them down in the code.

All those things can actually be done for most of the dominant Western languages, but can't be applied for minor regional languages or many other non-Latin languages from the whole world, like Chinese. It's not generic and not scalable.

I couldn't think of a solution so far for this, but if you know a solution (even a partial one) I'd be glad to hear =].

Bugs

If you find any bug or inconsistency in the code, or if you find it too hard to use, please, feel free to open an issue.

Tests

This library is tested under ABCL, SBCL, CCL, CLISP and ECL Common Lisp implementations.

To run all the defined tests, use:

* (asdf:test-system :cl-slug)
; prints lots of (colorful) stuff...
; => T

Tests are ran with Travis CI and Circle CI using cl-travis, CIM, cl-coveralls and Roswell. Check it out!

Author

André Miranda.

License

LLGPL.

You can’t perform that action at this time.