From 1ca854dbec0e879429c83b3da3d26dae1d852c00 Mon Sep 17 00:00:00 2001
From: ryuslash
Date: Sun, 12 Sep 2010 10:33:26 +0200
Subject: Removed old emacs files

---
 .emacs.d/ports.el | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 .emacs.d/ports.el

(limited to '.emacs.d/ports.el')

diff --git a/.emacs.d/ports.el b/.emacs.d/ports.el
deleted file mode 100644
index eec3854..0000000
--- a/.emacs.d/ports.el
+++ /dev/null
@@ -1,29 +0,0 @@
-;; function copied from dim-ports.al by Dimitri Fontaine
-;; http://git.naquadah.org/?p=~dim/emacs.d.git;a=summary
-(defun lsb-release (&optional property)
-  "Parse lsb-release output and return an alist, or the value for the given property"
-  (when (file-executable-p "/usr/bin/lsb_release")
-    (let* ((lsbr (shell-command-to-string "/usr/bin/lsb_release -a 2>/dev/null"))
-           (props (split-string lsbr "[:\n]" t))
-           (kv))
-      (while (>= (length props) 2)
-        ;; Don't keep extra spaces. This way seems like the easy one in elisp.
-        (let ((key (mapconcat 'identity (split-string (car props)) " "))
-              (val (mapconcat 'identity (split-string (cadr props)) " ")))
-          (setq kv (add-to-list 'kv (cons key val)))
-          (setq props (cddr props))))
-      (if property
-          (cdr (assoc property (lsb-release)))
-        kv))))
-
-;; function copied from dim-ports.al by Dimitri Fontaine
-;; http://git.naquadah.org/?p=~dim/emacs.d.git;a=summary
-(defmacro when-running-ubuntu (&rest body)
-  "eval body only when running under Ubuntu"
-  (when (equal (lsb-release "Distributor ID") "Ubuntu") ,@body))
-
-;; function adapted from dim-ports.al by Dimitri Fontaine
-;; http://git.naquadah.org/?p=~dim/emacs.d.git;a=summary
-(defmacro when-running-fedora (&rest body)
-  "eval body only when running under Fedora"
-  (when (equal (lsb-release "Distributor ID") "Fedora") ,@body))
\ No newline at end of file
-- 
cgit v1.2.3-54-g00ecf