Emacs: função para criar um arquivo com data / hora como nome do arquivo e um atalho para ele

Eu preciso gerar arquivos de texto com o seguinte formato de nome: YYYYY-MM-DD--hh-mm-ss.org. Como posso usar a funcionalidade de captura para isso? Ou seja, em vez de fazer uma entrada por captura em um único arquivo, a função deve criar um único arquivo por captura e, esperançosamente, com todas as possibilidades do mecanismo de captura.

org-mode org-capture myotis
fonte

Desculpe, esqueci o contexto da minha pergunta. "capture" faz parte do emacs org-mode

myotis

Respostas:

Você deve poder usar o functionformulário de destino para fazer isso:

(defun my/org-file-by-date ()
  "Create an Org file with current time as name."
  (find-file (format-time-string "~/org/%Y-%m-%d--%H-%M-%S.org")))

(add-to-list 'org-capture-templates
             '("x" "Template Name" plain
              (function my/org-file-by-date)
              "Capture template contents"))

Edição 2 : o código passado para um fileformulário ou similar não é avaliado até o tempo de captura, portanto, há uma maneira mais compacta de fazer isso. Veja a resposta de Erik Sjöstrand para um exemplo.

Editar 1 : para obter funcionalidades semelhantes sem passar pela interface de captura, você pode usar funções semelhantes a estas.

(defun my/org-file-by-date-with-inline-skeleton ()
  "Create Org file from skeleton with current time as name."
  (interactive)
  (find-file (format-time-string "~/org/%Y-%m-%d--%H-%M-%S.org"))
  (insert "Skeleton contents"))

(defun my/org-file-by-date-with-file-skeleton ()
  "Create Org file from skeleton file with current time as name."
  (interactive)
  (let ((filename (format-time-string "~/org/%Y-%m-%d--%H-%M-%S.org")))
    (copy-file "path/to/skeleton/file" filename)
    (find-file filename)))

Aaron Harris
fonte

Direita. Eu editei minha resposta para apontar para a sua.

JCH

Obrigado ! Vejo, testando o código, que talvez não seja necessário usar a funcionalidade de captura. Porque eu escrevo muito em cada um desses arquivos e preciso fechar com Cc c. Eu preferiria escrever diretamente no arquivo criado e salvar normalmente. Como posso criar um arquivo chamado% Y-% m-% d -% H-% M-% S.org e conter algum texto fixo (talvez de um esqueleto?) E abri-lo para escrever?

myotis

Acabei de adicionar duas funções que evitam capturar completamente. Eu acho que é isso que você está procurando.

Aaron Harris

Não parece haver nenhuma funcionalidade interna para fazer isso ( editar : sim, veja abaixo). A solução mais simples, que não requer aprofundamento nas funcionalidades internas de captura, é vincular o valor org-default-notes-fileno momento da captura:

(defun my-org-capture-advice (func &rest args)
   (let ((org-default-notes-file
         (format-time-string "~/org/%Y-%m-%d--%H-%M-%S.org")))
    (apply func args)))

(advice-add 'org-capture :around #'my-org-capture-advice)

Esse conselho acontece muito cedo, por isso ainda não sabemos qual modelo você usará. Se o nome do arquivo depender do modelo de captura, provavelmente você precisará aconselhar org-capture-set-target-location.

Editar : o functionalvo do modelo é a melhor maneira de conseguir isso. Veja a resposta de Aaron para um exemplo.

jch
fonte

Obrigado! Não sei como usar seu código. Eu o adicionei ao meu arquivo init.el. O que eu faço mais?

Myotis

Faça o que você costuma fazer para invocar a org-capturefunção - C-c cse você seguiu o conselho no manual da organização.

JCH

Eu ainda não entendo. Se eu digitar "Mx my-org-capture-conselho", nada acontece. Quando digito meu Cc c normal, recebo minha lista de capturas conforme as defini. Então, de onde vem o seu código?

myotis

Se você org-capture-templatesnão especificar um arquivo para capturar, o arquivo escolhido será formatado conforme desejado.

JCH

então eu preciso criar um novo arquivo de captura sem um arquivo para capturar e, em seguida, seu código fará seu trabalho?

myotis

Aqui está uma maneira de manter tudo na org-capture-templateslista, sem definir outras funções. org-directorypode ser alterado para qualquer diretório em que você deseja armazenar os arquivos.

(add-to-list 'org-capture-templates
             '("x" "Template name" plain
               (file (expand-file-name
                      (format-time-string "%Y-%m-%d--%H-%M-%S.org")
                      org-directory))
               "This string is inserted in the capture"))

Erik Sjöstrand
fonte