diff options
author | ryuslash | 2010-09-12 10:33:26 +0200 |
---|---|---|
committer | ryuslash | 2010-09-12 10:33:26 +0200 |
commit | 1ca854dbec0e879429c83b3da3d26dae1d852c00 (patch) | |
tree | 8ccc6cfeca5c6b97afdc94c312f55a064b1c047d /.emacs.d/ports.el | |
parent | 7c4787a7f477d92dfc58713e61abb42ed5844e87 (diff) | |
download | dotfiles-1ca854dbec0e879429c83b3da3d26dae1d852c00.tar.gz dotfiles-1ca854dbec0e879429c83b3da3d26dae1d852c00.zip |
Removed old emacs files
Diffstat (limited to '.emacs.d/ports.el')
-rw-r--r-- | .emacs.d/ports.el | 29 |
1 files changed, 0 insertions, 29 deletions
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 |