awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(internal): remove compat functions (#1167)

Browse Source 
* remove org-roam-link-make-string
* remove org-roam-link-store-props and org-roam-link-decode
This commit is contained in:
Jethro Kuan
2020-10-06 02:45:59 +08:00
committed by GitHub
parent ceee2348e0
commit 7a76f7b476
4 changed files with 5 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
org-roam-buffer.el
View File

@ -35,6 +35,7 @@
(require 'dash)
(require 's)
(require 'f)
(require 'ol)
(defvar org-roam-directory)
(defvar org-link-frame-setup)
@ -54,7 +55,6 @@
(declare-function org-roam-mode "org-roam")
(declare-function org-roam--find-file "org-roam")
(declare-function org-roam-format-link "org-roam")
(declare-function org-roam-link-make-string "org-roam-compat")
(declare-function org-roam-link-get-path "org-roam-link")
(defcustom org-roam-buffer-position 'right

15
org-roam-compat.el
View File

@ -80,21 +80,6 @@
(define-obsolete-function-alias 'org-roam-db--clear 'org-roam-db-clear
"org-roam 1.2.0")
(defalias 'org-roam-link-make-string
(if (fboundp 'org-link-make-string)
'org-link-make-string
'org-make-link-string))
(defalias 'org-roam-link-store-props
(if (fboundp 'org-link-store-props)
'org-link-store-props
'org-store-link-props))
(defalias 'org-roam-link-decode
(if (fboundp 'org-link-decode)
'org-link-decode
'org-link-escape))
;;;; Variables
(define-obsolete-variable-alias 'org-roam-graphviz-extra-options
'org-roam-graph-extra-config "org-roam 1.0.0")

3
org-roam-protocol.el
View File

@ -37,6 +37,7 @@
;;; Code:
(require 'org-protocol)
(require 'org-roam)
(require 'ol) ;; for org-link-decode
;;;; Functions
(defun org-roam-protocol-open-ref (info)
@ -52,7 +53,7 @@ It opens or creates a note with the given ref.
(decoded-alist (mapcar (lambda (k.v)
(let ((key (car k.v))
(val (cdr k.v)))
(cons key (org-roam-link-decode val)))) alist)))
(cons key (org-link-decode val)))) alist)))
(unless (assoc 'ref decoded-alist)
(error "No ref key provided"))
(when-let ((title (cdr (assoc 'title decoded-alist))))

4
org-roam.el
View File

@ -823,7 +823,7 @@ Here, we also check if there is an ID for the file."
(setq type "id" target id))
(when (string-equal type "file")
(setq target (org-roam-link-get-path target)))
(org-roam-link-make-string (concat type ":" target) description))
(org-link-make-string (concat type ":" target) description))
(defun org-roam--prepend-tag-string (str tags)
"Prepend TAGS to STR."
@ -1763,7 +1763,7 @@ linked, lest the network graph get too crowded."
file-loc)))
(let ((rowcol (concat row ":" col)))
(insert "- "
(org-roam-link-make-string (concat "file:" file "::" rowcol)
(org-link-make-string (concat "file:" file "::" rowcol)
(format "[%s] %s" rowcol (org-roam--get-title-or-slug file))))
(when (executable-find "sed") ; insert line contents when sed is available
(insert " :: "