Make org-hugo-slug 'public' so that it can be auto-loaded

master
Kaushal Modi 9 years ago
parent 828165b97d
commit f74efbde96
  1. 9
      ox-hugo.el

@ -6,7 +6,8 @@
;; Matt Price <moptop99@gmail.com>
;; URL: https://github.com/kaushalmodi/ox-hugo
;; Package-Requires: ((emacs "24.5"))
;; Keywords: org, hugo, markdown
;; Keywords: Org, markdown, docs
;; Version: 0.1
;; This file is part of GNU Emacs.
@ -593,7 +594,7 @@ a communication channel."
(t
(let ((anchor (format "{#%s}" ;https://gohugo.io/extras/crossreferences/
(or (org-element-property :CUSTOM_ID headline)
(org-hugo--slug title)
(org-hugo-slug title)
;; (org-export-get-reference headline info)
)))
(loffset (plist-get info :hugo-level-offset))
@ -604,7 +605,7 @@ a communication channel."
;;;;; Headline Helpers
;;;###autoload
(defun org-hugo--slug (str)
(defun org-hugo-slug (str)
"Return a slug string for STR.
STR is in Markdown format, most likely a Markdown heading. The
returned slug string has the following specification:
@ -1285,7 +1286,7 @@ are \"toml\" and \"yaml\"."
;; Auto-set menu identifier if not already set by user.
(unless (assoc 'identifier menu-alist)
(let ((title (cdr (assoc 'title data))))
(push `(identifier . ,(org-hugo--slug title)) menu-alist)))
(push `(identifier . ,(org-hugo-slug title)) menu-alist)))
;; Auto-set menu weight if not already set by user.
(unless (assoc 'weight menu-alist)

Loading…
Cancel
Save