# clone org2blog git repository
git clone http://github.com/punchagan/org2blog.git

Add the following snippet to ~/.emacs

(add-to-list 'load-path "~/site-lisp/org2blog")
(require 'org2blog-autoloads)

(setq org2blog/wp-blog-alist
       '(("noorul.com"
          :url "http://noorul.com/blog/xmlrpc.php"
          :username "admin"
          :tags-as-categories t)))
(org2blog/wp-login)

Then I can go to the entry and call M-x org2blog/wp-post-subtree to post a draft or C-u M-x org2blog/wp-post-subtree to publish it.

It was super easy for me because, I strictly associate each task with a corresponding tag to uniquely identify it. These tags are related to my office projects and the script is a custom one which suits my requirement.

Here is the emacs part.

(defun noorul/gen_weekly_report (startPos endPos)
  "Generate weekly report using external pythong script"
(interactive "r")
  (let (scriptName)
    (setq scriptName "~/work/python/gen_weekly_report.py")
    (shell-command-on-region startPos endPos scriptName "*Weekly Report*" 
			     nil nil t)
    ))

(global-set-key (kbd "<f6> r") 'noorul/gen_weekly_report)

Here is the python supporting script.

#!/usr/bin/env python
import sys
import re

report_dict = {}
cubit_issue_id_regex = re.compile('.*(cubit\d+):.*$')
artf_issue_id_regex = re.compile('.*(artf\d+):.*$')
issue_desc_regex = re.compile('.*(WAITING|DONE|NEXT) (.*) :.*$')
for line in sys.stdin.readlines():
    id_match = re.match(cubit_issue_id_regex, line)
    if not id_match:
        id_match = re.match(artf_issue_id_regex, line)
    if id_match:
        issue = id_match.groups()[0]
        issue_desc = ''
        desc_match = re.match(issue_desc_regex, line)
        if desc_match:
            issue_desc = desc_match.groups()[1]
            if issue not in report_dict.keys():
                report_dict[issue] = issue_desc

print 'This Week:\n'
for issue in sorted(report_dict.keys()):
    print '* %-10s: %s' % (issue,  report_dict[issue])

Now to collect my report, all what I have to do is, go to the agenda buffer switch to log mode and mark the week area and press ‘F6 r’.

I think I can avoid the region marking step and that will be an enhancement.

Initially I was using inbuilt filtering system from gnus. Since I run emacs all the time on my machine and the filtering mechanism was interfering with my editing task, I thought of decoupling the same from Gnus. Google helped me to find imapfilter which is a very powerful tool.

Getting imapfiler

You can download the software from here http://imapfilter.hellug.gr/.

Installing

You can compile and install the program from the sources by typing:

tar -zxvf imapfilter-x.y.z.tar.gz
cd imapfilter-x.y.z
make
make install

Configuring

imapfilter uses lua as extension language. Here is an example ~/.imapfilter/config.lua
You can configure multiple mail accounts. Since I have only one
non-gmail account I have not tried that. The syntax is self explanatory.

• Define an account like this.

    account1 = IMAP {
    server = 'your.exchage.server.com',
    username = 'username',
    password = 'reallysecret',
    ssl = 'ssl3'
}

• Filter messages based on different header fields like this.

msgs = account1.INBOX:contain_field('To', 'x-mailing-list@mail.com')
msgs = account1.INBOX:contain_field('Subject', 'Joke')
msgs = account1.INBOX:contain_field('From', 'support@bank.com')

You can use complex filters like

       msgs = account1.INBOX:contain_field('To', 'y-mailing-list@mail.com') +
       account1.INBOX:contain_field('Cc', 'y-mailing-list@mail.com')

• Perform an action on the filters messages

account1.INBOX:move_messages(account1['x-mailing-list'], msgs)

• If we combine everything into a function.

    function sortMail()
    options.timeout = 120
    options.subscribe = true                                                    

    account1 = IMAP {
        server = 'your.exchage.server.com',
        username = 'username',
        password = 'reallysecret',
        ssl = 'ssl3'
    }                                                                           

    msgs = account1.INBOX:contain_field('To', 'x-mailing-list@mail.com')
    account1.INBOX:move_messages(account1['x-mailing-list'], msgs)
    msgs = account1.INBOX:contain_field('Subject', 'Joke')
    account1.INBOX:move_messages(account1['jokes'], msgs)
    msgs = account1.INBOX:contain_field('From', 'support@bank.com')
    account1.INBOX:move_messages(account1['bank'], msgs)

    msgs = account1.INBOX:contain_field('To', 'y-mailing-list@mail.com') +
           account1.INBOX:contain_field('Cc', 'y-mailing-list@mail.com')
    account1.INBOX:move_messages(account1['y-mailing-list'], msgs)
end                                                                             

become_daemon(300, sortMail)

Now we have a simple complete imapfilter config.lua. This file should
reside in ~/.imapfilter/ folder. This is the default location.

Executing imapfilter

Just run the following command. The option -l is used to specify log file.

imapfilter -l /tmp/imapfilter.log

Trouble

I had one issue with imapfilter so far. Sometimes the program terminates because of some protocol handling issue with the exchange server. So I have a script watch_imapfilter.sh added to crontab to monitor imapfilter process.

#!/bin/sh                                                                       

result=`pgrep imapfilter`
if [ $result ]
then
        echo "imapfilter is already running"
else
        echo "imapfilter is not running"
        echo "Starting imapfilter...."
        /usr/local/bin/imapfilter -l /tmp/imapfilter.log
fi

And the crontab entry looks like this.

# m h  dom mon dow   command
*/1 * * * *          /home/noorul/bin/watch_imapfilter.sh >/dev/null 2>&1

Further reading

The imapfilter and imapfilter_config manual pages are available online.

I followed the following steps to compile emacs-unicode from CVS.

1. Checkout latest source for emacs-unicode.

cd /opt
cvs -z3 -d:pserver:anonymous@cvs.savannah.gnu.org:/sources/emacs co -r emacs-unicode-2 emacs

2. I had a problem with NSTATICS constant in emacs/src/alloc.c when compiling. I think you might face the same problem. You have to change the value of this constant. You have to look for the definition of this constant in emacs/src/alloc.c. I did the following. May be a lower value will also work. Commented the existing definition and added mine.

/* #define NSTATICS 1280 */
#define NSTATICS 2048

3. Now use configure script to generate make files.

cd /opt/emacs
./configure  --with-gtk --enable-font-backend --with-xft  --with-freetype

4. At last the make command

make bootstrap

It took around 5 hours for me to figure out the NSTATICS problem. I hope this will help some of you. If this helps any one of you then drop me a mail. I will be happy.