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

kaushalmodi · Sep 6, 2017 · f74efbd · f74efbd
1 parent 828165b
commit f74efbd
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/ox-hugo.el b/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)