Re: Bug: the code(convert the file to objc-mode) cause orgmode export to html file error

[陈泼杨 <chenpoyang@163.com>]

From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Subject: Re: Bug: the code(convert the file to objc-mode) cause orgmode export to html file error
Date: Tue, 26 Dec 2017 12:28:47 +0100

> Hello,
> 
> =E9=99=88=E6=B3=BC=E6=9D=A8 <chenpoyang@163.com> writes:
> 
>> .h file use c/c++ mode or objc-mode base on it's content, so there is ema=
> cswiki solution there:
>> https://www.emacswiki.org/emacs/ObjectiveCMode, so i put the the code in =
> my configuration:
>>
>> ;; header .h add to objc-mode, this cause org unable to export to html fi=
> le
>> (add-to-list 'magic-mode-alist
>> 	     `(,(lambda ()
>> 		  (and (string=3D (file-name-extension buffer-file-name) "h")
>> 		       (re-search-forward "@\\<interface\\>"
>> 					  magic-mode-regexp-match-limit t)))
>> 	       . objc-mode))
> 
> Try to use `equal' instead of `string=3D'.
> 
> Regards,
> 
> --=20
> Nicolas Goaziou

follow your tips, i change to code, use equal, and the code is:

--------------------------------------------------------------------------------
(add-to-list 'magic-mode-alist
                `(,(lambda ()
                     (and (equal (file-name-extension buffer-file-name) "h")
                          (re-search-forward "@\\<interface\\>" 
					     magic-mode-regexp-match-limit t)))
                  . objc-mode))
--------------------------------------------------------------------------------

still unable to export org file to html:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  file-name-nondirectory(nil)
  file-name-extension(nil)
  (equal (file-name-extension buffer-file-name) "h")
  (and (equal (file-name-extension buffer-file-name) "h") (re-search-forward "@\\<interface\\>" magic-mode-regexp-match-limit t))
  (lambda nil (and (equal (file-name-extension buffer-file-name) "h") (re-search-forward "@\\<interface\\>" magic-mode-regexp-match-limit t)))()
  #[514 "\300\x02!\203	\0\x01 \207\301\x02!\207" [functionp looking-at] 4 "\n\n(fn RE DUMMY)"]((lambda nil (and (equal (file-name-extension buffer-file-name) "h") (re-search-forward "@\\<interface\\>" magic-mode-regexp-match-limit t))) nil)
  assoc-default(nil (((lambda nil (and (equal (file-name-extension buffer-file-name) "h") (re-search-forward "@\\<interface\\>" magic-mode-regexp-match-limit t))) . objc-mode) ("^[{[]$" . json-mode)) #[514 "\300\x02!\203	\0\x01 \207\301\x02!\207" [functionp looking-at] 4 "\n\n(fn RE DUMMY)"])
  set-auto-mode(t)
  org-html-final-function(...)
  org-export-filter-apply-functions(...)
  org-export-as(html nil nil nil (:output-file "note.html"))
  org-export-to-file(html "note.html" nil nil nil nil nil)
  org-html-export-to-html(nil nil nil nil)
  org-export-dispatch(nil)
  funcall-interactively(org-export-dispatch nil)
  call-interactively(org-export-dispatch nil nil)
  command-execute(org-export-dispatch)


--
Best regards
Peck Chen / 陈泼杨