Idorobots

  uint[] code = [0,
                 DERP,
                 RECEIVE,
                 CMP, 1,
                 JUMPL, 1,
                 MOVEA, 1,
                 ADDMEM, 0,
                 CMP, 1,
                 MOVEAD,
                 MOVEA, 0,

Idorobots

(DFD (Database "Dane_Klientów")
     (I/O "Klient")
     (Process "Weryfikacja_Zamówienia")
       (Flow "Zamówienie" "Klient" "Weryfikacja_Zamówienia")
       (Flow "Odmowa" "Weryfikacja_Zamówienia" "Klient")
     (Process "Weryfikacja_Danych_Kredytowych")
       (Flow "Zweryfikowane_zamówienie" "Weryfikacja_Zamówienia" "Weryfikacja_Danych_Kredytowych")
       (Flow "Informacja_o_błędnych_danych" "Weryfikacja_Danych_Kredytowych" "Klient")
       (Flow "Gotowe_zamówienie" "Weryfikacja_Danych_Kredytowych" "Wykonanie_Zamówienia")
     (Process "Wykonanie_Zamówienia")

Idorobots

RM = rm

CC = gcc
CFLAGS = -Wall -pedantic -O4 -ffast-math
LDLIBS = -lm

TARGET = foo
OBJS = foo.o main.o

all: $(TARGET)

Idorobots

(defvar some-image (create-image "foo.xpm" 'xpm nil
                                 :ascent 'center))

(setq mode-line-format
  (list ;; ...
        '(:eval (propertize "unimportant" 'display some-image))
        ;; ...
  ))

Idorobots

(setq mode-line-format
  (list ;; ...
        '(:propertize "%@" help-echo (concat "Default directory is: "
                                             default-directory)
                           mouse-face mode-line-highlight)
        ;; ...
  ))

Idorobots

(defvar my-vc-alist '(;; Everything is ok:
                      (up-to-date some-green-face)
                      ;; Kinda important:
                      (edited some-yellow-face)
                      (added some-yellow-face)
                      ;; Most important:
                      ;; ...
                     ))

(setq mode-line-format

Idorobots

(setq mode-line-format
  (list '(:eval (message "Using `message' here is a bad idea..."))
        '(:propertize " No really. Stop it!"
                      face font-lock-warning-face)
  ))

Idorobots

;; MODES

(require 'battery)
(setq battery-mode-line-format "#%b %p %t")
(setq battery-load-critical 7)
(setq battery-load-low 25)
(display-battery-mode t)

(require 'network-speed)
(setq network-speed-update-interval 5)

Idorobots

(require 'misc-stats)
(setq misc-stats-update-interval 10)
(setq misc-stats-format "Emacs uptime: %E Load average: %L1")
(misc-stats-start)

Idorobots

(require 'network-speed)
(setq network-speed-update-interval 5)
(setq network-speed-precision 1)
(setq network-speed-interface-list '("wlan0" "eth0"))
(setq network-speed-format-string "Down: %RB Up: %TB")
(network-speed-start)