Change: (helm-org-ql.el) Headers, requirements
Preparing for it to be a separate package.
This commit is contained in:
parent
c3e23c3072
commit
92d0e27340
1 changed files with 127 additions and 137 deletions
|
|
@ -2,6 +2,8 @@
|
||||||
|
|
||||||
;; Author: Adam Porter <adam@alphapapa.net>
|
;; Author: Adam Porter <adam@alphapapa.net>
|
||||||
;; URL: https://github.com/alphapapa/org-ql
|
;; URL: https://github.com/alphapapa/org-ql
|
||||||
|
;; Version: 0.6-pre
|
||||||
|
;; Package-Requires: ((emacs "26.1") (dash "2.17.0") (s "1.12.0") (helm-org "1.0") (org-ql "0.6-pre"))
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
|
||||||
|
|
@ -28,32 +30,20 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(eval-and-compile
|
;;;; Requirements
|
||||||
|
|
||||||
|
(require 'cl-lib)
|
||||||
(require 'org)
|
(require 'org)
|
||||||
|
|
||||||
|
(require 'dash)
|
||||||
|
(require 's)
|
||||||
|
|
||||||
|
(require 'helm)
|
||||||
|
(require 'helm-org)
|
||||||
|
|
||||||
(require 'org-ql)
|
(require 'org-ql)
|
||||||
(require 'org-ql-search)
|
(require 'org-ql-search)
|
||||||
|
|
||||||
;;;; Compatibility
|
|
||||||
|
|
||||||
;; Declare Helm functions since Helm may not be installed.
|
|
||||||
(declare-function helm "ext:helm")
|
|
||||||
(declare-function helm-run-after-exit "ext:helm")
|
|
||||||
(declare-function helm-window "ext:helm-lib")
|
|
||||||
(declare-function helm-buffer-get "ext:helm-lib")
|
|
||||||
(declare-function helm-make-source "ext:helm-source")
|
|
||||||
(declare-function helm-org-goto-marker "ext:helm-org")
|
|
||||||
|
|
||||||
;; Silence byte-compiler about variables.
|
|
||||||
(defvar helm-map)
|
|
||||||
(defvar helm-pattern)
|
|
||||||
(defvar helm-input-idle-delay)
|
|
||||||
|
|
||||||
(when (require 'helm nil 'noerror)
|
|
||||||
|
|
||||||
;; Requirements.
|
|
||||||
(require 'helm-org)
|
|
||||||
|
|
||||||
;;;; Variables
|
;;;; Variables
|
||||||
|
|
||||||
(defvar helm-org-ql-map
|
(defvar helm-org-ql-map
|
||||||
|
|
@ -224,7 +214,7 @@ WINDOW-WIDTH should be the width of the Helm window."
|
||||||
(path (if helm-org-ql-reverse-paths
|
(path (if helm-org-ql-reverse-paths
|
||||||
(concat heading "\\" (s-join "\\" (nreverse path)))
|
(concat heading "\\" (s-join "\\" (nreverse path)))
|
||||||
(concat (s-join "/" path) "/" heading))))
|
(concat (s-join "/" path) "/" heading))))
|
||||||
(cons (concat prefix path) (point-marker))))))
|
(cons (concat prefix path) (point-marker)))))
|
||||||
|
|
||||||
;;;; Footer
|
;;;; Footer
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue