@@ -93,6 +93,7 @@ NAME is the function name
93
93
DOCSTRING will be the DOCSTRING of the generated function
94
94
95
95
BODY is the body of the command that should be executed"
96
+ `(autoload (quote , name ) " hog" , docstring t )
96
97
`(defun , name (project)
97
98
, docstring
98
99
(interactive (list (completing-read " Project: " (hog--get-projects) nil t )))
@@ -104,6 +105,7 @@ BODY is the body of the command that should be executed"
104
105
" Macro to create a Hog interactive command.
105
106
NAME is the function name, COMMAND is the command that should be
106
107
executed, and DOCSTRING will be passed into the generated function."
108
+ `(autoload (quote , name ) " hog" , docstring t )
107
109
`(defun , name (project)
108
110
, docstring
109
111
(interactive (list (completing-read " Project: "
@@ -422,6 +424,7 @@ The resulting list is of the form:
422
424
(concat (hog--project-root) filename)
423
425
(buffer-substring-no-properties (line-beginning-position ) (line-end-position ))))))
424
426
427
+ ;;;### autoload
425
428
(defun hog-init-project ()
426
429
" Init a Hog project in the current directory."
427
430
(interactive )
@@ -439,6 +442,7 @@ The resulting list is of the form:
439
442
440
443
; ; FIXME: does not work with file names with spaces
441
444
; ; spaces should be escaped
445
+ ;;;### autoload
442
446
(defun hog-follow-link-at-point ()
443
447
" Follow the Hog source file at point."
444
448
(interactive )
@@ -452,6 +456,7 @@ The resulting list is of the form:
452
456
(find-file (file-name-directory
453
457
(car (file-expand-wildcards file-with-path)))))))
454
458
459
+ ;;;### autoload
455
460
(defun hog-expand-glob-at-point ()
456
461
" Unglob a globbed entry in a source file.
457
462
When pointed at a globbed (wildcard) in a source file, this
@@ -511,6 +516,7 @@ in that path"
511
516
; ; docstring
512
517
" Major mode for Hog src files" )
513
518
519
+ ;;;### autoload
514
520
(defun hog-clean-vivado-xci ()
515
521
" Clean the output products of Vivado XCI Files."
516
522
(interactive )
@@ -654,22 +660,27 @@ template at a specific PATH."
654
660
; ; replace trailing tabs and insert the template
655
661
(insert (replace-regexp-in-string " [[:blank:]]*$" " " template-text)))))
656
662
663
+ ;;;### autoload
657
664
(defun hog-insert-vhdl-template ()
658
665
" Insert a vivado vhdl template."
659
666
(interactive (hog--insert-template 'vhdl )))
660
667
668
+ ;;;### autoload
661
669
(defun hog-insert-verilog-template ()
662
670
" Insert a vivado verilog template."
663
671
(interactive (hog--insert-template 'verilog )))
664
672
673
+ ;;;### autoload
665
674
(defun hog-insert-xdc-template ()
666
675
" Insert a vivado XDC template."
667
676
(interactive (hog--insert-template 'xdc )))
668
677
678
+ ;;;### autoload
669
679
(defun hog-insert-systemverilog-template ()
670
680
" Insert a vivado systemverilog template."
671
681
(interactive (hog--insert-template 'systemverilog )))
672
682
683
+ ;;;### autoload
673
684
(defun hog-check-src-file ()
674
685
" Check a Hog source file for broken links."
675
686
(let ((errors 0 ))
0 commit comments