lagagain

#include "hello.h"
#include<Python.h>

using namespace std;

extern "C"{
  static PyObject *_hello(PyObject *self, PyObject *args){
    hello();
    return self;
  }

lagagain

;;(ql:quickload :fiveam)
(require :fiveam)

(defpackage try-fiveam
  (:use :cl)
  (:import-from :fiveam test run run! def-suite is))

(in-package try-fiveam)

(test test+

lagagain

Copyright (c) 2018, lagagain 
All rights reserved. 

Redistribution and use in source and binary forms, with or without 
modification, are permitted provided that the following conditions are met: 

 * Redistributions of source code must retain the above copyright notice, 
   this list of conditions and the following disclaimer. 
 * Redistributions in binary form must reproduce the above copyright 
   notice, this list of conditions and the following disclaimer in the 

lagagain

(defun send-region-to-term nil
  (interactive)
  (send-string "*terminal*" (buffer-substring-no-properties (region-beginning) (region-end)))
  (send-string "*terminal*" "\n"))

(local-set-key (kbd "C-c C-r")
               'send-region-to-term)

lagagain

These files flow BSD-3
- init-local.el

Copyright (c) 2018, lagagain 
All rights reserved. 

Redistribution and use in source and binary forms, with or without 
modification, are permitted provided that the following conditions are met: 

 * Redistributions of source code must retain the above copyright notice, 

lagagain

(set-dispatch-macro-character #\# #\o
 (lambda (s c1 c2)
   (declare (ignore c1 c2))
   (let* ((form (read s))
          (obj (car form))
          (method (cadr form))
          (args (cddr form)))
     `(,method ,obj ,@args))))
           
(defmethod run ((name string))

lagagain

(defun Decorators (stream ch1)
  (declare (ignore ch1))
  (let ((Decorator (read stream))
        (the-func-form (read stream)))
    (unless (eq (first the-func-form) 'defun)
      (error "need 'defun"))

    (let ((the-func-name (second the-func-form))
          (the-func-args (third the-func-form))
          (the-func (cdddr the-func-form)))

lagagain

;;; init-local.el -- load my config
;;; Commentary:
;;;  load my config

;;; Code:
;;;
;;; load send-term
(load "../my-lisp/send-term/send-term.el")

lagagain

(defun main ()
  (let* ((JFrame (jclass "javax.swing.JFrame"))
         (JButton (jclass "javax.swing.JButton"))
         (BorderLayout (jclass "java.awt.BorderLayout"))
         (demo (jnew JFrame "Layout Demo"))
         (east (jnew JButton "East"))
         (south (jnew JButton "South"))
         (west (jnew JButton "West"))
         (north (jnew JButton "North"))
         (center (jnew JButton "Center")))

lagagain

#! /bin/bash

SCRIPTPATH="$( cd "$(dirname "$0")" ; pwd -P )"

echo ${SCRIPTPATH}

if [ -d "${SCRIPTPATH}/bin" ] ; then
    PATH="${SCRIPTPATH}/bin:$PATH"
fi