Common Lisp.net : Beta

Projects site

2013-04-22T13:53:00Z

It is a simple script, of course.

_DIR="$( cd "$( dirname "$0" )" && pwd )"
_projects_file=${_DIR}/../projects.org

echo "* common-lisp.net projects" > $_projects_file
echo " Common-lisp.net is the home to many projects. Here is the links to the websites that they all have locally."  >> $_projects_file
for project in `ls -d /project/*`; 
do bn=`basename $project` 
   echo '- ' "[[http://common-lisp.net/project/$bn][$bn]]" >> $_projects_file
done

The email agent for Common Lisp.net

2013-04-07T15:40:00Z

In the past (just before now) cl-net has run with exim4 and mailman, as that is what was setup previously. I do not like them either, so from this point on cl-net's email MX will be setup how I think it should be.

This will likely have some issues with the mailing lists themselves, as mailman to mlmmj is likely not as easy as I hope it is. Regardless, that is what I am doing.

Currently the setup in progress can be seen here : http://alpha.common-lisp.net/email-details.html

13:39 <user> I looked at this page, and see description of
               postgresql setup and some tables
13:39 <user> how it is going to be used?
13:39 <drewc> I have used postgresql as the database behind email
              for like 15 years at this point :)
13:40 <drewc> So, basically, here is how it works :
13:41 <drewc> There are "virtual_user"s that are associated with
              POSIX users with a UID and GID.
13:42 <drewc> Each of the "virtual_user"s also has a
              /home/<username> directory, as they usually do
13:43 <drewc> now, for a lot of things including email, the users
              are associated with a domain, in this sense,
              "email_domain"
13:43 <drewc> it has  PRIMARY KEY (domain_name, username)  , so one
              domain per user as domain_name is UNIQUE
13:45 <drewc> Then there is "email_address", which really has
              nothing to do with the other two, it is just a place
              to store email addresses.
13:46 <user> as far as I understand, (domain_name, username) may
               have several such pairs for a single user, right?
13:46 <drewc> Finally, what is probably the most important and ties
              it all together is "VIEW maildir"
13:46 <drewc> yup, exactly
13:46 <user> what I asked actually, is what service will be build
               on top of it? mailing lists? or new email accounts
13:47 <drewc> both, it is postfix and dovecot ...  :)
13:47 <drewc> so, for mailing lists, it will be
              http://mlmmj.org/ related
13:48 <drewc> I do not like / have never used mailman, and besides,
              the entire exim4/mailman setup is not something I
              liked, as a part time unix admin.

beta.common-lisp.net is up

2013-03-08T18:34:00Z

Because the server must move, well, the alpha site has been live for a while. I have finally produced a Beta Version. We did need to patch the o-blog. And because it is somewhat odd, or i do not know how to do it, we needed this.

Now, we took out the Alpha category, but left the Beta in. This is a Beta after all. And moreso, This will now be a blog about the development of the common-lisp.net related things as well.

So, Alpha is likely not predicable, can change, etc. Beta, on the other hand, is supposed to be reliable, predicable, and very close to Gamma (the live version), save for the Beta blog.

Hopefully it all works out. Regardless, comments left here are a good way to contact me if needed.

o-blog patch for How to use tags

2013-03-08T18:34:00Z

So, I wanted the tag to have dots (.) in it, but it seems the org mode tags do not support it.

O-blog has How to use tags, and says:

Special characters used in tags:

At sign (@) is converted to a dash (-). Underscore (_) is converted to a blank ( ).

… and it seems that those are the only non letters/numbers available. However, in experimenting, it seems that the pound sign (#) can be used, so we simply have to add the transformation for that.

(defun ob-parse-entry()
  "Parse blog entry from current position"
  (when (search-forward-regexp org-complex-heading-regexp
                               (point-at-eol)
                               t)
    (let* ((title (match-string-no-properties 4))
           ;; tags is a list of `ob:tags'
           ;; to be compliant with org tag syntax (no "-" org space)
           ;; "_" would be replaced with " " and "@" by "-"
           (tags (loop for tn in (org-get-local-tags)
                       with td
                       do (setf td
                                (replace-regexp-in-string
                                 "_" " "
                                 (replace-regexp-in-string 
                                  "@" "-" 
                                  (replace-regexp-in-string 
                                   "#" "." tn))))
                       and collect (make-ob:tags
                                    :name td
                                    :safe (ob:sanitize-string td))))

           ;; Timestamp is taken from either the CLOSED property or the
           ;; current timestamp.
           (timestamp (apply 'encode-time
                             (org-parse-time-string
                              (or (org-entry-get (point) "CLOSED")
                      (time-stamp-string "%:y-%02m-%02d %02H:%02M:%02S %u")))))
           ;; Some other time variables
           (year (string-to-number (format-time-string "%Y" timestamp)))
           (month (string-to-number (format-time-string "%m" timestamp)))
           (day (string-to-number (format-time-string "%d" timestamp)))

           (category (or (org-entry-get (point) "category")
                         (car (last (org-get-outline-path)))
                         (org-entry-get (point) "ARCHIVE_OLPATH")
                         (ob:blog-default-category BLOG)))
           (category-safe (ob:sanitize-string category))
           (page (org-entry-get (point) "PAGE"))

           (filename (or (org-entry-get (point) "CUSTOM_ID")
                         (ob:sanitize-string title)))
           (filepath (funcall (ob:blog-posts-filepath BLOG) category-safe year month))
           (htmlfile (funcall (ob:blog-posts-htmlfile BLOG) filepath day filename)))

      (when page
        (setq htmlfile page
              filename (file-name-sans-extension (file-name-nondirectory htmlfile))
              filepath (file-name-directory htmlfile)))

      (let ((content (ob-get-entry-text)))
        (make-ob:post :title title
                      :tags tags
                      :timestamp timestamp
                      :year year
                      :month month
                      :day day
                      :filename filename
                      :filepath filepath
                      :path-to-root (file-relative-name "." filepath)
                      :htmlfile htmlfile
                      :template (or (org-entry-get (point) "TEMPLATE")
                                    (if page "blog_static.html" "blog_post.html"))
                      :content content
                      :content-html (ob-export-string-to-html content)
                      :category (make-ob:category
                                 :name category
                                 :safe category-safe)
                      :sitemap (or (org-entry-get (point) "SITEMAP"))
                      )))))

The Server must move

2013-03-05T22:03:00Z

The company which hosts the dedicated server on which common-lisp.net is run is not offering such a service anymore, and the server itself is old and out of date. Because of this, we must migrate a lot to a new service.

This machine, http://alpha.common-lisp.net/, is running on the new server, so it is simply moving things over. Still, there is a lot, so if you can help, please leave a comment below or email me.

There is also the matter of the future itself, what we offer and what we can do to help the lisp community. I was planning on having a bit more thought on this matter before asking others, but since this has come up, I figure that now is a good time to ask for input as well.

If you happen to be able to Donate some time, skills or funds, it would really help move things along. If you happen to IRC, #common-lisp.net on freenode is the place. Otherwise, comments and email will be read and dealt with promptly.

Migration Finished

2011-06-05T21:50:00Z

Migration has come to a close. Nearly all services are up and running again, with the exception of Arch and ArchZoom, for which support has been dropped. Here's a list of other changes:

WebSVN repository browsing has been replaced: Subversion repository browsing is now handled by ViewVC.
The mailing list web interface is now hosted on lists.common-lisp.net
Subversion anonymous checkout is now also supported over HTTP through http://svn.common-lisp.net/<project>
Trac has been upgraded to 0.11.7
The standard Subversion post-commit hook integrates with Trac tickets, if a project also has Trac set up. To learn more about this integration, read the within-script documentation from the Trac repository

A new server move

2011-04-02T21:47:00Z

We're moving common-lisp.net to a new server. In the process, all services will be completely reconfigured from scratch, with each service moving to its own subdomain. This work is likely to cause service interruptions over the coming weeks. If you want to offer a helping hand, please join clo-devel at common-lisp.net, where the process is being discussed and coordinated.

Darcs Web

2008-06-08T21:45:00Z

I've updated the scripts that generate the DarcsWeb repository listing. If something seems awry, please send me an e-mail.

New Admins Found!

2008-01-08T21:40:00Z

Drew Crampsie and Gary King, both members of the Tech Co-op, have volunteered to take care of the duties required to administer cl.net. We would both like to extend a hearty thanks to Erik Enge for all the hard work over the years.

New Administrator wanted

2007-09-10T21:38:00Z

Due to commitments at work I'm unable to provide adequate support to common-lisp.net. The result of which is that there are several outstanding project applications (sorry guys, hope to get to them this week) and other misc tasks. I'm looking for someone to take over the day-to-day administration of common-lisp.net - I'll be happy to keep paying for the site and manage the donations (though equally happy to give that up as well). Email admin (at) common-lisp.net if you are interested. The chores involves mostly a couple of shell scripts that take care of adding users and projects.