├── .roswell-use ├── .roswell-install-list ├── .roswell-load-system-list ├── Procfile ├── cl-beers.gif ├── templates ├── _search-results.html ├── _more-beer.html ├── _beer-list.html ├── index.html ├── glossary.html ├── show.html ├── layouts │ └── default.html └── beer-svg.html ├── README.md ├── LICENSE └── app.lisp /.roswell-use: -------------------------------------------------------------------------------- 1 | sbcl-bin -------------------------------------------------------------------------------- /.roswell-install-list: -------------------------------------------------------------------------------- 1 | clack -------------------------------------------------------------------------------- /.roswell-load-system-list: -------------------------------------------------------------------------------- 1 | clack -------------------------------------------------------------------------------- /Procfile: -------------------------------------------------------------------------------- 1 | web: clackup --port $PORT --address 0.0.0.0 app.lisp -------------------------------------------------------------------------------- /cl-beers.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rajasegar/cl-beers/HEAD/cl-beers.gif -------------------------------------------------------------------------------- /templates/_search-results.html: -------------------------------------------------------------------------------- 1 | {% for beer in beers %} 2 |

3 | {% endfor %} 4 | -------------------------------------------------------------------------------- /templates/_more-beer.html: -------------------------------------------------------------------------------- 1 | {% include "_beer-list.html" %} 2 |

3 | 4 |

5 | -------------------------------------------------------------------------------- /templates/_beer-list.html: -------------------------------------------------------------------------------- 1 | {% for beer in beers %} 2 |

3 |

4 |

5 |

6 |

7 |

8 | 9 |

10 |

11 | Crack open 12 |

13 |

14 |

15 | {% endfor %} 16 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # cl-beers 2 | 3 | A small demo app made in Common Lisp to get a list of Beers and their details like 4 | food pairings from [Punk API](https://punkapi.com) which is based on [BrewDog](https://brewdog.com)'s DIY Dog API. 5 | 6 | ![cl-beers.gif](cl-beers.gif) 7 | 8 | ## Usage 9 | 10 | You need [roswell](https://github.com/snmsts/roswell) to install [clack](https://github.com/fukamachi/clack) 11 | ``` 12 | ros install clack 13 | ``` 14 | 15 | And then using clackup 16 | 17 | ``` 18 | clackup app.lisp 19 | ``` 20 | 21 | Go to `http://localhost:5000` in your browser to see the app in action. 22 | 23 | ## Install 24 | ``` 25 | git clone https://github.com/rajasegar/cl-beers 26 | cd cl-beers 27 | clackup app.lisp 28 | ``` 29 | -------------------------------------------------------------------------------- /templates/index.html: -------------------------------------------------------------------------------- 1 | {% extends "layouts/default.html" %} 2 | {% block content %} 3 |

4 | {% include "beer-svg.html" %} 5 |

Brew your Beers!

6 |

7 |

A small demo app made in Common Lisp to get a list of Beers and their details like food pairings from Punk API which is based on BrewDog's DIY Dog API.

8 |

9 |

10 |

11 | {% include "_beer-list.html" %} 12 |

Glossary

4 |

6 |
ABV
7 |
8 | ABV, or alcohol by volume, is the standard measurement, used worldwide, to assess the strength of a particular beer. The ABV scale is simple in the fact that the higher the ABV, the more alcohol that beer contains. Lighter beers range from 4-4.5% ABV, with percentages getting higher with heavier styles of beer. 9 |
10 |
12 |
IBU
13 |
14 | IBU, or international bittering unit, is a less discernable abbreviation that is as, if not more, important when it comes to selecting the type of beer that is right for you. The IBU scale measures the bitterness levels in beer (based on the amount of hops added) and helps beer drinkers determine which styles of brews are ideal for their taste buds. This scale can be tricky, however, because higher IBU levels do not always equate to bitterer flavor. 15 |
16 |

18 |

References:

19 |

20 |

ABV and IBU explained

22 | {% endblock %} 23 | -------------------------------------------------------------------------------- /templates/show.html: -------------------------------------------------------------------------------- 1 | {% extends "layouts/default.html" %} 2 | {% block content %} 3 |

4 |

5 |

6 |

7 |

8 |

9 |

10 |

11 |

ABV: {{beer.abv}}

12 |

IBU: {{beer.ibu}}

13 |

PH: {{beer.ph}}

14 |

Volume: {{beer.volume.value}} {{beer.volume.unit}}

15 |

16 |

Ingredients:

17 |

18 |

Malt:

19 |

{{ing.name}} : {{ing.amount.value}} {{ing.amount.unit}}

24 |

Hops:

25 |

{{ing.name}} : {{ing.amount.value}} {{ing.amount.unit}}

30 |

Yeast: {{beer.ingredients.yeast}}

31 |

32 |

33 |

Food pairing:

34 |

{{food}}

39 |

Brewers tips: {{beer.brewers--tips}}

40 |

41 |

42 | {% endblock %} 43 | -------------------------------------------------------------------------------- /app.lisp: -------------------------------------------------------------------------------- 1 | (ql:quickload '(:ningle :djula :dexador :cl-json)) 2 | (djula:add-template-directory #P"templates/") 3 | (defparameter *template-registry* (make-hash-table :test 'equal)) 4 | 5 | ;; render template - copied & modified from caveman 6 | (defun render (template-path &optional data) 7 | (let ((template (gethash template-path *template-registry*))) 8 | (unless template 9 | (setf template (djula:compile-template* (princ-to-string template-path))) 10 | (setf (gethash template-path *template-registry*) template)) 11 | (apply #'djula:render-template* template nil data))) 12 | 13 | (defvar *app* (make-instance 'ningle:app)) 14 | 15 | (djula:def-filter :truncate-desc (val) 16 | (if (> (length val) 100) 17 | (concatenate 'string (subseq val 0 97) "...") 18 | val)) 19 | 20 | (defun increment-page (page) 21 | (1+ (parse-integer page))) 22 | 23 | ;; GET / 24 | (setf (ningle:route *app* "/") 25 | #'(lambda (params) 26 | (let ((beers (cl-json:decode-json-from-string (dex:get "https://api.punkapi.com/v2/beers?per_page=24")))) 27 | (render #P"index.html" (list :beers beers))))) 28 | 29 | ;; GET /more 30 | (setf (ningle:route *app* "/more") 31 | #'(lambda (params) 32 | (let* ((page (cdr (assoc "page" params :test #'string=))) 33 | (beers (cl-json:decode-json-from-string (dex:get (concatenate 'string "https://api.punkapi.com/v2/beers?per_page=24&page=" page))))) 34 | (render #P"_more-beer.html" (list :beers beers :page (increment-page page)))))) 35 | 36 | ;; GET /beer/:id 37 | (setf (ningle:route *app* "/beer/:id") 38 | #'(lambda (params) 39 | (let ((beer (cl-json:decode-json-from-string (dex:get (concatenate 'string "https://api.punkapi.com/v2/beers/" (cdr (assoc :id params))))))) 40 | (render #P"show.html" (list :beer (car beer)))))) 41 | 42 | ;; GET /random 43 | (setf (ningle:route *app* "/random") 44 | #'(lambda (params) 45 | (let ((beer (cl-json:decode-json-from-string (dex:get "https://api.punkapi.com/v2/beers/random" )))) 46 | (render #P"show.html" (list :beer (car beer)))))) 47 | 48 | ;; GET /glossary 49 | (setf (ningle:route *app* "/glossary") 50 | (render #P"glossary.html")) 51 | 52 | ;; POST /search 53 | (setf (ningle:route *app* "/search" :method :POST) 54 | #'(lambda (params) 55 | (let* ((query (cdr (assoc "query" params :test #'string=))) 56 | (beers (cl-json:decode-json-from-string (dex:get (concatenate 'string "https://api.punkapi.com/v2/beers?beer_name=" query))))) 57 | (render #P"_search-results.html" (list :beers beers))))) 58 | 59 | *app* 60 | -------------------------------------------------------------------------------- /templates/layouts/default.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | cl-beers 6 | 7 | 8 | 9 | 18 | 19 | 51 |

52 | {% block content %} 53 | {% endblock %} 54 |

55 | 60 | 61 | 62 | 63 | 64 | 65 | -------------------------------------------------------------------------------- /templates/beer-svg.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 71 | --------------------------------------------------------------------------------

{{beer.name}}

{{beer.tagline}}

Brew your Beers!

Glossary

ABV

IBU

References:

{{beer.name}}