tkych / cl-seek-project

Search for CL projects in Quicklisp, Cliki, GitHub-Repos, BitBucket-Repos [This project is obsoleted by Quicksearch].

Last modified : 2013-06-13 20:30 tkych

Version: 0.1.15 (final), this project is obsoleted by Quicksearch.

CL-SEEK-PROJECT : in Quicklisp, Cliki, GitHub, BitBucket

Introduction

CL-SEEK-PROJECT is a search-engine-interface for Common Lisp. The function SEEK searchs for cl project in Quicklisp, Cliki, Github-Repos, BitBucket-Repos, then outputs search-results in REPL.

Depends-on

• anaphora
• iterate
• cl-ppcre
• drakma
• flexi-streams
• html-entities

Installation

Auto

Quickloadable, just type (ql:quickload :cl-seek-project) in CL-REPL.

Manual (Latest version)

1. SHELL$ git clone https://github.com/tkych/cl-seek-project.git
2. CL-REPL> (push #p"/path-to/cl-seek-project/" asdf:*central-registry*)
3. CL-REPL> (ql:quickload :cl-seek-project)

Examples

CL-REPL> (use-package :seek-project)  ;Exported symbols are 'seek' and '*max-num-description-columns*'.
=> T

CL-REPL> (seek 'Supercalifragilisticexpialidocious)

SEARCH RESULT: "supercalifragilisticexpialidocious"
=> NIL

CL-REPL> (seek "graphviz")

SEARCH-RESULT: "graphviz"

 SEARCH-SPACE: Quicklisp
  com.informatimago.common-lisp.graphviz

 SEARCH-SPACE: Cliki
  cl-graphviz
  cl-dot
  clod
  graph-utils
  Grapher-Server
  s-dot

 SEARCH-SPACE: GitHub-Repos
  cl-graphviz
  cl-dot
  donuts
  protocl
  motion-grammar-kit
  sn-explorer
  compass
  graph-utils
  wo-git-gui
                             ;There is no repo in BitBukect for search-word "graphviz".
                             ; So BitBucket result is not displayed.
=> T

CL-REPL> (seek "graphviz" :description? t :cliki? nil)

SEARCH-RESULT: "graphviz"

 SEARCH-SPACE: Quicklisp
  com.informatimago.common-lisp.graphviz

 SEARCH-SPACE: GitHub-Repos
  cl-graphviz
      Adaptaion of an outdated cl-graphviz by Attila Lendvai to the modern
      version of libgvc.so.6.
  cl-dot
      Common Lisp package for generating GraphViz (dot) files
  donuts
      Graph Drawing DSL (or Graphviz Interface) for Common Lisp.
  protocl
      Native Common Lisp compiler infrastructure for Google's protocol buffers
  motion-grammar-kit
      Formal Language Tools for Robots
  sn-explorer
      A simple web crawler for social networks
  compass
      Recursive, k-width tree clusterer based on the Cardinal Directions
  graph-utils
      graph analysis tools
  wo-git-gui
      WebGUI for git commit graphs, will mainly focus on trying to reduce the
      commit graph into manageable overviews

=> T

CL-REPL> (setf *max-num-description-columns* 60) ;default is 80

=> 60

CL-REPL> (seek "graphviz" :url? t :description? t :cliki? nil :quicklisp? nil)

SEARCH-RESULT: "graphviz"

 SEARCH-SPACE: GitHub-Repos
  cl-graphviz
      https://github.com/necto/cl-graphviz
      Adaptaion of an outdated cl-graphviz by Attila Lendvai
      to the modern version of libgvc.so.6.
  cl-dot
      https://github.com/michaelw/cl-dot
      Common Lisp package for generating GraphViz (dot)
      files
  donuts
      https://github.com/tkych/donuts
      Graph Drawing DSL (or Graphviz Interface) for Common
      Lisp.
  protocl
      https://github.com/scymtym/protocl
      Native Common Lisp compiler infrastructure for
      Google's protocol buffers
  motion-grammar-kit
      https://github.com/golems/motion-grammar-kit
      Formal Language Tools for Robots
  sn-explorer
      https://github.com/GChristensen/sn-explorer
      A simple web crawler for social networks
  compass
      https://github.com/abutcher/compass
      Recursive, k-width tree clusterer based on the
      Cardinal Directions
  graph-utils
      https://github.com/kraison/graph-utils
      graph analysis tools
  wo-git-gui
      https://github.com/woudshoo/wo-git-gui
      WebGUI for git commit graphs, will mainly focus on
      trying to reduce the commit graph into manageable
      overviews

=> T

Referece Manual

[Function] SEEK search-word &key web? description? url? cliki? github? quicklisp? bitbucket?

Search for cl project with search-word in Quicklisp, Cliki, GitHub-Repos, BitBucket-Repos. search-word must be string or symbol (symbol will be coerced to downcase-string). If web? is NIL, it does not search Cliki, GitHub-Repos and BitBucket-Repos. If quicklisp? is NIL, it does not search Quicklisp (also cliki?, github?, bitbucket?). At least one search-space must be specified. If description? is T, it displays project's description (except for Quicklisp-search). If url? is T, it displays project's url (except for Quicklisp-search).

• Space in search-word: If search-word contains #\space, Quicklisp-search is OR-search, whereas Cliki,GitHub,BitBucket-search is AND-search. e.g. (seek "foo bar"): Quicklisp-search - "foo" OR "bar", Cliki,GitHub,BitBucket-search - "foo" AND "bar".

• Max number of search result: Quicklisp - unlimited, GitHub - 50, Cliki - 50, BitBucket - 50.

[Special Variable] *MAX-NUM-DESCRIPTION-COLUMNS*

If the length of description-string is bigger then *max-num-description-columns*, then description-string is formated for easy to see. Default value is 80.

TODO

• Add: limit?, *max-num-web-search-results*
• Add: search-space (google-code, etc.)
• Asynchronize: http-request

Author, License, Copyright

• Takaya Ochiai <#.(reverse "[e-mail]")>

• MIT License

• Copyright (C) 2013 Takaya Ochiai