Skip to content

storax/graph.el

Folders and files

NameName
Last commit message
Last commit date

Latest commit

 

History

12 Commits
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Repository files navigation

graph.el

https://travis-ci.org/storax/graph.el.svg?branch=master https://coveralls.io/repos/github/storax/graph.el/badge.svg?branch=master

A graph layout library for Emacs Lisp.

This is in early alpha so far!

The algorithm is a port from vijual, a Clojure library by Conrad Barski, who deserves most of the credit.

Features

  • [X] Customizable text rendering
  • [ ] Image rendering
  • [X] Trees
  • [ ] Undirected graphs
  • [ ] Directed graphs
  • [X] Binary trees

Examples

Drawing trees

You can render trees as text with graph-draw-tree:

(graph-draw-tree '((north-america (usa
                                    (miami)
                                    (seattle)
                                    (idaho (boise))))
                   (europe (germany)
                            (france (paris)
                                     (lyon)
                                     (cannes)))))
        +------------+        +--------+
        |   north    |        | europe |
        |  america   |        +----+---+
        +------+-----+             |
               |         +---------+---------+
               +         |                   |
               |    +----+----+          +---+----+
            +--+--+ | germany |          | france |
            | usa | +---------+          +---+----+
            +--+--+                          |
               |                    +--------+---------+
    +----------+----------+         |        |         |
    |          |          |     +---+---+ +--+---+ +---+----+
+---+---+ +----+----+ +---+---+ | paris | | lyon | | cannes |
| miami | | seattle | | idaho | +-------+ +------+ +--------+
+-------+ +---------+ +---+---+
                          |
                          +
                          |
                      +---+---+
                      | boise |
                      +-------+

(graph-draw-tree '(("Eubacteria" ("Aquificae") ("Nitrospira") ("Proteobacteria") ("Chlamydiae") ("Actinobacteria")) ("Eukaryotes" ("Archaeplastida" ("Green Plants" ("Prasinophytes") ("Chlorophyceae") ("Trebouxiophyceae") ("Ulvophyceae") ("Streptohyta" ("Zygnematales") ("Charales") ("Embryophytes (land plants)"))) ("Rhodophyta") ("Glaucophytes")) ("Unikots" ("Opisthokonts" ("Animals" ("Bilateria" ("Ecdysozoa" ("Nematoda") ("Arthropoda")) ("Lophotrochozoa") ("Deuterostoma" ("Echinodermata") ("Hemichordata") ("Chordata" ("Urochordata") ("Cephalochordata") ("Yonnanozoon") ("Craniata")))) ("Cnidaria") ("Porifera")) ("Choanoflagellates") ("Filasterea") ("Ichthyosporea") ("Fungi") ("Nucleariidae"))) ("Chromalveolates" ("Rhizaria" ("Cercozoa") ("Foraminifera") ("Radiolaria")) ("Alveolates") ("Stramenopiles") ("Hacrobia")) ("Excavates" ("Malawimonads") ("Discicristates" ("Euglenozoa") ("Heterolobosea")) ("Fornicata")))))
                             +------------+                                                                                              +------------+
                             | Eubacteria |                                                                                              | Eukaryotes |
                             +-----+------+                                                                                              +-----+------+
                                   |                                                                                                           |
      +-------------+--------------+--------------+--------------+              +---------------------------------+----------------------------+-------------+-------------------------------------------------+
      |             |              |              |              |              |                                 |                                          |                                                 |
+-----+-----+ +-----+------+ +-----+------+ +-----+------+ +-----+------+ +-----+------+                     +----+----+                              +------+-----+                                     +-----+-----+
| Aquificae | | Nitrospira | | Proteobact | | Chlamydiae | | Actinobact | | Archaeplas |                     | Unikots |                              | Chromalveo |                                     | Excavates |
+-----------+ +------------+ |    eria    | +------------+ |    eria    | |    tida    |                     +----+----+                              |   lates    |                                     +-----+-----+
                             +------------+                +------------+ +-----+------+                          |                                   +------+-----+                                           |
                                                                                |                                 +                                          |                                  +--------------+--------------+
                                    +--------------+--------------+-------------+                                 |                    +-------------+-------+------+-------------+             |              |              |
                                    |              |              |                                        +------+-----+              |             |              |             |       +-----+------+ +-----+------+ +-----+-----+
                              +-----+------+ +-----+------+ +-----+------+                                 | Opisthokon |         +----+-----+ +-----+------+ +-----+------+ +----+-----+ | Malawimona | | Discicrist | | Fornicata |
                              |   Green    | | Rhodophyta | | Glaucophyt |                                 |     ts     |         | Rhizaria | | Alveolates | | Stramenopi | | Hacrobia | |     ds     | |    ates    | +-----------+
                              |   Plants   | +------------+ |     es     |                                 +------+-----+         +----+-----+ +------------+ |    les     | +----------+ +------------+ +-----+------+
                              +-----+------+                +------------+                                        |                    |                      +------------+                                   |
                                    |                                                                             |                    |                                                                      ++-------------+
      +--------------+--------------+--------------+--------------+                                               |                    +--------------------------+-------------+--------------+              |              |
      |              |              |              |              |                                               |                                               |             |              |        +-----+------+ +-----+------+
+-----+------+ +-----+------+ +-----+------+ +-----+------+ +-----+------+      +------------+--------------+-----+--------+------------+-----------+        +----+-----+ +-----+------+ +-----+------+ | Euglenozoa | | Heterolobo |
| Prasinophy | | Chlorophyc | | Trebouxiop | | Ulvophycea | | Streptohyt |      |            |              |              |            |           |        | Cercozoa | | Foraminife | | Radiolaria | +------------+ |    sea     |
|    tes     | |    eae     | |   hyceae   | |     e      | |     a      | +----+----+ +-----+------+ +-----+------+ +-----+------+ +---+---+ +-----+------+ +----------+ |     ra     | +------------+                +------------+
+------------+ +------------+ +------------+ +------------+ +-----+------+ | Animals | | Choanoflag | | Filasterea | | Ichthyospo | | Fungi | | Nucleariid |              +------------+
                                                                  |        +----+----+ |  ellates   | +------------+ |    rea     | +-------+ |     ae     |
                                                                  |             |      +------------+                +------------+           +------------+
                                                                  |             |
                                                                  |             +--------------+------------+------------+
                                                                  |                            |            |            |
                                                    +-------------+-------------+        +-----+-----+ +----+-----+ +----+-----+
                                                    |             |             |        | Bilateria | | Cnidaria | | Porifera |
                                              +-----+------+ +----+-----+ +-----+------+ +-----+-----+ +----------+ +----------+
                                              | Zygnematal | | Charales | | Embryophyt |       |
                                              |     es     | +----------+ |  es (land  |       |
                                              +------------+              |  plants)   |       |
                                                                          +------------+       |
                                                                                               |
                                                                                +--------------+--------------+
                                                                                |              |              |
                                                                          +-----+-----+ +------+-----+ +------+-----+
                                                                          | Ecdysozoa | | Lophotroch | | Deuterosto |
                                                                          +-----+-----+ |    ozoa    | |     ma     |
                                                                                |       +------------+ +------+-----+
                                                                         +------+------+                      |
                                                                         |             |              +-------+------+-------------+
                                                                   +-----+----+ +------+-----+        |              |             |
                                                                   | Nematoda | | Arthropoda | +------+-----+ +------+-----+ +-----+----+
                                                                   +----------+ +------------+ | Echinoderm | | Hemichorda | | Chordata |
                                                                                               |    ata     | |     ta     | +-----+----+
                                                                                               +------------+ +------------+       |
                                                                                                                                   |
                                                                                                            +----------------------+--------------+-------------+
                                                                                                            |                      |              |             |
                                                                                                      +-----+------+        +------+-----+ +------+-----+ +-----+----+
                                                                                                      | Urochordat |        | Cephalocho | | Yonnanozoo | | Craniata |
                                                                                                      |     a      |        |   rdata    | |     n      | +----------+
                                                                                                      +------------+        +------------+ +------------+

Drawing binary trees

You can render binary trees as text with graph-draw-binary-tree:

(graph-draw-binary-tree '(1 (2 (3) (4)) (5)))
              +---+
              | 1 |
              +---+
             /     \      
            /       \     
       +---+         +---+
       | 2 |         | 5 |
       +---+         +---+
      /     \             
     /       \            
+---+         +---+
| 3 |         | 4 |
+---+         +---+
(graph-draw-binary-tree '(organisms (prokaryotes (e-coli)) (eukaryotes (plants (seed-plants (carrot) (oak-tree)) (ferns)) (animalia (invertebrates (sponge) (worm)) (mammals (mouse) (apes (chimpanzee) (human)))))))
                             +-----------+
                             | organisms |
                             +-----------+
                            /             \_________________________________________               
                           /                                                        \              
            +-------------+                                                          +------------+
            | prokaryotes |                                                          | eukaryotes |
            +-------------+                                                          +------------+
           /                                                                        /              \_______________________________             
          /                                                                        /                                               \            
+--------+                                                               +--------+                                                 +----------+
| e coli |                                                               | plants |                                                 | animalia |
+--------+                                                               +--------+                                                 +----------+
                                                                        /          \_                                              /            \___________            
                                                                       /             \                                            /                         \           
                                                        +-------------+               +-------+                  +---------------+                           +---------+
                                                        | seed plants |               | ferns |                  | invertebrates |                           | mammals |
                                                        +-------------+               +-------+                  +---------------+                           +---------+
                                                       /               \                                        /                 \                         /           \________________         
                                                      /                 \                                      /                   \                       /                             \        
                                            +--------+                   +----------+                +--------+                     +------+      +-------+                               +------+
                                            | carrot |                   | oak tree |                | sponge |                     | worm |      | mouse |                               | apes |
                                            +--------+                   +----------+                +--------+                     +------+      +-------+                               +------+
                                                                                                                                                                                         /        \          
                                                                                                                                                                                        /          \         
                                                                                                                                                                          +------------+            +-------+
                                                                                                                                                                          | chimpanzee |            | human |
                                                                                                                                                                          +------------+            +-------+

Custom text rendering

This is currently not available for binary trees!

All drawing operations can be customized by setting the respective drawing function variable. You can associate arbitrary data with shapes/nodes, which will be passed to each drawing function. The default functions ignore the user data but it can be used in when customizing the drawing.

To add custom data, use a cons cell instead of a string for a node:

(graph-draw-tree '((("parent with data" . datadatadata) ("plain child")
                                                        (("child With data" . somedata)))))

The parent node and the second child have some data associated with them. This data will get passed to all of the drawing functions. By customizing these functions, you can draw colored trees/shapes.

You can also layout a tree once, and just re-render the shapes. The data is available under the :data slot:

(let* ((shapes (graph-tree-to-shapes '((("node with data" . somedata)))))
       (data (graph-shape-data (car shapes))))
  (setf (graph-shape-data (car shapes) 'newdata))
  (graph-draw-shapes shapes))

In line 1, we layout a tree and convert it into shapes. The user-data can be accessed via graph-shape-data (see line 2). You can also modify the data as shown in line 3 and finally re-render the shapes with graph-draw-shapes.

Below is a list of all drawing functions that can be customized:

graph-draw-customize-fn

This is a wrapper around all drawing functions. You can conviniently change customize all drawing globally by setting this function. The function will be called with the drawn text plus optional user-data that was associated with the shape.

(let ((graph-draw-custom-fn (lambda (drawn data) (propertize drawn 'font-lock-face `(:foreground ,data)))))
  (graph-draw-tree '((("rednode" . "red") (("bluenode". "blue"))))))

graph-draw-arrow-fn

This function is called with a direction and the user-data and should return a string of length 1. The direction can be 'up, 'down, 'left, 'right or an arbitrary direction.

graph-draw-cap-fn

This function is called with a direction and the user-data and should return a string of length 1. The direction can be 'up, 'down, 'left, or ='right.

graph-draw-other-type-edge-fn

This function is called with a type and the user-data and should return a string of length 1. It’s used to draw the corners of boxes for example.

graph-draw-border-mid-fn

This function is called with a width and the user-data and should return a string of length of the given width. It draws the border of a box or shape between the corners.

graph-draw-shape-side-border-fn

This function is called with the user-data and should return a string of length 1. It is used to draw the side border of a box.

graph-draw-shape-space

This function is called with a width and the user-data and should return a string of length of the given width. It’s used to draw the empty space of a shape.

graph-draw-text-fn

This function is called with some text to render and the user-data.

Customization variables

There are a couple of variables to customize the layout.

  • graph-ascii-wrap-threshold: text is wrapped after the number of characters specified.
  • graph-node-padding: horizontal padding between nodes
  • graph-row-padding: vertical padding between rows
  • graph-line-wid: Line width
  • graph-line-padding: Space between lines

About

Graph Layout Library For Emacs Lisp

Resources

License

Stars

Watchers

Forks

Releases

No releases published

Packages

No packages published

Languages