Skip to content

Instantly share code, notes, and snippets.

View Ramarren's full-sized avatar

Jakub Higersberger Ramarren

View GitHub Profile
@Ramarren
Ramarren / smiles-minimal.lisp
Created January 18, 2011 12:44
Parser for small subset of SMILES (carbon rings and branches)
(eval-when (:compile-toplevel :load-toplevel :execute)
(ql:quickload :parser-combinators)
(ql:quickload :fset))
(cl:defpackage smiles-minimal (:use :cl :parser-combinators))
(in-package :smiles-minimal)
(defclass the-atom ()
((name :accessor name-of :initarg :name))
;; remove bolding from autodoc messages
;; workaround for http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=3285
(defface font-lock-type-face-no-bold
'((t :inherit font-lock-type-face :weight normal))
"Non-bolded version of font-lock-type-face"
:group 'font-lock-faces)
(defface font-lock-keyword-face-no-bold
'((t :inherit font-lock-keyword-face :weight normal))