Update files

1 files changed, 12 insertions, 48 deletions

diff --git a/site/index.org b/site/index.org
index c55234f..c0357df 100644
--- a/site/index.org
+++ b/site/index.org
@@ -1,5 +1,5 @@
-#+TITLE: ryuslash.org
-#+OPTIONS: toc:nil num:nil author:nil email:nil creator:nil
+#+TITLE: ryu/
+#+OPTIONS: toc:nil
 #+LANGUAGE: en
 #+STARTUP: showall
 
@@ -11,10 +11,13 @@
   </script>
 #+end_html
 
-- [[http://ryuslash.org/][Front page]]
+- [[http://ryuslash.org/][Home]]
+- [[http://blog.ryuslash.org/][Blog]]
 - [[http://code.ryuslash.org][Code]]
+- [[http://ryuslash.org/mediagoblin/][Pictures]]
 
 * About
+
   I'm a programming, free software and GNU/Linux enthusiast. I'm also
   a programmer professionally, so that works out well.
 
@@ -23,52 +26,13 @@
   [[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.
 
-* 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 "]]")))))
-
-    (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/dvdroid.org][DVDroid]] :: A DVD collection application for the Android operating
+               system.
+  - [[file:projects/eye-on-manga.org][eye-on-manga]] :: A manga collection manager for my N900 phone.
   - [[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.
-
-* 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]]
+  - [[file:projects/gitto.org][gitto]] :: A utility for keeping track of my git repositories'
+             status.