[emacs client] Adding initial integration with haddorg

1 files changed, 46 insertions, 0 deletions

diff --git a/lisp/hcel-haddorg.el b/lisp/hcel-haddorg.el
new file mode 100644
index 0000000..ad797e0
--- /dev/null
+++ b/lisp/hcel-haddorg.el
@@ -0,0 +1,46 @@
+;; -*- lexical-binding: t; -*-
+;; 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 <https://www.gnu.org/licenses/>.
+
+(require 'hcel-source)
+(require 'hcel-client)
+(require 'hcel-utils)
+
+(defun hcel-haddorg-to-hcel-definition ()
+  (interactive)
+  (save-excursion
+    (org-back-to-heading t)
+    (let* ((id (org-entry-get (point) "CUSTOM_ID"))
+           (splitted (split-string id "/"))
+           (module-name (car splitted))
+           (entity (if (equal "v" (cadr splitted)) "Val" "Typ"))
+           (name (caddr splitted))
+           (package) (unparsed) (package-id))
+      (goto-char (point-min))
+      (setq package (org-entry-get (point) "ITEM"))
+      (setq package-id
+            (hcel-parse-package-id
+             (progn
+               (string-match "^\\(.*?\\)\\(:.*\\)?$" package)
+               (match-string 1 package))
+             "-"))
+      (hcel-load-module-location-info
+       (alist-get 'location
+                  (hcel-api-definition-site
+                   package-id "lib" module-name entity name))))))
+
+(provide 'hcel-haddorg)