svanellewee

(require 'ert)

(defun get-13-char (req-char)
  (let* ((alphabet "abcdefghijklmnopqrstuvwxyz")
	 (get-index (lambda  (x) (string-match (format "%s" x) alphabet)))
	 (get-13-after-index (lambda (x) (if x (% (+ x 13) 26) nil)))
	 (get-13-after-char (lambda (x) (funcall get-13-after-index
						 (funcall get-index x))))
	 (get-13-char-after-char (lambda (x) (if (string-match x alphabet) (format "%c"  (elt alphabet (funcall get-13-after-char x)) ) " "))))
    (funcall get-13-char-after-char (format "%c" req-char))))

svanellewee

class Hello(object):
    def __init__(self, bla):
        print "CONSTRUCT WITH{}".format(bla)
        self.bla = bla

    def __enter__(self, *args, **kwargs):
        print "{{ENTER[{}]".format(self.bla)
        return "SOMETHING"
    def __exit__(self, *args, **kwargs):
        print "done[{}]}}".format(self.bla)

svanellewee

Stephan’s index page

Hello world!

You may have to reload org-more (C-u M-x org-reload)

  ;;; server.el ---  -*- lexical-binding: t -*-
(require 'elnode)
(defvar my-org-dir "/Users/svanellewee/source/orgz")

svanellewee

;; sve-margin
(defun sve-calc-margin(cost-price margin-price)
  (let* ((cost-price (* 1.0 cost-price))
	 (margin-price (* 1.0 margin-price))
	 (numerator (-  margin-price cost-price))
	 (denumerator margin-price))
    (/ numerator denumerator)))

(sve-comment 
 (setq margins '(( 200  2000.00)

svanellewee

; malyon.el --- mode to execute z code files version 3, 5, 8

;; Maintainer: Peter Ilberg <[email protected]>
;; (I am unable to continue supporting malyon.el. Please send me an
;;  email if you are interested in taking over the project. Thanks.)

;; Copyright (C) 1999-2011 Peter Ilberg

;; Permission is hereby granted, free of charge, to any person obtaining a
;; copy of this software and associated documentation files (the "Software"),

svanellewee

;;python-testize!

;; test code
(defun sve-setup-test-pytestize(function-to-test)
  (with-current-buffer "test"
    (erase-buffer)
    (insert "test pim_service/loadsheets/tests/test_db.py")
    (funcall function-to-test (point))
    (let ((return-value (buffer-string)))
      (equal return-value "test pim_service.loadsheets.tests.test_db" ))))

svanellewee

def cons(a, b):
    return lambda fn : fn(a, b)


a_list = cons("Shane", cons("Monster", cons("Maniac", None)))


print a_list

svanellewee

;; No indentation code:
;; from here : https://www.emacswiki.org/emacs/ModeTutorial

(defvar wpdl-mode-hook nil
  "define list of hooks to run")

(defvar wpdl-mode-map
  (let ((map (make-keymap)))
    (define-key map "\C-j" 'newline-and-indent)
    map)

svanellewee

Outliner bla

Somet text!

• some txt
• yet more with M-enter
• M-up moves around

Markup

BOLD , italic , verbatim , striketrhough

• buttels
• list
• items

svanellewee

;; tictactoe.el -- play tic tac toe in emacs

(defun start-tictactoe ()
  "Start playing the game"
  (interactive)
  (switch-to-buffer "ticktacktoe")
  (tictactoe-mode)
  (tictactoe-init)
  (tictactoe-print-board)
  (tictactoe-swap-players))