Change the index page

Remove the blog link.  Generate a list of at most 10 post titles and
link to the full index when done.  Remove the "Emacs" sub-heading
under "Projects", remove the "Dotfiles" heading.  Add a "Profiles"
heading which lists some other places I can be found.

1 files changed, 41 insertions, 40 deletions

diff --git a/site/index.org b/site/index.org
index 71c45de..2e475a1 100644
--- a/site/index.org
+++ b/site/index.org
@@ -12,11 +12,9 @@
 #+end_html
 
 - [[http://ryuslash.org/][Front page]]
-- [[file:blog/index.org][Blog]]
 - [[http://code.ryuslash.org][Code]]
 
 * About
-
   I'm a programming, free software and GNU/Linux enthusiast. I'm also
   a programmer professionally, so that works out well.
 
@@ -25,49 +23,52 @@
   [[http://www.archlinux.org][Archlinux]] after trying [[http://www.ubuntu.com][Ubuntu]], [[http://fedoraproject.org][Fedora]] and [[http://zenwalk.org][Zenwalk]]. I have been using
   [[emacs][GNU Emacs]] since not long after switching over to GNU/Linux.
 
-  I can be contacted through email (tom at ryuslash dot org) or any
-  other place you can find me, really. Like:
+* Posts
+  #+begin_src emacs-lisp :exports results :results list
+    (defun file-to-data (file)
+      (unless (or (string= file ".") (string= file "..") (string= file "index.org"))
+        (let (title date)
+          (with-temp-buffer
+            (insert-file (concat "/home/slash/var/src/orgweb/site/blog/" file))
+            (goto-char (point-min))
+            (re-search-forward "^#\\+TITLE: \\(.*\\)$")
+            (setq title (buffer-substring-no-properties
+                         (match-beginning 1) (match-end 1)))
+            (goto-char (point-min))
+            (re-search-forward "^#\\+DATE: \\(.*\\)$")
+            (setq date (buffer-substring-no-properties
+                        (match-beginning 1) (match-end 1))))
+        (list date (concat "[[file:blog/" file "][" title "]]")))))
 
-   - [[http://www.jabber.org/][jabber]]: ryuslash@jabber.org
-   - [[https://diasp.org/u/ryuslash][Diasp*]]
-   - [[http://gitorious.org/%7Eryuslash][Gitorious]]
-   - [[http://identi.ca/ryuslash][identi.ca]]
-   - [[http://www.emacswiki.org][EmacsWiki]]
-   - [[http://github.com/ryuslash][github]]
-   - [[http://www.goodreads.com/ryuslash][goodreads]]
+    (let ((posts (mapcar #'cadr
+                         (sort
+                          (delete nil
+                                  (mapcar
+                                   #'file-to-data
+                                   (directory-files
+                                    "/home/slash/var/src/orgweb/site/blog")))
+                        (lambda (el1 el2) (not (string-lessp (car el1)
+                                                        (car el2))))))))
+      (when (> (length posts) 10)
+        (setcdr (nthcdr 9 posts) '("[[file:blog/index.org][More...]]")))
+      posts)
+  #+end_src
 
 * Projects
-
   - [[file:projects/eye-on-manga.org][eye-on-manga]] :: A manga collection manager for my N900 phone.
   - [[file:projects/gitto.org][gitto]] :: A utility for keeping track of my git repositories'
              status.
   - [[file:projects/ryuslash.org][ryuslash.org]] :: My front page.
+  - [[file:projects/dispass.el.org][dispass.el]] :: A wrapper for [[http://dispass.babab.nl][DisPass]].
+  - [[file:projects/git-auto-commit-mode.org][git-auto-commit-mode]] :: A minor mode for automatically committing
+       changes to a file.
+  - [[file:projects/org-blog.org][org-blog]] :: A continuation of David O'Toole's ~org-blog~ module.
+  - [[file:projects/tron-theme.org][tron-theme]] :: A theme inspired by the Tron: Legacy movie.
 
-** Emacs
-
-   All these projects are for use in [[emacs][GNU Emacs]].
-
-   - [[file:projects/dispass.el.org][dispass.el]] :: A wrapper for [[http://dispass.babab.nl][DisPass]].
-   - [[file:projects/git-auto-commit-mode.org][git-auto-commit-mode]] :: A minor mode for automatically committing
-        changes to a file.
-   - [[file:projects/org-blog.org][org-blog]] :: A continuation of David O'Toole's ~org-blog~ module.
-   - [[file:projects/tron-theme.org][tron-theme]] :: A theme inspired by the Tron: Legacy movie.
-
-* Dotfiles
-
-  I'm working on putting all of my configuration files (dotfiles) in
-  ~org-mode~, with ~org-babel~'s literate programming support.
-
-  - [[file:dotfiles/emacs/init.org][Emacs]] :: My favorite editor.
-  - [[file:dotfiles/Xdefaults/Xdefaults.org][Xdefaults]] :: Settings for multiple X programs.
-  - [[file:dotfiles/Xmodmap/Xmodmap.html][Xmodmap]] :: X keyboard and mouse preferences.
-  - [[file:dotfiles/diary/diary.html][Diary]] :: A diary (appointments) file for [[emacs][Emacs]].
-  - [[file:dotfiles/sawfish/rc.html][Sawfish]] :: A very cool window manager, especially if you like
-               [[emacs][Emacs]].
-  - [[file:dotfiles/beets/beetsconfig.org][Beets]] :: A nifty little digital music collection manager.
-  - [[file:dotfiles/cower/config.html][Cower]] :: A simple CLI for the [[https://aur.archlinux.org][Archlinux User Repository]].
-  - [[file:dotfiles/pentadactyl/pentadactylrc.html][Pentadactyl]] :: A firefox extension for vi-like key-bindings.
-  - [[file:dotfiles/xinitrc/xinitrc.html][X init]] :: X initialization script.
-  - [[file:dotfiles/fish/config.html][Fish]] :: A pretty cool shell.
-  - [[file:dotfiles/herbstluftwm/autostart.org][herbstluftwm]] :: Another /very/ nice window manager.
-  - [[file:dotfiles/newsbeuter/config.org][Newsbeuter]] :: An excellent curses-based RSS reader.
+* Profiles
+  - [[https://diasp.org/u/ryuslash][Diasp*]]
+  - [[http://gitorious.org/%7Eryuslash][Gitorious]]
+  - [[http://identi.ca/ryuslash][identi.ca]]
+  - [[http://www.emacswiki.org][EmacsWiki]]
+  - [[http://github.com/ryuslash][github]]
+  - [[http://www.goodreads.com/ryuslash][goodreads]]