From 2240c4885c0663883ee013ffcc1419518b65d3cf Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 19 Sep 2022 10:39:54 +1000 Subject: moving the emacs client out. updated readme --- lisp/hc.el | 58 ---------------------------------------------------------- 1 file changed, 58 deletions(-) delete mode 100644 lisp/hc.el (limited to 'lisp/hc.el') diff --git a/lisp/hc.el b/lisp/hc.el deleted file mode 100644 index f6239f6..0000000 --- a/lisp/hc.el +++ /dev/null @@ -1,58 +0,0 @@ -;;; hc.el --- Haskell codebase explorer -*- lexical-binding: t; -*- - -;; Author: Yuchen Pei -;; Maintainer: Yuchen Pei -;; Created: 2022 -;; Version: 0 -;; Keywords: haskell -;; Package-Requires: ((emacs "28") (haskell-mode)) -;; Package-Type: multi -;; Homepage: https://g.ypei.me/hcel.git - -;; Copyright (C) 2022 Yuchen Pei. -;; -;; This file is part of hcel. -;; -;; hcel is free software: you can redistribute it and/or modify it under -;; the terms of the GNU Affero General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. -;; -;; hcel is distributed in the hope that it will be useful, but WITHOUT -;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General -;; Public License for more details. -;; -;; You should have received a copy of the GNU Affero General Public -;; License along with hcel. If not, see . - -(require 'hcel-source) -(require 'hcel-outline) -(require 'hcel-results) -(require 'hcel-utils) - -(defun hcel-package (package-id) - "Select a package, followed by selecting a module to display the source." - (interactive - (list - (completing-read "Select package: " - (mapcar 'hcel-format-package-id - (hcel-api-packages))))) - (call-interactively (hcel-module-selector (hcel-parse-package-id package-id)))) - -(defun hcel-module () - "Select a module to display source." - (interactive) - (call-interactively - (hcel-module-selector hcel-package-id))) - -(defun hcel-module-selector (package-id) - (lambda (module-path) - (interactive - (list - (completing-read "Select module: " - (hcel-list-modules package-id)))) - (switch-to-buffer - (hcel-load-module-source package-id module-path)))) - -(provide 'hc) -- cgit v1.2.3