From mboxrd@z Thu Jan 1 00:00:00 1970 From: Manoj Srivastava Subject: Re: Is there a good way to use org as blog system? Date: Wed, 30 Sep 2009 09:09:32 -0500 Message-ID: <874oqkh6cj.fsf@anzu.internal.golden-gryphon.com> References: <83eipo4wd0.fsf@ymail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Mszsd-0004kc-DQ for emacs-orgmode@gnu.org; Wed, 30 Sep 2009 10:10:07 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MszsY-0004g6-0C for emacs-orgmode@gnu.org; Wed, 30 Sep 2009 10:10:06 -0400 Received: from [199.232.76.173] (port=51588 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MszsX-0004fv-OS for emacs-orgmode@gnu.org; Wed, 30 Sep 2009 10:10:01 -0400 Received: from lo.gmane.org ([80.91.229.12]:54261) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MszsX-0000bu-2r for emacs-orgmode@gnu.org; Wed, 30 Sep 2009 10:10:01 -0400 Received: from list by lo.gmane.org with local (Exim 4.50) id 1MszsU-0004U8-5A for emacs-orgmode@gnu.org; Wed, 30 Sep 2009 16:09:58 +0200 Received: from tiamat.golden-gryphon.com ([204.117.95.118]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 30 Sep 2009 16:09:58 +0200 Received: from srivasta by tiamat.golden-gryphon.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 30 Sep 2009 16:09:58 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org On Wed, Sep 30 2009, Water Lin wrote: > I want to mantain a local static html blog system on my local > computer. I think org is good enough to organise the stuff. > > Is there any special function for me to use org as blog system? > > I need a reference to start...... With the following Ikiwiki plugin, I have been using org as my Ikiwiki input mechanism (so I write all my blog posts as org-mode files, and Ikiwiki transforms tehm into html and rss. manoj --8<---------------cut here---------------start------------->8--- #!/usr/bin/perl # File: org.pm # Time-stamp: <2009-02-06 12:10:28 srivasta> # # Copyright (C) 2008 by Manoj Srivastava # # Author: Manoj Srivastava # # Description: # This allows people to write Ikiwiki content using Emacs and org-mode # (requires Emacs 23), and uses the html export facility of org-mode to # create the output. Some bits based on otl.pm. package IkiWiki::Plugin::org; use warnings; use strict; use Carp; use IkiWiki 3.00; use File::Temp qw/ tempfile tempdir /; # ------------------------------------------------------------ sub import { hook(type => "getsetup", id => "org", call => \&getsetup); hook(type => "htmlize", id => "org", call => \&htmlize); } # sub getsetup () { return plugin => { safe => 0, rebuild => undef, advanced => 1, }, emacs_binary => { type => "string", example => "/usr/bin/emacs-snapshot", description => "location of an emacs binary with org-mode", advanced => 1, safe => 0, rebuild => undef, }, } sub htmlize (@) { my %params = @_; my $dir = File::Temp->newdir(); my $ret = open(INPUT, ">$dir/contents.org"); unless (defined $ret) { debug("failed to open $dir/contents.org: $@"); return $params{content}; } my $emacs = '/usr/bin/emacs-snapshot'; if (exists $config{emacs_binary} && -x $config{emacs_binary}) { $emacs = $config{emacs_binary}; } print INPUT $params{content}; close INPUT; $ret = open(INPUT, ">/tmp/contents.org"); print INPUT $params{content}; close INPUT; my $args = "$emacs --batch -l org " . "--eval '(setq org-export-headline-levels 3 org-export-with-toc nil org-export-author-info nil )' " . "--visit=$dir/contents.org " . '--funcall org-export-as-html-batch >/dev/null 2>&1'; if (system($args)) { debug("failed to convert $params{page}: $@"); return $params{content}; } $ret = open(OUTPUT, "$dir/contents.html"); unless (defined $ret) { debug("failed find html output for $params{page}: $@"); return $params{content}; } local $/ = undef; $ret = ; close OUTPUT; $ret=~s/(.*

){1}?//s; $ret=~s/^(.*<\/h1>){1}?//s; $ret=~s/
.*//s; $ret=~s/(<\/div>\s*$)//s; open(OUTPUT, ">/tmp/contents.html"); print OUTPUT $ret; close OUTPUT; return $ret; } # ------------------------------------------------------------ 1; # modules have to return a true value --8<---------------cut here---------------end--------------->8--- -- "UNIX is basically a simple operating system, but you have to be a genius to understand the simplicity." -Dennis Ritchie Manoj Srivastava 1024D/BF24424C print 4966 F272 D093 B493 410B 924B 21BA DABB BF24 424C