From caedd92eef8fe47c3925c12d8e81be911556b38b Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 11 Jan 2013 01:16:41 +0100 Subject: Update files --- site/index.org | 60 ++++++++++++---------------------------------------------- 1 file changed, 12 insertions(+), 48 deletions(-) (limited to 'site/index.org') 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 @@ #+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. -- cgit v1.2.3-54-g00ecf