Members/kokubo/emacs: .emacs.d/haskell-mode/haskell-package.el annotate

author	Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp>
date	Mon, 21 Apr 2014 04:30:59 +0900
parents
children

rev	line source
0 2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1 ;;; haskell-package.el --- Interface for working with Cabal packages
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	2
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	3 ;; Copyright (C) 2011 Chris Done
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	4
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	5 ;; Author: Chris Done <chrisdone@gmail.com>
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	6
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	7 ;; This file is not part of GNU Emacs.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	8
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	9 ;; This file is free software; you can redistribute it and/or modify
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	10 ;; it under the terms of the GNU General Public License as published by
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	11 ;; the Free Software Foundation; either version 3, or (at your option)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	12 ;; any later version.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	13
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	14 ;; This file is distributed in the hope that it will be useful,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	17 ;; GNU General Public License for more details.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	18
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	19 ;; You should have received a copy of the GNU General Public License
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	20 ;; along with GNU Emacs; see the file COPYING. If not, write to
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	21 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	22 ;; Boston, MA 02110-1301, USA.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	23
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	24 ;;; Commentary:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	25
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	26 ;;; Todo:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	27
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	28 ;;; Code:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	29
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	30 (with-no-warnings (require 'cl))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	31
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	32 ;; Dynamically scoped variables.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	33 ;; TODO What actually sets this?
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	34 (defvar haskell-config-use-cabal-dev)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	35
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	36 ;; (defun haskell-package-conf-path-get (&optional project)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	37 ;; "Gets the user conf or the cabal-dev conf. Get the global conf elsewhere."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	38 ;; (if haskell-config-use-cabal-dev
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	39 ;; (if project
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	40 ;; (let* ((cabal-path (haskell-project-cabal-dir project)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	41 ;; (format "%scabal-dev/packages-%s.conf/"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	42 ;; (if (string-match "/$" cabal-path)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	43 ;; cabal-path
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	44 ;; (concat cabal-path "/"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	45 ;; (haskell-ghc-version)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	46 ;; (haskell-package-conf-user-path-get))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	47 ;; (haskell-package-conf-user-path-get)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	48
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	49 (defun haskell-package-conf-user-path-get ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	50 "Get the user conf path."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	51 (let ((out (shell-command-to-string "ghc-pkg --user list no-results-please")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	52 (string-match "\n\\(.*\\):\n" out) (match-string 1 out)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	53
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	54 (defun haskell-package-conf-global-path-get ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	55 "Get the global conf path."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	56 (let ((out (shell-command-to-string "ghc-pkg --global list no-results-please")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	57 (string-match "\n\\(.*\\):\n" out) (match-string 1 out)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	58
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	59 (defun haskell-package-get-all (conf)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	60 "Get all package descriptions for the given `conf'."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	61 (let ((all (shell-command-to-string (format "ghc-pkg -f %s dump" conf))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	62 (mapcar (lambda (text)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	63 (haskell-package-parse text))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	64 (split-string all "\n---\n"))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	65
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	66 (defun haskell-package-get (conf name version)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	67 "Get a package description for the given `name' and `version' in the given `conf'."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	68 (haskell-package-parse
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	69 (shell-command-to-string
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	70 (format "ghc-pkg -f %s describe %s-%s"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	71 conf
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	72 name
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	73 version))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	74
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	75 (defstruct haskell-package "Haskell package object.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	76
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	77 (defun haskell-package-parse (text)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	78 "Parse a package into a package object."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	79 (let ((pkg (haskell-package-read-description text)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	80 (make-haskell-package
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	81 :name (cdr (assoc "name" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	82 :version (cdr (assoc "version" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	83 :id (cdr (assoc "id" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	84 :license (cdr (assoc "license" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	85 :copyright (cdr (assoc "copyright" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	86 :maintainer (cdr (assoc "maintainer" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	87 :stability (cdr (assoc "stability" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	88 :homepage (cdr (assoc "homepage" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	89 :package-url (cdr (assoc "package-url" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	90 :description (cdr (assoc "description" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	91 :categories (cdr (assoc "category" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	92 :authors (cdr (assoc "author" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	93 :is-exposed (equal "True" (cdr (assoc "exposed" pkg)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	94 :exposed-modules (split-string (or (cdr (assoc "exposed-modules" pkg)) "")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	95 "[\n ]")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	96 :hidden-modules (split-string (or (cdr (assoc "hidden-modules" pkg)) "")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	97 "[\n ]")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	98 :imports-dirs (cdr (assoc "imports-dirs" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	99 :library-dirs (cdr (assoc "library-dirs" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	100 :haskell-libraries (cdr (assoc "haskell-libraries" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	101 :extra-libraries (cdr (assoc "extra-libraries" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	102 :extra-ghci-libraries (cdr (assoc "extra-ghci-libraries" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	103 :include-dirs (cdr (assoc "include-dirs" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	104 :includes (cdr (assoc "includes" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	105 :depends (cdr (assoc "depends" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	106 :hugs-options (cdr (assoc "hugs-options" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	107 :cc-options (cdr (assoc "cc-options" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	108 :ld-options (cdr (assoc "ld-options" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	109 :framework-dirs (cdr (assoc "framework-dirs" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	110 :frameworks (cdr (assoc "frameworks" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	111 :haddock-interfaces (cdr (assoc "haddock-interfaces" pkg))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	112 :haddock-html (cdr (assoc "haddock-html" pkg)))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	113
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	114 (defun haskell-package-read-description (text)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	115 "Return an association list of key-values from a pkg description string."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	116 (let* ((marked (replace-regexp-in-string
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	117 "\n\\([^ ]\\)"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	118 (lambda (match)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	119 (concat "\n:" (substring match 1)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	120 text))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	121 (alist (mapcar 'haskell-package-key-value
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	122 (split-string marked "\n:"))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	123 alist))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	124
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	125 (defun haskell-package-key-value (entry)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	126 "Return a (key . value) pair from an entry."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	127 (let ((key-values (split-string entry ": ")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	128 (if (listp key-values)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	129 (cons (car key-values)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	130 (replace-regexp-in-string
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	131 "\n[ ]*"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	132 " "
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	133 (mapconcat 'identity (cdr key-values) ": ")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	134 key-values)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	135
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	136 (defun haskell-package-list-get (conf)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	137 "Get the list of packages in the given config."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	138 (haskell-package-list-parse
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	139 (shell-command-to-string
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	140 (format "ghc-pkg -f %s list"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	141 conf))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	142
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	143 (defun haskell-package-list-parse (text)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	144 "Parse the list of installed packges."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	145 (let* ((lines (split-string text "\n ")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	146 (mapcar
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	147 (lambda (line)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	148 (string-match "^{?\\([a-zA-Z0-9-_]+\\)-\\([0-9.]+\\)}?$" line)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	149 (cons (match-string 1 line) (match-string 2 line)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	150 (delete-if
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	151 (lambda (line)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	152 (not (string-match "^{?[a-zA-Z0-9-_]+-[0-9.]+}?$" line)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	153 lines))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	154
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	155 (provide 'haskell-package)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	156
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	157 ;; Local Variables:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	158 ;; byte-compile-warnings: (not cl-functions)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	159 ;; End:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	160
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	161 ;;; haskell-package.el ends here

0

2764b4f45f9f 1st commit