From mboxrd@z Thu Jan 1 00:00:00 1970 From: Arne Babenhauserheide Subject: Bug: table formula editor: readable elisp [7.8.03] Date: Wed, 11 Apr 2012 13:37:53 +0200 Message-ID: <877gxmh52m.wl%arne_bab@web.de> Reply-To: arne_bab@web.de Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:38241) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SHvs6-00056d-JM for emacs-orgmode@gnu.org; Wed, 11 Apr 2012 07:38:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SHvs4-0006QS-AG for emacs-orgmode@gnu.org; Wed, 11 Apr 2012 07:37:58 -0400 Received: from mout.web.de ([212.227.15.3]:60618) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SHvs4-0006QI-0P for emacs-orgmode@gnu.org; Wed, 11 Apr 2012 07:37:56 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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:=20 | | | |-+-| | | | #+TBLFM: @1=3D'(let ((words org-todo-keywords-1)) (nth (- $# 1) words))::@2$1..@>$>=3D'(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: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (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-co= mmand-hook) org-agenda-custom-commands '(("o" "Agenda and TODOs" ((tags "KANBAN") (age= nda 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-comman= d-maybe) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-confi= gure-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 o= rg-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-sele= ct-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 "=E2=9D=A2: %?\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 o= rg-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/aufschrieb= e/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-for= mat-dot nil)) )