From bc616f663276804989aaf57ba1e37c730c8f5a48 2014-08-24 15:07:20
From: Sergey Pashinin <sergey@pashinin.com>
Date: 2014-08-24 15:07:20
Subject: [PATCH] removed comments

---

diff --git a/src/workgroups2.el b/src/workgroups2.el
index 19d34bed4455585f93a2f2c41782a1a706298d8c..da3a69b50a700d9ec7a42cc6a96cc572df41e7c4 100644
--- a/src/workgroups2.el
+++ b/src/workgroups2.el
@@ -666,7 +666,6 @@ features but is fucking unstable, so disabled by default"
     (:cmd (format "%s: " symbol))
     (:msg (format "%s" (wg-toggle symbol)))))
 
-
 (defun wg-add-face (facekey string)
   "Return a copy of STRING fontified according to FACEKEY.
 FACEKEY must be a key in `wg-face-abbrevs'."
@@ -698,7 +697,6 @@ Anything else is formatted with %s to produce a string."
               ((stringp spec) spec)
               (t `(format "%s" ,spec))))))
 
-
 (defmacro wg-with-gensyms (syms &rest body)
   "Bind all symbols in SYMS to `gensym's, and eval BODY."
   (declare (indent 1))
@@ -720,20 +718,12 @@ Iterative to prevent stack overflow."
       (setq list (nthcdr step list)))
     (nreverse acc)))
 
-
-
-;;; bindings
-
 (defmacro wg-when-boundp (symbols &rest body)
   "When all SYMBOLS are bound, `eval' BODY."
   (declare (indent 1))
   `(when (and ,@(mapcar (lambda (sym) `(boundp ',sym)) symbols))
      ,@body))
 
-
-
-;;; do-style wrappers
-
 (defmacro wg-docar (spec &rest body)
   "do-style wrapper for `mapcar'.
 
@@ -757,10 +747,6 @@ Iterative to prevent stack overflow."
   (wg-dbind (elt seq &optional sep) spec
     `(mapconcat (lambda (,elt) ,@body) ,seq (or ,sep ""))))
 
-
-
-;;; anaphora
-
 (defmacro wg-asetf (&rest places-and-values)
   "Anaphoric `setf'."
   `(progn ,@(mapcar (lambda (pv) `(let ((it ,(car pv))) (setf ,@pv)))