(let ((name (file-name-sans-extension (file-name-nondirectory buffer-file-name))) "Export the current buffer as a child note of the selected note in Tinderbox." This would do the trick: (defun tinderbox-export-current-buffer () Something more useful, though, would be an interactive function to export the text file you’re working on (in Emacs terminology, the current buffer). The code above could be used programmatically as follows: (tinderbox-make-or-update-note "Note name" "Text body.") This is part of a larger project, my phi-notes package for “Zettelkasten”-style note, Emacs is a text editor written and extensible in the Lisp language. (tinderbox-applescript-quoted-string default-value)))) (tinderbox-applescript-quoted-string attr-type) (tinderbox-applescript-quoted-string attribute) If the error_number is not -128 then display alert message error_message as warning On error error_message number error_number Set defaultValue of theAttribute to theDefaultValue If theDefaultValue is not missing value then Set name of theAttribute to theAttributeName Set type of theAttribute to theAttributeType Set theAttribute to make attribute in theDocument If not (exists attribute theAttributeName in theDocument) then (defun tinderbox-initialize-attribute (attribute attr-type
0 Comments
Leave a Reply. |