Kann ich Zellen in einer Tabelle im Organisationsmodus je nach Formel unterschiedlich formatieren?

17

Ich habe eine Spalte in einer Tabelle im Organisationsmodus mit Zahlen in jeder Zelle. Ich möchte die Hintergrundfarbe der Zelle in Rot ändern, wenn die Zahl unter 1 oder über 2 liegt.

Wie kann ich das machen?

Trevoke
quelle
3
Gute Frage! Sowohl org-table-edit-formulasaka C-c 'als auch org-table-toggle-coordinate-overlaysaka C-c }liefern Hinweise zur Implementierung dieser Art von Hervorhebungsfunktion. Vielleicht liefert ein Elisp-Guru einige zusätzliche Hinweise oder Beispiele.
Melioratus,

Antworten:

4

Ich habe eine Formatierung für ganze Tabellen, um mit einigen Elisp zu arbeiten:

Eine Formel wird für den Inhalt der Zellen ausgewertet und mithilfe eines Verlaufs in eine Farbe umgewandelt.

Org-Datei mit Code:

#+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
Vladimir Panteleev
quelle
Das ist fantastisch! Ich würde gerne eine etwas ausführlichere Beschreibung lesen, wie alles miteinander verbunden ist, auch wenn es nur "Dieser Code wird ausgeführt, wenn Sie X ausführen, Y und Z als Eingaben verwenden und dies ist, was er für die Tabelle bewirkt". :)
Trevoke
Vielen Dank. Dies ist so ziemlich eine Kombination aus Ihren beiden Antworten. Es besteht eine gewisse Redundanz, da beide die Tabellendaten von org-babel empfangen und nach der Tabellennamensdeklaration suchen (damit Überlagerungen usw. hinzugefügt werden können). Von dort aus ordnet es Zeilen- und Spaltennummern aus den empfangenen Tabellendaten den Zellenkoordinaten der Organisationstabelle zu. cs/itplFührt eine einfache lineare Interpolation durch und cs/gradientverwendet diese, um eine Farbe mithilfe einer Liste von Datenpunkten und Farbstopps zu interpolieren. Von dort fügt es nur eine Überlagerung wie in Ihrer Antwort. Das Beispiel ist ein bisschen nicht trivial, da es Daten von anderen Stellen in der Tabelle abfragt.
Vladimir Panteleev
Der Code wurde mit einer neueren Version aktualisiert, die die Namens- / Datenredundanz behebt, alte Überlagerungen löscht und sich als org-ctrl-c-ctrl-c-hook registriert, sodass Sie nicht auf den Codeblock zeigen müssen, um ihn auszuführen es. Es kann auch alle Tabellen im Dokument mit freundlicher Genehmigung von aktualisieren org-table-map-tables.
Vladimir Panteleev
Das ist großartig. Ich würde mich über weitere Kommentare für Leute freuen, die hierher kommen und mit Elisp nicht vertraut sind, aber es ist erstaunlich, danke!
Trevoke
4

Mit einem Overlay werde ich es tun wollen. Ich kann mich in org-ctrl-c-ctrl-c-hook einhängen. Dies bedeutet, dass ich Cc Cc drücken kann, um die Prüfung auszuführen.

Ich muss richtig überprüfen, dass ich in einer Tabelle bin und dies für alle Zellen ausführen.

Dann muss ich mich wahrscheinlich in die Ausrichtungsfunktion einhängen, um die Überlagerungen entweder zu wiederholen oder zumindest zu löschen.

Durch diesen Code wird der Zellenhintergrund für die Zelle, in der ich mich befinde, rot, wenn der Wert kleiner als 1 oder größer als 2 ist, wenn ich Cc Cc drücke. t entsprechen den Regeln.

(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)
Trevoke
quelle
2

Dies ist noch keine Antwort, aber ich möchte die Dinge, die ich hier entdecke, im Auge behalten, da sie möglicherweise jemand anderem eine Idee geben.

Es ist möglich, den Wert der Zelle selbst bedingt zu ändern :

Wir können eine Formatierungsfunktion in elisp erstellen und sie dann aus der Formelzeile aufrufen:

#+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

Und es kann so verwendet werden:

| String | Num | 
|--------+-----| 
| Foo    |   2 | 
| Bar    |   1 | 
| Baz    |  3! | 
|--------+-----|
#+TBLFM: $2='(danger @0$0)

Ich denke, was ich will, erfordert möglicherweise die Erstellung eines Overlays.

Trevoke
quelle
2

Emacs bietet die Funktion, hi-lock-face-buffer M-s h rdie einen regulären Ausdruck im Puffer während der Eingabe hervorhebt.

Alles, was wir brauchen, ist ein regulärer Ausdruck, der mit jeder Zahl übereinstimmt, die nicht 1 oder 2 ist und sich in der Zelle einer Tabelle befindet. Versuche dies:

| *\(-[0-9]+\|[03-9]\|[0-9][0-9]+\) *|

(Sie können frühere Ausdrücke mit M-nund abrufen M-p.)

Rip Torn
quelle