Czy mogę sformatować komórki w tabeli trybu organizacji inaczej w zależności od formuły?
Odpowiedzi:
Mam formatowanie całego stołu do pracy z niektórymi Elisp:
Formuła jest oceniana pod kątem zawartości komórek i przekształcana w kolor za pomocą gradientu.
Plik organizacji zawierający kod:
#+name: item-prices
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Item | Weight | Label Price | Ratio | CS-F | <-LR | <-WR | CS-N | Si-N | Si-2 | St-N | St-F |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Охотничье ружьё | 3.3 | 400 | 121 | 40 | 10 | 11.82 | | 40 | 40 | 50 | 60 |
| «Гадюка-5» | 2.88 | 3000 | 1042 | 300 | 10 | 103.82 | | 300 | 300 | 375 | 450 |
| Обрез | 1.90 | 200 | 105 | 20 | 10 | 10.00 | | 20 | 20 | 25 | 30 |
| ПМм | 0.73 | 300 | 411 | 30 | 10 | 39.73 | | 30 | 30 | 37 | 45 |
| АКМ-74/2 * | 3.07 | 4000 | 1303 | 637 | 16 | 207.49 | | 318 | 318 | 398 | 478 |
| АКМ-74/2У | 2.71 | 2100 | 775 | 420 | 20 | 154.61 | | 210 | 210 | 262 | 315 |
| ПБ-1с | 0.97 | 400 | 412 | 120 | 30 | 122.68 | 100 | 40 | 40 | 50 | 60 |
| «Чeйзер-13» | 3.00 | 1250 | 417 | | | | | 125 | | | |
| «Чeйзер-13» * | | 1250 | 417 | 200 | 16 | 66.33 | | 100 | 100 | 125 | 149 |
| ХПСС-1м | 0.94 | 600 | 682 | | | | | 60 | | | |
| ХПСС-1м * | 0.88 | 600 | 682 | 92 | 15 | 104.55 | | 46 | 46 | 57 | 69 |
| «Фора-12» | 0.83 | 600 | 723 | 120 | 20 | 143.37 | | 60 | 60 | 74 | 90 |
| «Кора-919» | 1.10 | 1500 | | | | | | 150 | 150 | | 225 |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Прицел ПСО-1 | 0.20 | 1000 | 5000 | 100 | 10 | 500.00 | | 150 | 150 | 150 | 200 |
| Детектор «Отклик» | 0.00 | 500 | inf | 50 | 10 | 50.00 | | 100 | 100 | 175 | 250 |
| Детектор «Медведь» | 0.00 | 1000 | inf | 100 | 10 | 100.00 | | | | | 500 |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Кожаная куртка | 3.00 | 500 | 167 | 250 | 50 | 83.33 | | - | - | 200 | |
| Бронежилет ЧН-1 | 4.00 | 5000 | 1250 | 2500 | 50 | 625.00 | | - | - | | |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Аптечка | 0.10 | 300 | 3000 | 30 | 10 | 300.00 | 16 | 45 | 45 | 105 | 150 |
| Бинт | 0.05 | 200 | 4000 | 20 | 10 | 400.00 | 11 | 30 | | 70 | 100 |
| Противорад. п. | 0.05 | 300 | 6000 | 30 | 10 | 600.00 | 16 | 45 | | 105 | 150 |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Водка «Казаки» | 0.60 | 100 | 167 | 100 | 100 | 166.67 | 100 | - | - | - | - |
| «Завтрак туриста» | 0.30 | 100 | 333 | 100 | 100 | 333.33 | | - | - | - | - |
| Колбаса «Диетическая» | 0.50 | 50 | 100 | 50 | 100 | 100.00 | | - | - | - | - |
| Хлеб | 0.30 | 20 | 67 | 20 | 100 | 66.67 | | - | - | - | - |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Патроны 9x18 мм | 0.20 | 50 | 250 | 5 | 10 | 25.00 | 3 | 7 | 7 | 5 | 5 |
| Патроны 9x19 мм РВР | 0.24 | 100 | 417 | 20 | 20 | 83.33 | 15 | | | | |
| Патроны 9x19 мм ЦМО | 0.24 | 100 | 417 | | 0 | 0.00 | | 15 | 15 | 15 | 20 |
| Патроны 12x70 дробь | 0.45 | 10 | 22 | 1 | 10 | 2.22 | 0 | 1 | | 1 | 1 |
| Патроны 12x76 жекан | 0.50 | 20 | 40 | 4 | 20 | 8.00 | 3 | 1 | | 3 | 4 |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| Граната РГД-5 | 0.30 | 350 | | | | | | 52 | 52 | 70 | 70 |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
| «Медуза» | 0.5 | 4000 | 8000 | | 0 | 0.00 | | 2800 | 3600 | 2500 | 2800 |
|-----------------------+--------+-------------+-------+------+------+--------+------+------+------+------+------|
#+TBLFM: $4='(/ (string-to-number $3) (string-to-number $2));%1.f
#+TBLFM: $6='(/ (string-to-number $5) 0.01 (string-to-number $3));%1.f
#+TBLFM: $7=$5/$2;%1.2f
#+begin_src emacs-lisp :var table=item-prices
(defun cs/itpl (low high r rlow rhigh)
"Return the point between LOW and HIGH that corresponds to where R is between RLOW and RHIGH."
(+ low (/ (* (- high low) (- r rlow)) (- rhigh rlow))))
(defun cs/gradient (gradient p)
(if (< p (caar gradient))
(cdar gradient)
(while (and (cdr gradient) (> p (caadr gradient)))
(setq gradient (cdr gradient)))
(if (null (cdr gradient))
(cdar gradient)
(list
(cs/itpl (nth 1 (car gradient)) (nth 1 (cadr gradient)) p (caar gradient) (caadr gradient))
(cs/itpl (nth 2 (car gradient)) (nth 2 (cadr gradient)) p (caar gradient) (caadr gradient))
(cs/itpl (nth 3 (car gradient)) (nth 3 (cadr gradient)) p (caar gradient) (caadr gradient))))))
(defun cs/scs-table-color ()
(when (boundp 'cs/cell-color-overlays)
(mapc #'delete-overlay cs/cell-color-overlays))
(setq-local cs/cell-color-overlays nil)
(save-excursion
(org-table-map-tables
(lambda ()
(let* ((table (cl-remove-if-not #'listp (org-table-to-lisp))) ; remove 'hline
(heading (car table))
(element (org-element-at-point)))
(while (and element (not (eq (car element) 'table)))
(setq element (plist-get (cadr element) :parent)))
(cond
((equal (plist-get (cadr element) :name) "item-prices")
(org-table-analyze)
(cl-loop for row being the elements of (cdr table) using (index row-index)
do (cl-loop for col being the elements of row using (index col-index)
if (and
(string-match "^..-.$" (nth col-index heading))
(not (zerop (length col)))
(not (equal "0" col)))
do (progn
(org-table-goto-field (format "@%d$%d" (+ 2 row-index) (1+ col-index)))
(forward-char)
(let* ((base-price (string-to-number (nth 2 row)))
(vendor-price (string-to-number col))
(ratio (/ vendor-price 1.0 base-price))
(gradient '((0.10 #x40 #x00 #x00)
(0.20 #xC0 #x00 #x00)
(0.50 #x00 #x80 #x00)
(1.00 #x00 #xFF #x80)))
(color (cs/gradient gradient ratio))
(overlay (make-overlay
(progn (org-table-beginning-of-field 1) (backward-char) (point))
(progn (org-table-end-of-field 1) (forward-char) (point))))
(bg (apply #'message "#%02x%02x%02x" color))
(fg (if (< (apply #'+ color) 383) "#ffffff" "#000000"))
(face (list
:background bg
:foreground fg)))
(overlay-put overlay 'face face)
(push overlay cs/cell-color-overlays)))))))))
t)))
(add-hook 'org-ctrl-c-ctrl-c-hook 'cs/scs-table-color nil t)
nil
#+end_src
To fantastycznie! Chciałbym przeczytać nieco bardziej dogłębny opis tego, jak to wszystko jest połączone, nawet jeśli jest to po prostu „ten kod jest uruchamiany podczas wykonywania X, przyjmuje Y i Z jako dane wejściowe, i to właśnie robi z tabelą” :)
—
Trevoke
Dzięki. To właściwie połączenie twoich dwóch odpowiedzi. Istnieje pewna nadmiarowość, ponieważ zarówno odbiera dane tabeli z org-babel, jak i szuka deklaracji nazwy tabeli (aby można było dodawać nakładki itp.). Następnie mapuje numery wierszy i kolumn z odebranych danych tabeli na współrzędne komórki tabeli org.
—
Vladimir Panteleev
cs/itplwykonuje prostą interpolację liniową i cs/gradientwykorzystuje ją do interpolacji koloru za pomocą listy punktów danych i punktów zatrzymania kolorów. Stamtąd dodaje tylko nakładkę, jak w twojej odpowiedzi. Przykład jest nieco nietrywialny, ponieważ sprawdza dane z innego miejsca w tabeli.
Zaktualizowałem kod o nowszą wersję, która naprawia nadmiarowość nazw / danych, usuwa stare nakładki i rejestruje się jako org-ctrl-c-ctrl-c-hook, dzięki czemu nie musisz wskazywać bloku kodu, aby uruchomić to. Może także aktualizować wszystkie tabele w dokumencie dzięki uprzejmości
—
Vladimir Panteleev
org-table-map-tables.
To wspaniale. Chciałbym więcej komentarzy dla ludzi, którzy mogą tu przyjść i nie są zaznajomieni z elisp, ale to niesamowite, dziękuję!
—
Trevoke,
@VladimirPanteleev czy wiesz, czy mogę dodać to do mojej konfiguracji i uczynić z niej funkcję „wbudowaną”, którą z łatwością mogę zastosować do dowolnej tabeli?
—
tekozaur
Używanie nakładki jest tym, jak chcę to zrobić. Mogę podpiąć się do org-ctrl-c-ctrl-c-hook. Oznacza to, że mogę nacisnąć Cc Cc, aby uruchomić sprawdzanie.
Muszę poprawnie sprawdzić, czy jestem w tabeli i uruchomić to dla wszystkich komórek.
Następnie prawdopodobnie potrzebuję podpiąć się do funkcji wyrównania, aby albo powtórzyć nakładki, albo przynajmniej je usunąć.
Ten kod sprawi, że tło komórki będzie czerwone dla komórki, w której jestem, jeśli wartość jest mniejsza niż 1 lub większa niż 2 po naciśnięciu Cc Cc ... Ale nadal jest błędna i usunie nakładki, jeśli jeden z nich nie zrobi dopasować zasady.
(defun staggering ()
(save-excursion
(let* ((ot-field-beginning (progn (org-table-beginning-of-field 1) (point)))
(ot-field-end (progn (org-table-end-of-field 1) (point)))
(cell-text (buffer-substring ot-field-beginning ot-field-end)))
(if (or (< (string-to-number cell-text) 1)
(> (string-to-number cell-text) 2))
(overlay-put (make-overlay
(progn (org-table-beginning-of-field 1) (point))
(progn (org-table-end-of-field 1) (point)))
'face '(:background "#FF0000"))))))
(add-hook 'org-ctrl-c-ctrl-c-hook 'staggering)
To jeszcze nie jest odpowiedź, ale chcę śledzić rzeczy, które tu odkrywam, ponieważ mogą dać pomysł komuś innemu.
Możliwe jest warunkowe zmodyfikowanie wartości samej komórki :
Możemy utworzyć funkcję formatowania w elisp, a następnie wywołać ją z wiersza formuły:
#+BEGIN_SRC emacs-lisp :results silent
(defun danger (cell)
(if (or (< (string-to-number cell) 1)
(> (string-to-number cell) 2))
(concat (int-to-string (string-to-number cell)) "!")
cell))
#+END_SRC
I można go używać w następujący sposób:
| String | Num |
|--------+-----|
| Foo | 2 |
| Bar | 1 |
| Baz | 3! |
|--------+-----|
#+TBLFM: $2='(danger @0$0)
Myślę, że to, czego chcę, może wymagać utworzenia nakładki.
Emacs udostępnia funkcję, hi-lock-face-buffer M-s h rktóra podświetla wyrażenie regularne w buforze podczas pisania.
Wszystko czego potrzebujemy to wyrażenie regularne, które pasuje do dowolnej liczby, która nie jest 1 lub 2 i znajduje się w komórce tabeli. Spróbuj tego:
| *\(-[0-9]+\|[03-9]\|[0-9][0-9]+\) *|
(Możesz przywołać poprzednie wyrażenia za pomocą M-ni M-p.)
org-table-edit-formulasaka, jakC-c 'iorg-table-toggle-coordinate-overlaysakaC-c }dostarczają wskazówek, jak zaimplementować tego rodzaju funkcję podświetlania. Być może elisp guru dostarczy dodatkowych wskazówek lub przykładów.