branch: externals/org-real
commit 356767c8eb5898a6c67326999be8114ff2f4e8fe
Author: Tyler Grinn <tylergr...@gmail.com>
Commit: Tyler Grinn <tylergr...@gmail.com>
Added org-real-pkg for multifile package
---
README.org | 2 +-
org-real--box.el | 4 ++--
org-real-pkg.el | 5 +++++
org-real.el | 10 +++++-----
4 files changed, 13 insertions(+), 8 deletions(-)
diff --git a/README.org b/README.org
index 585f06a..6aa89fb 100644
--- a/README.org
+++ b/README.org
@@ -1,6 +1,6 @@
#+TITLE: Org Real
-Keep track of real things as org links.
+Keep track of real things as org-mode links.
#+begin_src emacs-lisp
(use-package org-real
diff --git a/org-real--box.el b/org-real--box.el
index 40b65e7..fdc3dec 100644
--- a/org-real--box.el
+++ b/org-real--box.el
@@ -1,8 +1,8 @@
-;;; org-real--box.el --- Create org-mode links to real things -*-
lexical-binding: t -*-
+;;; org-real--box.el --- Keep track of real things as org-mode links -*-
lexical-binding: t -*-
;; Author: Tyler Grinn <tylergr...@gmail.com>
;; Version: 0.1.0
-;; File: org-real.el
+;; File: org-real--box.el
;; Package-Requires: ((emacs "26.1"))
;; Keywords: tools
;; URL: https://gitlab.com/tygrdev/org-real
diff --git a/org-real-pkg.el b/org-real-pkg.el
new file mode 100644
index 0000000..7745852
--- /dev/null
+++ b/org-real-pkg.el
@@ -0,0 +1,5 @@
+(define-package
+ "org-real"
+ "0.1.0"
+ "Keep track of real things as org-mode links"
+ '((emacs "26.1")))
diff --git a/org-real.el b/org-real.el
index 160379d..3c43518 100644
--- a/org-real.el
+++ b/org-real.el
@@ -1,4 +1,4 @@
-;;; org-real.el --- Create org-mode links to real things -*- lexical-binding:
t -*-
+;;; org-real.el --- Keep track of real things as org-mode links -*-
lexical-binding: t -*-
;; Author: Tyler Grinn <tylergr...@gmail.com>
;; Version: 0.1.0
@@ -335,8 +335,8 @@ describing where BOX is."
(toggle-truncate-lines t)
(if containers (org-real--pp-text containers))
(let ((offset (- (line-number-at-pos)
- (cdr org-real--margin)
- (* 2 (cdr org-real--padding)))))
+ (cdr org-real-margin)
+ (* 2 (cdr org-real-padding)))))
(dotimes (_ (+ top height)) (insert (concat (make-string width ?\s)
"\n")))
(org-real--draw box offset)
(special-mode)))
@@ -348,8 +348,8 @@ describing where BOX is."
(let* ((reversed (reverse containers))
(container (pop reversed))
(primary-name (plist-get container :name)))
- (dotimes (_ (cdr org-real--padding)) (insert "\n"))
- (insert (make-string (car org-real--padding) ?\s))
+ (dotimes (_ (cdr org-real-padding)) (insert "\n"))
+ (insert (make-string (car org-real-padding) ?\s))
(insert "The ")
(put-text-property 0 (length primary-name) 'face 'org-real-primary
primary-name)
