From: Arne Babenhauserheide <arne_bab@web.de>
To: emacs-orgmode@gnu.org
Subject: Bug: table formula editor: readable elisp [7.8.03]
Date: Wed, 11 Apr 2012 13:37:53 +0200 [thread overview]
Message-ID: <877gxmh52m.wl%arne_bab@web.de> (raw)
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
http://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------
Dear Hackers,
I am working on turning org-tables into full kanban boards which get
their data from org todo states. During hacking I realized, that even in
the formula editor, lisp code without linebreaks is very hard to read.
So it would be nice, if the formula editor could automatically reformat
the code to be readable. That would mean inserting linebreaks where
applthat helps.
Best wishes,
Arne
PS: My current zero-state kanban:
| | |
|-+-|
| | |
#+TBLFM: @1='(let ((words org-todo-keywords-1)) (nth (- $# 1)
words))::@2$1..@>$>='(let ((elem (nth (- @# 1) (delete nil
(org-map-entries (lambda () (let ((line (filter-buffer-substring
(point) (line-end-position)))(keyword (nth (- $# 1)
org-todo-keywords-1))) (let ((cleanline (nth 1 (split-string line "*
")))) (if (not (member keyword (split-string cleanline " "))) nil
(concat "[[" cleanline "][" (substring cleanline (+ (length keyword) 1)
(min 30 (length cleanline))) "]]" ))))) nil 'agenda))))) (if (equal
elem nil) "" elem)))
Emacs : GNU Emacs 23.4.2 (x86_64-pc-linux-gnu, GTK+ Version 2.24.8)
of 2012-03-20 on fluss
Package: Org-mode version 7.8.03
current state:
==============
(setq
org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
org-agenda-custom-commands '(("o" "Agenda and TODOs" ((tags "KANBAN") (agenda nil) (todo ""))))
org-agenda-files '("~/.emacs.d/private/org/emacs-plan.org")
org-agenda-include-diary t
org-babel-load-languages '((python . t) (sh . t))
org-metaup-hook '(org-babel-load-in-session-maybe)
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-babel-tangle-lang-exts '(("python" . "py") ("emacs-lisp" . "el"))
org-export-latex-format-toc-function 'org-export-latex-format-toc-default
org-agenda-skip-scheduled-if-done t
org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe)
org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
org-confirm-shell-link-function 'yes-or-no-p
org-export-first-hook '(org-beamer-initialize-open-trackers)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-default-notes-file "~/.emacs.d/private/org/emacs-remember-mode.org"
org-directory "~/.emacs.d/private/org"
outline-mode-hook '((lambda nil (require (quote outline-magic))))
org-blank-before-new-entry nil
org-babel-pre-tangle-hook '(save-buffer)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers)
org-mode-hook '(org-mode-reftex-setup turn-on-font-lock
#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5]
org-babel-hide-all-hashes)
org-extend-today-until 4
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-agenda-start-on-weekday nil
org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks))
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-agenda-skip-deadline-if-done t
org-occur-hook '(org-first-headline-recenter)
org-from-is-user-regexp nil
org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code)
outline-minor-mode-hook '((lambda nil (require (quote outline-magic)))
(lambda nil (require (quote outline-magic))
(define-key outline-minor-mode-map [(f10)] (quote outline-cycle)))
)
org-remember-templates '(("todo" 116 "❢: %?\n" "~/.emacs.d/private/org/emacs-plan.org" nil nil) ("Note" 110 "%?\n" nil nil nil))
org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames
org-beamer-place-default-actions-for-lists)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-abbrev-alist '(("bib" . "~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/ref.bib::%s")
("notes" . "~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/papers.org::#%s")
("papers" . "~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/papers/%s.pdf"))
org-export-blocks '((src org-babel-exp-src-block nil) (comment org-export-blocks-format-comment t)
(ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil))
)
reply other threads:[~2012-04-11 11:38 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=877gxmh52m.wl%arne_bab@web.de \
--to=arne_bab@web.de \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).