আমি কিছু কাজ করেছেন অনুরূপ । এটি ফরাসি ভাষায়, তবে কোডটি নিজের পক্ষে বলা উচিত। আমি ‰চিহ্নিতকারীটির জন্য ব্যবহার করি (আমি একটি বেপো লেআউট ব্যবহার করি ), এবং আমি যখন করি, চাপিত বোতামের শৈলী হিসাবে চিহ্নিত পাঠ্য।
আমি লিস্পে সাবলীল নই, সুতরাং উন্নতির জন্য জায়গা থাকতে পারে।
আমি যা করেছি তা হ'ল, ‰চিহ্নিতকারীর জন্য ব্যবহার করার সময় চিহ্নিত পাঠ্যের একটি চাপযুক্ত-বোতামের স্টাইল থাকে এবং যখন রফতানি হয় তখন এটি অনুবাদ করা হয়<kbd>
প্রথমত, আমাকে একটি নতুন মুখ নির্ধারণ করতে হয়েছিল:
(defface my-face-org-keystroke
'((t (:inherit shadow
:box (:line-width -2 ;neg. in order to keep the same size of lines
:color "grey75"
:style pressed-button)))) "Face for keystrokes"
:group 'org-faces)
তারপরে কাস্টমাইজ করুন org-emphasis-alist:
(("*" bold)
("/" italic)
("_" underline)
("=" org-code verbatim)
("~" org-verbatim verbatim)
("+"
(:strike-through t))
("‰" my-face-org-keystroke verbatim));This line is what you want to add
রফতানির জন্য, আপনার ox.elসাথে লোড করার প্রয়োজন হতে পারে (require 'ox)।
তারপরে প্রতিটি সময় boldবা codeকোনও ফাংশনে উপস্থিত (ইন ox-org.el), আমি একটি অনুরূপ ফাংশন তৈরি করেছি (বা বিদ্যমানগুলি সংশোধিত):
;creation
(defun org-html-keystroke (keystroke contents info)
"Transcode KEYSTROKE from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual
information."
(format (or (cdr (assq 'my-object-keystroke org-html-text-markup-alist)) "%s")
(org-html-encode-plain-text (org-element-property :value keystroke))))
;creation
(defun org-element-my-object-keystroke-parser ()
"Parse code object at point.
Return a list whose CAR is `my-object-keystroke' and CDR is a plist with
`:value', `:begin', `:end' and `:post-blank' keywords.
Assume point is at the first tilde marker."
(interactive)
(save-excursion
(unless (bolp) (backward-char 1))
(looking-at org-emph-re)
(let ((begin (match-beginning 2))
(value (org-match-string-no-properties 4))
(post-blank (progn (goto-char (match-end 2))
(skip-chars-forward " \t")))
(end (point)))
(list 'my-object-keystroke
(list :value value
:begin begin
:end end
:post-blank post-blank)))))
;creation
(defun org-element-my-object-keystroke-interpreter (keystroke contents)
"Interpret KEYSTROKE object as Org syntax.
CONTENTS is nil."
(format "‰%s‰" (org-element-property :value keystroke)))
;modification
(defconst org-element-object-successor-alist
'((subscript . sub/superscript) (superscript . sub/superscript)
(bold . text-markup) (code . text-markup) (italic . text-markup)
(strike-through . text-markup) (underline . text-markup)
(verbatim . text-markup) (entity . latex-or-entity)
(latex-fragment . latex-or-entity) (my-object-keystroke . text-markup))
"Alist of translations between object type and successor name.
Sharing the same successor comes handy when, for example, the
regexp matching one object can also match the other object.")
;modification
(defconst org-element-all-objects
'(bold code entity export-snippet footnote-reference inline-babel-call
inline-src-block italic line-break latex-fragment link macro
radio-target statistics-cookie strike-through subscript superscript
table-cell target timestamp underline verbatim my-object-keystroke)
"Complete list of object types.")
;modification
(defun org-element-text-markup-successor ()
"Search for the next text-markup object.
Return value is a cons cell whose CAR is a symbol among `bold',
`italic', `underline', `strike-through', `code' and `verbatim'
and CDR is beginning position."
(save-excursion
(unless (bolp) (backward-char))
(when (re-search-forward org-emph-re nil t)
(let ((marker (match-string 3)))
(cons (cond
((equal marker "*") 'bold)
((equal marker "/") 'italic)
((equal marker "_") 'underline)
((equal marker "+") 'strike-through)
((equal marker "~") 'code)
((equal marker "=") 'verbatim)
((equal marker "‰") 'my-object-keystroke)
(t (error "Unknown marker at %d" (match-beginning 3))))
(match-beginning 2))))))
এরপরে, আমি my-htmlরফতানির জন্য একটি ব্যাকএন্ড সংজ্ঞায়িত করেছি :
(org-export-define-derived-backend 'my-html 'html
:translate-alist '((my-object-keystroke . org-html-keystroke))
:menu-entry ' (?h 1
((?r "my-html" org-html-export-to-my-html))))
(defun org-html-export-to-my-html
(&optional async subtreep visible-only body-only ext-plist)
"Export current buffer to a HTML file.
Return output file's name."
(interactive)
(let* ((extension (concat "." org-html-extension))
(file (org-export-output-file-name extension subtreep))
(org-export-coding-system org-html-coding-system))
(org-export-to-file 'my-html file
async subtreep visible-only body-only ext-plist)))
(defun org-html-publish-to-my-html (plist filename pub-dir)
"Publish an org file to my-html.
Return output file name."
(org-publish-org-to 'my-html filename
(concat "." (or (plist-get plist :html-extension)
org-html-extension "html"))
plist pub-dir))
(defun org-html-convert-region-to-my-html ()
"Assume the current region has org-mode syntax, and convert it to HTML.
This can be used in any buffer. For example, you can write an
itemized list in org-mode syntax in an HTML buffer and use this
command to convert it."
(interactive)
(org-export-replace-region-by 'my-html))
সুতরাং আমি যখন C-c C-e h rএটি ব্যবহার করি তখন এটি সঠিকভাবে রফতানি করা হয়:
মন্তব্যগুলিতে ওপি দ্বারা প্রস্তাবিত হিসাবে আপনাকে আপনার বাফারটি ব্যবহার করতে org-mode-restart(বা org-reload) মারতে বা পুনরায় লোড করতে হতে পারে ।
সম্পাদনা করুন: এটি 8.3 পূর্ববর্তী সংস্করণগুলির সাথে org- মোডের জন্য কাজ করে (এটি 8.2.10 অবধি)
Versions8.3.1 সংস্করণ সহ, আমাকে সংশোধন করতে হবে
- সংস্থা-উপাদানের-All-বস্তু
- সম্ভবত org-عنصر-অবজেক্ট-সীমাবদ্ধতা
- সংস্থা-উপাদানের - সেট regexps
- সংস্থা-উপাদানের - অবজেক্ট লেক্স
এবং অবশ্যই এখনও ফাংশন যোগ করুন
- সংস্থা-উপাদানের-মাই-অবজেক্ট কীস্ট্রোক-পার্সার
- সংস্থা-উপাদানের-মাই-অবজেক্ট কীস্ট্রোক-ব্যাখ্যাকারী
কিন্তু
- সংস্থা-উপাদানের-অবজেক্ট উত্তরাধিকারী-alist
- সংস্থা-উপাদানের টেক্সট-মার্কআপ-উত্তরাধিকারী
এখন মুছে ফেলা হয়।
চার্লস সি বেরি তার সাহায্যের জন্য ধন্যবাদ ।